Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Automatic number fill-in on Labels
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. |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Automatic number fill-in on Labels
See http://www.gmayor.com/Numbered_labels.htm.
-- Stefan Blom Microsoft Word MVP "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. |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Automatic number fill-in on Labels
See http://www.gmayor.com/Numbered_labels.htm.
-- Stefan Blom Microsoft Word MVP "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. |
#4
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. |
#5
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. |
#6
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Automatic number fill-in on Labels
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" wrote in message ... 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. |
#7
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Automatic number fill-in on Labels
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" wrote in message ... 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. |
Reply |
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 |