Написать Макрос Word

  • Автор темы Hacker
  • Дата начала
H

Hacker

Гость
#1
У меня вот такая проблема. Мне нужно чтобы макрос искал текст по цвету и копировал его и вставил sub (текст) sub между этими словами. Я тут написал но не могу вставить найденного слова. Помjгите написать макрос пожалуйста!

Sub ChangeColorWithReplace()

Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorRed
Selection.Find.Replacement.ClearFor matting

With Selection.Find
.Text = ""
.Replacement.Text = "sub" тут должен текст "sub"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Результат

sub текст1 sub
sub текст2 sub
sub текст3 sub
sub текст4 sub

Заранее спасибо!
 

hosm

* so what *
18.05.2009
2 442
9
#2
мб, поможет ^& - искомый текст, т.е. попробуй
.Replacement.Text = "sub ^& sub"