Perhaps something like this:
Sub Test()
Dim oPar As Range
Dim i As Long
For i = 2 To ActiveDocument.Paragraphs.Count Step 2
Set oPar = ActiveDocument.Paragraphs(i).Range
oPar.MoveEnd wdCharacter, -1
oPar.InsertAfter " NEW"
Next
End Sub
--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.
Steved wrote:
Hello from Steved
I would like to type the word NEW and the end off every 2nd
paragraph.
This is in the same Document.
How would I go about this please.
Thankyou.