Question

全部显示

应用于 AutoTextEntry 对象的 Insert 方法。

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

expression.Insert(Where, RichText)

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

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

RichTextVariant 类型，可选。如果为 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 对象。

ExtractAddressVariant 类型，可选。如果为 True，则将 EnvelopeAddress 书签（一个用户定义的书签）标识的文字用作收信人的地址。

AddressVariant 类型，可选。指定收信人地址（如果 ExtractAddress 为 True，则忽略该参数）的字符串。

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

OmitReturnAddressVariant 类型，可选。如果为 True，则不插入寄信人地址。

ReturnAddressVariant 类型，可选。指定寄信人地址的字符串。

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

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

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

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

HeightVariant 类型，可选。当 Size 参数设置为“自定义大小”时，信封的高度（以磅为单位）。

WidthVariant 类型，可选。当 Size 参数设置为“自定义大小”时，信封的宽度（以磅为单位）。

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

AddressFromLeftVariant 类型，可选。该参数指定信封左边与收信人地址之间的距离（以磅为单位）。

AddressFromTopVariant 类型，可选。该参数指定信封上边与收信人地址之间的距离（以磅为单位）。

ReturnAddressFromLeftVariant 类型，可选。该参数指定信封左边与寄信人地址之间的距离（以磅为单位）。

ReturnAddressFromTopVariant 类型，可选。该参数指定信封上边与寄信人地址之间的距离（以磅为单位）。

DefaultFaceUpVariant类型，可选。如果为 True，则将信封正面向上打印；为 False 则正面向下打印。

DefaultOrientationVariant 类型，可选。信封方向。可以是下列 WdEnvelopeOrientation 常量之一：

wdLeftPortrait

wdCenterPortrait

wdRightPortrait

wdLeftLandscape

wdCenterLandscape

wdRightLandscape

wdLeftClockwise

wdCenterClockwise

wdRightClockwise

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

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

RecipientNamefromLeftVariant 类型，可选。设置收信人姓名距离信封左边的位置（以磅为单位），用于亚洲信封。

RecipientNamefromTopVariant 类型，可选。设置收信人姓名距离信封上边的位置（以磅为单位），用于亚洲信封。

RecipientPostalfromLeftVariant 类型，可选。设置收信人邮政编码距离信封左边的位置（以磅为单位），用于亚洲信封。

RecipientPostalfromTopVariant 类型，可选。设置收信人邮政编码距离信封上边的位置（以磅为单位），用于亚洲信封。

SenderNamefromLeftVariant 类型，可选。设置寄信人姓名距离信封左边的位置（以磅为单位），用于亚洲信封。

SenderNamefromTopVariant 类型，可选。设置寄信人姓名距离信封上边的位置（以磅为单位），用于亚洲信封。

SenderPostalfromLeftVariant 类型，可选。设置寄信人邮政编码距离信封左边的位置（以磅为单位），用于亚洲信封。

SenderPostalfromTopVariant 类型，可选。设置寄信人邮政编码距离信封上边的位置（以磅为单位），用于亚洲信封。

应用于 ShapeNodes 对象的 Insert 方法。

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

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

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

IndexLong 类型，必需。插入新顶点后，图形顶点的的数目。

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

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

msoSegmentLine

msoSegmentCurve

EditingTypeMsoEditingType，必需。插入的顶点的编辑属性。

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

示例

当应用于 AutoTextEntry 对象时。

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

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

当应用于 Envelope 对象时。

本示例使用在 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

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