使用VBA在Word中搜索帶有Content.Find對象的文本，並恢復找到的文本

Question

我想搜索整個MSWord文檔以查找帶有通配符的文本並恢復找到的字符串。

類似的東西：

Sub Macro1() 
    Dim c As Range 
    Set c = ActiveDocument.Contentsdf 
    c.Find.ClearFormatting 
    c.Find.Replacement.ClearFormatting 
    With c.Find 
     .Text = "start[abcde]end" 
     .Replacement.Text = "" 
     .Forward = True 
     .wrap = wdFindStop 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchWildcards = True 
     .MatchSoundsLike = False 
     .MatchAllWordForms = False ' 
    End With 

    c.Find.Execute 
    While c.Find.Found 
     Debug.Print c.Find.TextFound 
     c.Find.Execute 
    Wend 
End Sub 

但c.Find.TextFound不存在的方法。有什麼方法可以在沒有重複發生的情況下恢復文本到Selection.Text？

Answer 1

試試這個。

Sub Sample() 
    Dim c As Range 
    Dim StartWord As String, EndWord As String 

    StartWord = "Start": EndWord = "End" 

    Set c = ActiveDocument.Content 
    c.Find.ClearFormatting 
    c.Find.Replacement.ClearFormatting 
    With c.Find 
     .Text = StartWord & "*" & EndWord 
     .Replacement.Text = "" 
     .Forward = True 
     .Wrap = wdFindStop 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchWildcards = True 
     .MatchSoundsLike = False 
     .MatchAllWordForms = False ' 
    End With 

    c.Find.Execute 
    While c.Find.Found 
     Debug.Print c.Text 
     '~~> I am assuming that the start word and the end word will only 
     '~~> be in the start and end respectively and not in the middle 
     Debug.Print Replace(Replace(c.Text, StartWord, ""), EndWord, "") 
     c.Find.Execute 
    Wend 
End Sub