应用于 MailingLabel 对象的 CreateNewDocument 方法。
用默认或指定的标签选项新建一篇标签文档。返回代表新文档的 Document 对象。
expression.CreateNewDocument(Name, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)
expression 必需。该表达式返回上述对象之一。
Name Variant 类型,可选。邮件标签名称。
Address Variant 类型,可选。邮件标签的文本。
AutoText Variant 类型,可选。包含邮件标签文本的“自动图文集”词条的名称。
ExtractAddress Variant 类型,可选。如果该参数值为 True,则使用名为“EnvelopeAddress”的用户定义书签标记的地址文本,而不使用 Address 参数。
LaserTray Variant 类型,可选。激光打印机纸盒。其值可以取下列 WdPaperTray 常量之一。
WdPaperTray 可以是下列 WdPaperTray 常量之一: |
wdPrinterAutomaticSheetFeed |
wdPrinterDefaultBin |
wdPrinterEnvelopeFeed |
wdPrinterFormSource |
wdPrinterLargeCapacityBin |
wdPrinterLargeFormatBin |
wdPrinterLowerBin |
wdPrinterManualFeed |
wdPrinterManualEnvelopeFeed |
wdPrinterMiddleBin |
wdPrinterOnlyBin |
wdPrinterPaperCassette |
wdPrinterSmallFormatBin |
wdPrinterTractorFeed |
wdPrinterUpperBin |
PrintEPostageLabel Variant 类型,可选。如果该参数值为 True,则使用 Internet 电子邮政供应商打印邮政。
Vertical Variant 类型,可选。如果该参数值为 True,则将标签上的文本格式设为纵向。用于亚洲语言邮件标签。
应用于 Hyperlink 对象的 CreateNewDocument 方法。
新建一篇链接到指定超链接的文档。
expression.CreateNewDocument(FileName, EditNow, Overwrite)
expression 必需。该表达式返回上述对象之一。
FileName String 类型,必需。指定文档的文件名。
EditNow Boolean 类型,必需。如果该参数值为 True,则在相关编辑环境中立即打开指定文档。默认值为 True。
Overwrite Boolean 类型,必需。如果该参数值为 True,则覆盖相同文件夹中任何现有的同名文件。如果该参数值为 False,则保留所有现有的同名文件,并且参数 FileName 将指定一个新的文件名。默认值为 False。
本示例用预定义的地址新建一篇 Avery 2160 微型标签文档。
addr = "Dave Edson" & vbCr & "123 Skye St." _
& vbCr & "Our Town, WA 98004"
Application.MailingLabel.CreateNewDocument _
Name:="2160 mini", Address:=addr, ExtractAddress:=False
本示例以所选文本作为地址,新建一篇 Avery 5664 航运型标签文档。
addr = Selection.Text
Application.MailingLabel.CreateNewDocument _
Name:="5664", Address:=addr, _
LaserTray:=wdPrinterUpperBin
本示例使用书签“EnvelopeAddress”的文本作为地址,新建一篇不干胶标签文档。
If ActiveDocument.Bookmarks.Exists("EnvelopeAddress") = True Then
Application.MailingLabel.CreateNewDocument _
Name:="Self Adhesive Tab 1 1/2""", ExtractAddress:=True
End If
本示例基于第一篇文档中新的超链接新建一篇文档,然后在 Microsoft Word 中加载该文档进行编辑。该文档名为“Overview.doc”,它将覆盖“\\Server1\Annual”文件夹中的任何同名文件。
With Documents(1)
Set objHyper = _
.Hyperlinks.Add(Anchor:=Selection.Range, _
Address:="\\Server1\Annual\Overview.doc")
objHyper.CreateNewDocument _
FileName:="\\Server1\Annual\Overview.doc", _
EditNow:=True, Overwrite:=True
End With