Word VBA教程:Insert方法

应用于 AutoTextEntry对象的 Insert方法。

在指定区域内的位置插入“自动图文集”词条,返回代表“自动图文集”词条的 Range对象。

expression.Insert(Where, RichText)

expression   必需。该表达式返回一个 AutoTextEntry对象。

Where  Range对象,必需。“自动图文集”词条的位置。

RichText  Variant 类型,可选。如果为 True,则插入“自动图文集”词条时,应用原来的格式。

说明

如果不想替换指定区域,在使用本方法之前可使用Collapse方法。

应用于 Envelope对象的 Insert方法,

在指定文档的开头以单独一节的形式插入一个信封。

expression.Insert(ExtractAddress, Address, AutoText, OmitReturnAddress, ReturnAddress, ReturnAutoText, PrintBarCode, PrintFIMA, Size, Height, Width, FeedSource, AddressFromLeft, AddressFromTop, ReturnAddressFromLeft, ReturnAddressFromTop, DefaultFaceUp, DefaultOrientation, PrintEPostage, Vertical, RecipientNamefromLeft, RecipientNamefromTop, RecipientPostalfromLeft, RecipientPostalfromTop, SenderNamefromLeft, SenderNamefromTop, SenderPostalfromLeft, SenderPostalfromTop)

expression   必需。该表达式返回一个 Envelope对象。

ExtractAddress  Variant 类型,可选。如果为 True,则将 EnvelopeAddress 书签(一个用户定义的书签)标识的文字用作收信人的地址。

Address  Variant 类型,可选。指定收信人地址(如果 ExtractAddress 为 True,则忽略该参数)的字符串。

AutoText  Variant 类型,可选。用以指定作为地址的“自动图文集”词条的字符串。如果指定了“自动图文集”词条,则忽略 Address。

OmitReturnAddress  Variant 类型,可选。如果为 True,则不插入寄信人地址。

ReturnAddress  Variant 类型,可选。指定寄信人地址的字符串。

ReturnAutoText  Variant 类型,可选。用以指定作为寄信人地址的“自动图文集”词条的字符串。如果指定了“自动图文集”词条,则忽略 ReturnAddress。

PrintBarCode  Variant 类型,可选。如果为 True,则添加一个 POSTNET 条形码,只用于美国邮件。

PrintFIMA  Variant 类型,可选。如果为 True,则为了便于预先识别礼仪性的答复邮件,需添加一个“即复标记”(Facing Identification Mark,缩写为 FIMA)。只用于美国邮件。

Size  Variant 类型,可选。指定信封大小的字符串。该字符串必须与“信封选项”对话框中“信封尺寸”框中列出的大小相匹配(例如,“10 型”或“C4”)。

Height  Variant 类型,可选。当 Size参数设置为“自定义大小”时,信封的高度(以磅为单位)。

Width  Variant 类型,可选。当 Size参数设置为“自定义大小”时,信封的宽度(以磅为单位)。

FeedSource  Variant 类型,可选。如果为 True,则使用 Envelope对象的 FeedSource属性指定在打印信封时所使用的纸盒。

AddressFromLeft  Variant 类型,可选。该参数指定信封左边与收信人地址之间的距离(以磅为单位)。

AddressFromTop  Variant 类型,可选。该参数指定信封上边与收信人地址之间的距离(以磅为单位)。

ReturnAddressFromLeft  Variant 类型,可选。该参数指定信封左边与寄信人地址之间的距离(以磅为单位)。

ReturnAddressFromTop  Variant 类型,可选。该参数指定信封上边与寄信人地址之间的距离(以磅为单位)。

DefaultFaceUp  Variant类型,可选。如果为 True,则将信封正面向上打印;为 False 则正面向下打印。

DefaultOrientation  Variant 类型,可选。信封方向。可以是下列WdEnvelopeOrientation 常量之一:

wdLeftPortrait
wdCenterPortrait
wdRightPortrait
wdLeftLandscape
wdCenterLandscape
wdRightLandscape
wdLeftClockwise
wdCenterClockwise
wdRightClockwise

PrintEPostage  Variant 类型,可选。如果为 True,则插入从 Internet 邮政供应商处获得的邮政。

Vertical  Variant 类型,可选。如果为 True 则在信封上打印垂直文本,用于亚洲信封。默认值为 False。

RecipientNamefromLeft  Variant 类型,可选。设置收信人姓名距离信封左边的位置(以磅为单位),用于亚洲信封。

RecipientNamefromTop  Variant 类型,可选。设置收信人姓名距离信封上边的位置(以磅为单位),用于亚洲信封。

RecipientPostalfromLeft  Variant 类型,可选。设置收信人邮政编码距离信封左边的位置(以磅为单位),用于亚洲信封。

RecipientPostalfromTop  Variant 类型,可选。设置收信人邮政编码距离信封上边的位置(以磅为单位),用于亚洲信封。

