every 2nd paragrah type the word NEW

[Guest]

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.

 

[Greg Maxey]

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

 

[Guest]

Hello Greg from Steved

Thankyou.

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.