Как Написать Макрос Копировать Вставить

[Hacker]

Как написать макрос чтобы он саделал вот так:

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)


Вот я сам написал что то вроде этого но не могу справится со вторым


Sub ChangeColorWithReplace()

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

With Selection.Find
.Text = ""
.Replacement.Text = "INPUT VALUE ('^&', text1 text1 text1 text1 text1 text1 text1)"
.Forward = True
.Wrap = wdFindContinue

End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub