Delete blank lines at end of document

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

USAFA - 28 Feb 2005 20:51 GMT

I am trying to set up a macro that goes to the end of a document and deletes
the last 5 lines of the document (including a page break). The documents
vary in size so this macro needs to perform this function regardless of the
document size. I'm just learning how to write code, so I'd appreciate help
with this.

Reply to this Message

Helmut Weber - 01 Mar 2005 09:30 GMT

Hi,

in case you are talking of paragraphs,
not of lines
whether they are empty or not:

Dim l As Long
For l = 1 To 5
ActiveDocument.Paragraphs.Last.Range.Delete
Next

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Reply to this Message

USAFA - 01 Mar 2005 11:39 GMT

Helmut,
You've helped me once before & I thank you again for this info. And yes, I
meant paragraphs.

Cheers!
USAFA

> Hi,
>
[quoted text clipped - 11 lines]
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000

Reply to this Message

Rate this thread: