Question

全部显示

应用于 MailingLabel 对象的 CreateNewDocument 方法。

用默认或指定的标签选项新建一篇标签文档。返回代表新文档的 Document 对象。

expression.CreateNewDocument(Name, Address, AutoText, ExtractAddress, LaserTray, PrintEPostageLabel, Vertical)

expression 必需。该表达式返回上述对象之一。

Name Variant 类型，可选。邮件标签名称。

AddressVariant 类型，可选。邮件标签的文本。

AutoTextVariant 类型，可选。包含邮件标签文本的“自动图文集”词条的名称。

ExtractAddressVariant 类型，可选。如果该参数值为 True，则使用名为“EnvelopeAddress”的用户定义书签标记的地址文本，而不使用 Address 参数。

LaserTrayVariant 类型，可选。激光打印机纸盒。其值可以取下列 WdPaperTray 常量之一。

WdPaperTray 可以是下列 WdPaperTray 常量之一：

wdPrinterAutomaticSheetFeed

wdPrinterDefaultBin

wdPrinterEnvelopeFeed

wdPrinterFormSource

wdPrinterLargeCapacityBin

wdPrinterLargeFormatBin

wdPrinterLowerBin

wdPrinterManualFeed

wdPrinterManualEnvelopeFeed

wdPrinterMiddleBin

wdPrinterOnlyBin

wdPrinterPaperCassette

wdPrinterSmallFormatBin

wdPrinterTractorFeed

wdPrinterUpperBin

PrintEPostageLabelVariant 类型，可选。如果该参数值为 True，则使用 Internet 电子邮政供应商打印邮政。

VerticalVariant 类型，可选。如果该参数值为 True，则将标签上的文本格式设为纵向。用于亚洲语言邮件标签。

应用于 Hyperlink 对象的 CreateNewDocument 方法。

新建一篇链接到指定超链接的文档。

expression.CreateNewDocument(FileName, EditNow, Overwrite)

expression 必需。该表达式返回上述对象之一。

FileNameString 类型，必需。指定文档的文件名。

EditNowBoolean 类型，必需。如果该参数值为 True，则在相关编辑环境中立即打开指定文档。默认值为 True。

OverwriteBoolean 类型，必需。如果该参数值为 True，则覆盖相同文件夹中任何现有的同名文件。如果该参数值为 False，则保留所有现有的同名文件，并且参数 FileName 将指定一个新的文件名。默认值为 False。

示例

当应用于 MailingLabel 对象时。

本示例用预定义的地址新建一篇 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

当应用于 Hyperlink 对象时。

本示例基于第一篇文档中新的超链接新建一篇文档，然后在 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