|
|
|
новичок
участник
Last Login: 08.08.2007 7:11
Сообщ.: 4,
Visits: 9
|
|
Нужно в тексте редактора Word найти все вхождения слов (и цифр) в скобках, и заменить текст в скобках на другой текст, но при этом сами скобки не должны участвовать в поиске и замене.
Пробовал так (с подстановочными знаками): "\(*\)", при этом выделялись слова вместе со скобками. А нужно, чтобы выделялся только текст внутри скобок.
Подскажите пожалуйста, а то с логикой плохо.
Спасибо.
|
|
|
|
|
новичок
участник
Last Login: 26.02.2008 16:06
Сообщ.: 8,
Visits: 21
|
|
Sub Замена()
5 Selection.Find.ClearFormatting
With Selection.Find
.Text = "("
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
End With
If Not Selection.Find.Execute Then GoTo 99
Selection.MoveRight Unit:=wdCharacter, Count:=1
10 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Right(Selection, 1) <> ")" Then GoTo 10
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.TypeText Text:="*******"
Selection.MoveRight Unit:=wdCharacter, Count:=1
GoTo 5
99 End Sub
Ищет любой текст в скобках и заменяет на *******
|
|
|
|