Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
Steved
 
Posts: n/a
Default every 2nd paragrah type the word NEW

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.
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Greg Maxey
 
Posts: n/a
Default every 2nd paragrah type the word NEW

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.



  #3   Report Post  
Posted to microsoft.public.word.docmanagement
Steved
 
Posts: n/a
Default every 2nd paragrah type the word NEW

Hello Greg from Steved

Thankyou.

"Greg Maxey" wrote:

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.




Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Word 97 in Windows XP to maintain formatting Charlie''s Word VBA questions Microsoft Word Help 22 May 20th 23 08:51 PM
hard space between words. Sandy L Microsoft Word Help 7 May 5th 06 08:25 PM
In Word, how do I surpress headers and footers on page 2 Bill Microsoft Word Help 1 December 15th 05 07:13 PM
How do I get rid of page numbers. The page number virus flamestar Microsoft Word Help 3 August 19th 05 02:31 AM
Macros - Keyboard Commands Janet Microsoft Word Help 6 April 11th 05 05:28 AM


All times are GMT +1. The time now is 03:46 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"