Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
![]()
I'd like to be able to tab down when making labels in Word.
|
#2
![]()
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
![]()
Not really sure what you mean.
If you want the labels to be arrange down then across rather than across rather than down, and you are using mailmerge, you can use the following macro to sort the data source ' Macro to assign numbers to data source so that it can be sorted to cause labels to print down columns Dim Message, Title, Default, labelrows, labelcolumns, i As Integer, j As Integer, k As Integer Message = "Enter the number of labels in a row" ' Set prompt. Title = "Labels per Row" ' Set title. Default = "3" ' Set default. ' Display message, title, and default value. labelcolumns = InputBox(Message, Title, Default) Message = "Enter the number of labels in a column" ' Set prompt. Title = "Labels per column" ' Set title. Default = "5" ' Set default. labelrows = InputBox(Message, Title, Default) ActiveDocument.Tables(1).Columns.Add BeforeColumn:=ActiveDocument.Tables(1).Columns(1) ActiveDocument.Tables(1).Rows(1).Range.Cut k = 1 For i = 1 To ActiveDocument.Tables(1).Rows.Count - labelcolumns For j = 1 To labelrows ActiveDocument.Tables(1).Cell(i, 1).Range.InsertBefore k + (j - 1) * labelcolumns i = i + 1 Next j k = k + 1 i = i - 1 If k Mod labelcolumns = 1 Then k = k - labelcolumns + labelcolumns * labelrows Next i ActiveDocument.Tables(1).Sort FieldNumber:="Column 1" ActiveDocument.Tables(1).Rows(1).Select Selection.Paste ActiveDocument.Tables(1).Columns(1).Delete Another way is to format the document with the necessary number of columns to match the columns on your label stock and then insert a single column table in the columns. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP "steve" wrote in message ... I'd like to be able to tab down when making labels in Word. |
#3
![]()
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
![]()
From a different perspective, have you simply created a label document that
you are typing names & addresses into? If that is the case you're actually dealing with a table - you can navigate down a column by using the DownArrow key, but depending on the label layout you may have to press it more than once to get from one label to the next. -- HTH |:) Bob Jones [MVP] Office:Mac "steve" wrote in message ... I'd like to be able to tab down when making labels in Word. |
Reply |
Thread Tools | |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
making address labels from word address list | Mailmerge | |||
Mail merge to continuous labels skips labels between pages | Mailmerge | |||
I cannot add a Titel (Mrs; Mr. €¦) when making labels from Word 200 | Microsoft Word Help | |||
Making labels with numbers | Mailmerge | |||
Making Labels in Word 2002 | Mailmerge |