detecting end of document / Find command

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

troubadour - 24 Jun 2005 17:25 GMT

Is there a general way in a macro to detect that the end of the document is
reached ?
Actually i am trying to do so that a Find command automaticaly stops at the
end of the document (not trying to do the same search from the top of my
document, that becomes completely messed up :-)

Thank you

Troubadour

Reply to this Message

Doug Robbins - 24 Jun 2005 19:49 GMT

Like this

' Macro to round all numbers in a document

' Macro created 19/7/00 by Doug Robbins

'

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="[0-9]{1,}.[0-9]{3,}", MatchWildcards: =
True, Wrap:=wdFindContinue, Forward:=True) = True
Selection.Range.Text = Round(Selection.Range.Text, 2)
Loop
End With

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> Is there a general way in a macro to detect that the end of the document
> is
[quoted text clipped - 7 lines]
>
> Troubadour

Reply to this Message