See the second method on the page linked by Stefan and use the following
version of the macro listed there to increment the numbers by 5
Sub FRWithSequentialNumber()
Dim findText As String
Dim startNum As String
Dim myRange As Range
Set myRange = ActiveDocument.Range
startNum = 1
findText = "******"
With myRange.Find
.Text = findText
.MatchWholeWord = True
While .Execute
myRange.Text = Format(startNum, "0000")
If startNum = 1 Then
startNum = startNum + 4
Else
startNum = startNum + 5
End If
myRange.Collapse direction:=wdCollapseEnd
Wend
End With
End Sub
I think I may now have to update the add-in on that page to allow for such
number sequencing
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
"Bridgett" wrote in message
...
Is it possible to have word automatically fill in a series of numbers on
Labels. I need a set of labels, counting by fives, from 1 to 3500. Just
wishing I didn't have to key in every number....0001-0005, etc.