написать макрос копировать и вставить

[nur91m]

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

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

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

[Sasha_Smirnov]

Sub Макрос1()
Selection.HomeKey wdStory   'перемещение курсора (если он вдруг не там) в начало текста
    With Selection.Find
    .ClearFormatting                    'очистка предудущего состояния текстбокса поиска
    .Replacement.ClearFormatting        'очистка предудущего состояния текстбокса замены
    .Font.Color = wdColorRed            'искомый цвет текста (здесь = 255, т. е. красный)
    .Text = ""                          'очистка окна поиска (там мог храниться текст)
    .Replacement.Text = "sub ^& sub^p"  'окно замены, где: ^& искомый текст, а ^p абзац
    .Wrap = wdFindContinue              'поиск идёт пока всё не отыщет
'А далее можно сделать цикл (поставив wdReplaceOne вместо wdReplaceAll) - чтобы не было дублей "sub "
    .Execute Replace:=wdReplaceAll      'замена по всему тексту
    .Replacement.Text = ""              'убрали мусор из диалогового окна поиска-замены
    End With
End Sub

[nur91m]

Sasha оргомное вам спасибо.
Если вы не против не скажете как написать макрос чтобы он саделал вот так:

tema1
text1 text1 text1 text1 text1 text1 text1

tema2
'tema2', text2 text2 text2 text2 text2 text2 text2

tema3
'tema3', text3 text3 text3 text3 text3 text3 text3

INPUT VALUE ('tema1', text1 text1 text1 text1 text1 text1 text1)
INPUT VALUE ('tema2', text2 text2 text2 text2 text2 text2 text2)
INPUT VALUE ('tema3', text3 text3 text3 text3 text3 text3 text3)