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

[Hacker]

У меня вот такая проблема. Мне нужно чтобы макрос искал текст по цвету и копировал его и вставил 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]

мб, поможет ^& - искомый текст, т.е. попробуй
.Replacement.Text = "sub ^& sub"

 

[Hacker]

Спасибо! Работает ураааааааааа