Developing.ru

Aent писал(а):colen,
Для Excel

Код: Выделить всё

MyRegion.Replace What:="{*}", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _  
                           SearchFormat:=False, ReplaceFormat:=False

Для Word

Код: Выделить всё

    With Selection.Find
         .ClearFormatting
         .Replacement.ClearFormatting
         .Text = "[{]*[}]"
         .Replacement.Text = ""
         .Forward = True
         .MatchWildcards = True
         .Execute Replace:=wdReplaceAll
    End With

&quot писал(а):Все получается, если курсор стоит вначале текста

Selection.HomeKey Unit:=wdStory