Question

全部显示

应用于 AutoCorrectEntry 对象的 Apply 方法。

用指定的“自动更正”词条的值替换某一区域。

expression.Apply(Range)

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

Range必需，Range 对象。

应用于 Shape 或 ShapeRange 对象的 Apply 方法。

应用于使用 PickUp 方法复制的特定图形格式。

expression.Apply

expression 必需。该表达式返回以上的一个对象。

说明

如果以前没有使用 PickUp 方法复制 Shape 或 ShapeRange 对象的格式，则使用 Apply 方法将导致出错。

示例

当应用于 AutoCorrectEntry 对象时。

本示例添加一个“自动更正”替换词条，然后将“自动更正”词条“sr”应用于选定文字。

AutoCorrect.Entries.Add Name:= "sr", Value:= "Stella Richards"
AutoCorrect.Entries("sr").Apply Selection.Range

本示例将“自动更正”词条“sr”应用于活动文档的第一个单词。

AutoCorrect.Entries("sr").Apply ActiveDocument.Words(1)

当应用于 Shape 对象时。

本示例复制活动文档中第一个图形的格式，然后将其应用到同一文档的第二个图形。

With ActiveDocument
    .Shapes(1).PickUp
    .Shapes(2).Apply
End With