Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Avery 5267, how do I set up so labels read down
How do I get my Avery 5267 labels to print and read down?
|
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Avery 5267, how do I set up so labels read down
The short answer is that you don't. Word reads and writes from left to
write. However if you are merging labels and your data is in the form of a Word table (http://www.gmayor.com/convert_labels...mail_merge.htm ) you can use the following macro from fellow MVP Doug Robbins to re-order the data to format the labels as though they had been entered up and down. The defaults have been set as 4 across x 20 down which matches Avery 5267 Sub SortData() ' 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 = "4" ' 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 = "20" ' Set default. labelrows = InputBox(Message, Title, Default) With ActiveDocument.Tables(1) ..Columns.Add BeforeColumn:=ActiveDocument.Tables(1).Columns(1) ..Rows(1).Range.Cut End With 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 End Sub http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org LabelMakerGuru wrote: How do I get my Avery 5267 labels to print and read down? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Create Avery labels? | New Users | |||
can I use the avery std 8160 labels in place of 8250 labels? | New Users | |||
avery labels | Microsoft Word Help | |||
avery labels | Page Layout | |||
bar codes into avery labels 5160 like 2162 labels in ms word all. | Mailmerge |