how do i delete every other line (all line 2's) in a page?

[Guest]

how do i delete every other line (all line 2's) in a page?

 

[Suzanne S. Barnhill]

If you will tell us why you want to do this, we may be able to come up with
a solution. Are the lines blank, or do they contain text? Do they end in
paragraph marks?

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Guest]

the reason is it contains text

If you will tell us why you want to do this, we may be able to come up with
a solution. Are the lines blank, or do they contain text? Do they end in
paragraph marks?

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Greg Maxey]

how do i delete every other line (all line 2's) in a page?

Interesting question. (all line 2's). lines *in* a page?

If you have a page with lines *on* it then wouldn't there only be one
line 2?

Your follow up explanation wasn't much better. However, here is one
way. Run this macro:


Sub Test()
Selection.WholeStory
Selection.Collapse
Selection.MoveDown wdLine, 1
On Error GoTo Handler
Do
Selection.Bookmarks("\Line").Select
Selection.Delete
Selection.MoveDown wdLine, 1
Loop
Handler:
End Sub