SenderNamefromLeft  Variant 类型,可选。设置寄信人姓名距离信封左边的位置(以磅为单位),用于亚洲信封。

SenderNamefromTop  Variant 类型,可选。设置寄信人姓名距离信封上边的位置(以磅为单位),用于亚洲信封。

SenderPostalfromLeft  Variant 类型,可选。设置寄信人邮政编码距离信封左边的位置(以磅为单位),用于亚洲信封。

SenderPostalfromTop  Variant 类型,可选。设置寄信人邮政编码距离信封上边的位置(以磅为单位),用于亚洲信封。

应用于 ShapeNodes对象的 Insert方法。

在任意多边形图形中插入顶点。

expression.Insert(Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

expression   必需。该表达式返回一个 ShapeNodes对象。

Index  Long 类型,必需。插入新顶点后,图形顶点的的数目。

SegmentType  MsoSegmentType,必需。将插入的顶点与邻近的顶点连接起来的线条类型。

MsoSegmentType 可以是下列 MsoSegmentType 常量之一:
msoSegmentLine
msoSegmentCurve

EditingType  MsoEditingType,必需。插入的顶点的编辑属性。

MsoEditingType 可以是下列 MsoEditingType 常量之一:
msoEditingAuto
msoEditingCorner
msoEditingSmooth
msoEditingSymmetric

X1   Single 类型,必需。如果新线段的 EditingType属性设置为 msoEditingAuto,则此参数指定从文档左上角到新线段终点的水平距离(以磅为单位)。如果新顶点的 EditingType属性设置为 msoEditingCorner,则此参数指定文档左上角到新线段第一个控制点的水平距离(以磅为单位)。

Y1   Single 类型,必需。如果新线段的 EditingType属性设置为 msoEditingAuto,则此参数指定从文档左上角到新线段终点的垂直距离(以磅为单位)。如果新顶点的 EditingType属性设置为 msoEditingCorner,则此参数指定文档从左上角到新线段第一个控制点的垂直距离(以磅为单位)。

X2   Single 类型,可选。如果新线段的 EditingType属性设置为 msoEditingCorner,则此参数指定从文档左上角到新线段第二个控制点的水平距离(以磅为单位)。如果新线段的 EditingType属性设置为 msoEditingAuto,则不用为此参数指定值。

Y2   Single 类型,可选。如果新线段的 EditingType属性设置为 msoEditingCorner,则此参数指定从文档左上角到新线段第二个控制点的垂直距离(以磅为单位)。如果新线段的 EditingType属性设置为 msoEditingAuto,则不用为此参数指定值。

X3   Single 类型,可选。如果新线段的 EditingType属性设置为 msoEditingCorner,则此参数指定从文档左上角到新线段终点的水平距离(以磅为单位)。如果新线段的 EditingType属性设置为 msoEditingAuto,则不用为此参数指定值。

Y3   Single 类型,可选。如果新线段的 EditingType属性设置为 msoEditingCorner,则此参数指定从文档左上角到新线段终点的垂直距离(以磅为单位)。如果新线段的 EditingType属性设置为 msoEditingAuto,则不用为此参数指定值。

VBA示例

当应用于 AutoTextEntry对象时。

本示例在选定内容的后面插入带格式的“自动图文集”词条“one”。


Sub InsertAutoTextEntry()
    ActiveDocument.Content.Select
    Selection.Collapse Direction:=wdCollapseEnd
    ActiveDocument.AttachedTemplate.AutoTextEntries("one").Insert _
        Where:=Selection.Range, RichText:=True
End Sub

当应用于 Envelope对象时。

本示例使用在strAddrstrReturnAddr 变量中保存的地址向活动文档添加一个“10 型”的信封。


Sub InsertEnvelope()
    Dim strAddr As String
    Dim strReturnAddr As String
    strAddr = "Max Benson" & vbCr & "123 Skye St." _
        & vbCr & "OurTown, WA 98107"
    strReturnAddr = "Paul Borm" & vbCr & "456 Erde Lane" _
        & vbCr & "OurTown, WA 98107"
    ActiveDocument.Envelope.Insert Address:=strAddr, _
        ReturnAddress:=strReturnAddr, Size:="Size 10"
End Sub

当应用于 ShapeNodes对象时。

本示例选取活动文档中第三个图形,检查该图形是否是一个 Freeform对象,如果是,则插入一个顶点。


Sub InsertShapeNode()
    ActiveDocument.Shapes(3).Select
    With Selection.ShapeRange
        If .Type = msoFreeform Then
            .Nodes.Insert _
                Index:=3, SegmentType:=msoSegmentCurve, _
                EditingType:=msoEditingSymmetric, x1:=35, y1:=100
            .Fill.ForeColor.RGB = RGB(0, 0, 200)
            .Fill.Visible = msoTrue
        Else
            MsgBox "This shape is not a Freeform object."
        End If
    End With
End Sub

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号