Avery labels list needed

[Guy Cohen]

Hi all.
I am trying to figure out what to put here:

Call WordApp.MailingLabel.CreateNewDocument(X <- HERE

Size = 63.5 mm * 38.1 mm

I need a list of Avery labels names in VBA.

Please advise.
TIA
Guy

 

[dz]

Hey Mike,

Would calling up the envelopes/labels dialog box for you?
Unfortunately, I don't think you can get to the labels
options dialog box itself directly.

'User needs to click on the Options button when dialog
opens up,
'but then you are not limited to just Avery Labels this
way either

Dim strLabelNum As String
Dialogs(wdDialogToolsCreateLabels).Display
strLabelNum = Dialogs(wdDialogToolsCreateLabels).CustomName

'Then to use it in a merge:

Application.MailingLabel.DefaultPrintBarCode = False
Application.MailingLabel.CreateNewDocument
Name:=strLabelNum, Address:="", _
AutoText:="ToolsCreateLabels1",
LaserTray:=wdPrinterManualFeed, _
ExtractAddress:=False, PrintEPostageLabel:=False,
Vertical:=False
End Sub

dz