Word VBA教程:CreateNewDocument方法

应用于 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。

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号