Word VBA教程:Apply方法

应用于 AutoCorrectEntry对象的 Apply方法。

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

expression.Apply(Range)

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

Range  必需,Range对象。

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

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

expression.Apply

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

说明

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

VBA示例

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

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号