Automatic number fill-in on Labels

[Bridgett]

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.

[Stefan Blom]

See http://www.gmayor.com/Numbered_labels.htm.

--
Stefan Blom
Microsoft Word MVP

"Bridgett" <Brid...@discussions.microsoft.com> wrote in message
news:9D380870-FF28-4227...@microsoft.com...

[Graham Mayor]

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" <Brid...@discussions.microsoft.com> wrote in message
news:9D380870-FF28-4227...@microsoft.com...

[Graham Mayor]

I have now modified the add-ins on my web site to allow the labels to be
incremented other than by 1 http://www.gmayor.com/Numbered_labels.htm

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

"Graham Mayor" <gma...@REMOVETHISmvps.org> wrote in message
news:ezKwtXPv...@TK2MSFTNGP05.phx.gbl...