Home |
Search |
Today's Posts |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Automatic number fill-in on Labels
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. |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
creating automatic fill in header of locked 2007 word document | Microsoft Word Help | |||
HELP!! Automatic Fill in the Header of a locked 2007 Word Document | Microsoft Word Help | |||
User keys in serial number range, labels auto-fill | Tables | |||
Envelope addresses automatic fill in for country | Microsoft Word Help | |||
How do I make an automatic number small caps under Number Format? | Microsoft Word Help |