AddRichText 方法

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

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

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

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

示例

本示例将选定文本存储为带格式的“自动更正”词条。以后无论何时键入“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)