Макрос на VBA думи / автоматично намиране и замяна на определени знаци за целия документ

Опитвам се да направя следното с помощта на макроса: При отваряне на документа, автоматично търсене в целия документ за скоби {{ }} и ги изтрийте, включително текста вътре. Не върши добре работата, работи само с избрания текст, а не с целия документ.

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

vba character ms-word
person user2607298    schedule 22.07.2013    source източник

Отговори (1)


arrow_upward
1
arrow_downward

Това ли търсите?

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
person MakeCents    schedule 26.07.2013