คำ VBA-หาข้อความข้อความที่มีหนึ่งคำ(ไม่ใช่คำทั้งหมดในข้อความ)มีรูปแบบเฉพาะหรือรูปแบบ

Question 1

ฉันพยายามจะสร้างบางอย่างรหัสสำหรับค้นหาข้อความที่หนึ่งคำภายในข้อความเป็นพิเศษรูปแบบหรือสไตล์วิคทอเรียหรอก ตัวอย่างเช่นฉันต้องสำหรับค้นหาข้อความ"สวัสดีโลกทุกอย่างเรียบร้อยดี"แต่เดียวที่โดนโหยู่ที่ไหนคำว่า"ทั้งหมด"อยู่ในแดงแล้วล่ะ

ฉันคิดว่าเรื่องค้นหาสำหรับคนแรกล่าวอะไรสักอย่าง"ฮัลโหลโลก";โน้มที่เลือกค้นหาต่อไปสามตัวอักษรไปข้างหน้าสำหรับคำว่า"ทั้งหมด"อยู่ในตัวหนา;โน้มที่เลือกไว้(หากเป็นจริง)แล้วค้นหาต่อไปนิดสำหรับที่พูดคำว่า"ดี". นี่มันจะส่งผลให้ระบุตัวตนของทุกคำกับคนกล้าพูดแต่มันดูเหมือนจริงเสื่อมสภาพและไม่ปรับตัวเก่งนะ แล้วก็ต้องเลือกทั้งประโยค,ฉันต้องเขียนรหัสเพื่อย้ายการเลือกกลับไปเริ่มต้นและขยายส่วนที่เลือกไว้ไปข้างหน้า ถ้างั้นผมต้องการตั้งค่าการค้นหาเพื่อทำต่อไปข้างหน้าจากตำแหน่งแล้ว

มีบางอย่างง่าย/ง่าย/มากกแห่งเหล่าอัศวินราชินีและอสรทางการค้นหาสำหรับข้อความอยู่ไหนเดียวที่มีคำพูดภายในข้อความได้เจาะจงคุณสมบัติเหมือนตัวหนา? ฉันต้องการโดยเฉพาะการค้นหาที่จะไม่สนใจโหของคำที่ที่เกี่ยวข้อข่าวคือไม่ได้อยู่ในแดงแล้วล่ะ

ฉันต้องใช้เวลาไม่กี่ชั่วโมงค้นหาของกูเกิ้ลแล้ว stackflow และไม่สามารถหาอะไรเจอเกี่ยวกับเรื่องนี้

ฉันยังไม่ได้ส่งรหัสเพราะว่าฉันไม่เก่งมากในการเขียนรหัสและฉันอยากจะเข้าใจถ้ามีเรื่องมากเกี่ย/แบบเรียบร้อยสวยงามทางของการทำสิ่งที่ฉันต้องการ ที่ inflexible รากของฉันอธิบายอยู่เหนือมั inflexible ฉันไม่เต็มใจที่จะรบกวนถูกเข้ารหัสฉุกเฉินบางอย่าง

ขอบคุณ เจอเรมี่

Question 2

จากวิธีการผมจะใช้คือต้องการค้นหาสำหรับข้อความและถ้าเจอแล้วค้นหาข้อความสำหรับคำพูด นี่คือตัวอย่าง

Sub Demo()
    Dim StringRange As Range
    Dim MatchFound  As Boolean
    
    With ActiveDocument.Range.Find
        ' The string to find
        .Text = "Hello world, all is good"
        
        ' Search the document
        Do While .Execute
            ' Capture the string
            Set StringRange = .Parent.Duplicate
            
            With .Parent.Duplicate.Find
                ' The word to find
                .Text = "all"
                .Font.Bold = True
                
                ' Search the string
                If .Execute Then
                    MatchFound = True
                    StringRange.Select
                    
                    If MsgBox("Match found. Continue searching?", vbQuestion + vbYesNo) = vbNo Then
                        Exit Sub
                    End If
                End If
            End With
        Loop
        
        If MatchFound Then
            MsgBox "Finished searching document", vbInformation
        Else
            MsgBox "No match found", vbInformation
        End If
    End With
End Sub

Sam · Answer 1 · 2021-11-20T20:55:18

จากวิธีการผมจะใช้คือต้องการค้นหาสำหรับข้อความและถ้าเจอแล้วค้นหาข้อความสำหรับคำพูด นี่คือตัวอย่าง

Sub Demo()
    Dim StringRange As Range
    Dim MatchFound  As Boolean
    
    With ActiveDocument.Range.Find
        ' The string to find
        .Text = "Hello world, all is good"
        
        ' Search the document
        Do While .Execute
            ' Capture the string
            Set StringRange = .Parent.Duplicate
            
            With .Parent.Duplicate.Find
                ' The word to find
                .Text = "all"
                .Font.Bold = True
                
                ' Search the string
                If .Execute Then
                    MatchFound = True
                    StringRange.Select
                    
                    If MsgBox("Match found. Continue searching?", vbQuestion + vbYesNo) = vbNo Then
                        Exit Sub
                    End If
                End If
            End With
        Loop
        
        If MatchFound Then
            MsgBox "Finished searching document", vbInformation
        Else
            MsgBox "No match found", vbInformation
        End If
    End With
End Sub

ว้าว ขอบคุณมาก นี่คือสิ่งที่ฉันอยากจะทำ มันเป็นเหลือเชื่อใจกว้างของคุณที่จะเขียนรหัสออกมาแบบนี้ ขอบคุณ ฉันจะรู้สึกแปลกใจคำถามที่ไม่ได้มากขึ้นอีกเป็นประจำ. อีกครั้งขอบคุณ นั่นมันแน่นอนว่าสมบูรณ์แบบ

คำ VBA-หาข้อความข้อความที่มีหนึ่งคำ(ไม่ใช่คำทั้งหมดในข้อความ)มีรูปแบบเฉพาะหรือรูปแบบ

คำถาม

คำตอบที่ดีที่สุด

ในภาษาอื่นๆ

หน้านี้อยู่ในภาษาอื่นๆ

ดังอยู่ในนี้หมวดหมู่

ดังคำถามอยู่ในนี้หมวดหมู่