Insert 方法

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

expression.Insert(Where, RichText)

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

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

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

说明

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

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

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 类型，可选。设置寄信人邮政编码距离信封上边的位置（以磅为单位），用于亚洲信封。

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

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，则不用为此参数指定值。

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

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

本示例使用在 strAddr 和 strReturnAddr 变量中保存的地址向活动文档添加一个“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

本示例选取活动文档中第三个图形，检查该图形是否是一个 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