VBA 字宏/自動查找和替換整個文檔的特定字符

Question

我正在嘗試使用宏執行以下操作：打開文檔后，自動在整個文檔中搜索方括號{{ }}並刪除它們，包括其中的文本。 它不能很好地完成這項工作，只是對選定的文本進行操作，而不是整個文檔。

Sub SelectToBracketsDelete()
  With Selection.Find
    .ClearFormatting
    .Text = "{{"
    .Forward = False
    .Wrap = wdFindStop
    .Execute
  End With
  Selection.Extend
  With Selection.Find
    .Text = "}}"
    .Forward = True
    .Execute
    .Text = ""
  End With
  Selection.Text = ""
End Sub

Answer 1

這是你想要的？

Word 2007 -> stackoverflow

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = "\{\{*\}\}"
   .Replacement.Text = ""
   .Forward = True
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = True
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll