Paste text into word from excel

[ChuckBFL]

I am using the code below to search for a field and paste a block of text. This will paste over the text that I am searching for, how can i add text to the line after what I am searching for.



Set objRange = _ objWordDoc.ActiveWindow.Document.RangeStart:=0, End:=0)
With objRange.Find
.ClearFormatting
.Text = FieldToPasteOver
.Execute , Format:=True, MatchCase:=False, MatchWholeWord:=False
End With
With objRange
.Paste
For i = 1 To .Tables.Count
.Tables(i).ConvertToText " "
Next
End With