VBA word macro/автоматически найти и заменить определенные символы для всего документа

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