go to word (relative) number

[wtbx]

Hello,

sorry if this has been brought up again, but i can't seem to find it.

What I am looking for is a macro that would get me to a specified
number of words (which I could define everytime i run the macro) down
the document, starting to count from the current selection point, not
from the beginning of the document.

Thanks in advance for any help,

Wtbx

 

[Graham Mayor]

I am sure there are more elegant ways to do this, but the following will
work:

Dim sCount, x
sCount = 0
sCount = InputBox("Number of Words?", "Find Word", 5)
For x = 1 To sCount
Selection.Find.ClearFormatting
With Selection.Find
.Text = "<*>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Next


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[wtbx]

Thanks for the prompt reply. It works fine!

Ï/Ç Graham Mayor Ýãñáøå: