Add Method (CustomLabels Collection) Example

This example adds a custom mailing label named "My Label," sets the page size, and then creates a page of these labels.

Set ml = Application.MailingLabel.CustomLabels _
    .Add(Name:="My Label", DotMatrix:=False)
ml.PageSize = wdCustomLabelLetter
addr = "Dave Edson" & vbCr & "123 Skye St." & vbCr _
    & "Our Town, WA  98004"
Application.MailingLabel.CreateNewDocument _
    Name:="My Label", Address:=addr, ExtractAddress:=False