Удаление символов

[colen]

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

Спасибо. Все получается, если курсор стоит вначале текста.

[Aent]

Все получается, если курсор стоит вначале текста

Вставьте до поиска:

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

Selection.HomeKey Unit:=wdStory

P.S. Код для MS Word