[austechwriter] Re: Code for "Do until end of document"

Petra (Liverani) wrote:
> I would like to create a recorded macro in Word 97 
> which stops when it gets to the end of the document. 

One method that could work is the following:

  Dim doc_len As Long
  doc_len = Selection.StoryLength - 1  'Excludes trailing para mark.

  Do While Selection.End < doc_len

    .

    .

    .

    Selection.EndKey

  Loop
(Unfortunately, the indentation and line-breaks above will probably get
mangled in this e-mail. I hope the code is still legible.)

Or you could process each of the items in a collection, such as:

  Dim para As Paragraph
  For Each para In ActiveDocument.Paragraphs
    .
    .
    .
  Next para
Alternatively, what I often do is simply record a macro that processes a
single paragraph or whatever (and leaves the insertion point in the next
paragraph), assign a keyboard shortcut to it, and then just hold down the
shortcut and watch the macro repeatedly do its stuff!

Hope that helps,
Craig 


**************************************************
To post a message to austechwriter, send the message to 
austechwriter@xxxxxxxxxxxxxx

To subscribe to austechwriter, send a message to 
austechwriter-request@xxxxxxxxxxxxx with "subscribe" in the Subject field.

To unsubscribe, send a message to austechwriter-request@xxxxxxxxxxxxx with 
"unsubscribe" in the Subject field.

To search the austechwriter archives, go to 
www.freelist.org/archives/austechwriter

To contact the list administrator, send a message to 
austechwriter-admins@xxxxxxxxxxxxx
**************************************************

Other related posts: