Word VBA教程:AddRichText方法

创建带格式的“自动更正”词条,保留选定范围的所有文本属性。返回 AutoCorrectEntry对象。如果使用该方法添加词条,则该词条的 RichText属性将返回 True。如果未使用 AddRichText方法,则添加的“自动更正”词条将设置为当前样式。

expression.AddRichText(Name, Range)

expression   必需。返回 AutoCorrectEntries对象的表达式。

Name   String 类型,必需。指将为 Range对象自动替换的文本。

Range   Range对象,必需。指在键入 Name 时 Word 自动插入的带格式的文本。

VBA示例

本示例将选定文本存储为带格式的“自动更正”词条。以后无论何时键入“NewText”时,该词条都将自动插入。


If Selection.Type = wdSelectionNormal Then
    AutoCorrect.Entries.AddRichText "NewText", Selection.Range
Else
    MsgBox "You need to select some text."
End If

本示例将活动文档中的第三个单词存储为带格式的“自动更正”词条。以后只要键入“NewText”,该词条就会自动插入。


AutoCorrect.Entries.AddRichText "NewText", ActiveDocument.Words(3)

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号