Question

Application AutoCorrect AutoCorrectEntries (AutoCorrectEntry)

由 AutoCorrectEntry 对象所组成的集合，该集合代表了所有可用的 Word“自动更正”词条。AutoCorrectEntries 集合包括所有在“自动更正”对话框（“工具”菜单）中显示的“自动更正”词条。

使用 AutoCorrectEntries 集合

用 Entries 属性可返回 AutoCorrectEntries 集合。下列示例显示 AutoCorrectEntries 集合中 AutoCorrectEntry 对象的数量。

MsgBox AutoCorrect.Entries.Count

用 Add 或 AddRichText 方法可在有效词条的列表中添加“自动更正”词条。下列示例为单词“their”的错误拼写添加纯文本格式的“自动更正”词条。

AutoCorrect.Entries.Add Name:="thier", Value:="their"

下列示例按照选定部分的文字和格式创建一个名为“PMO”的“自动更正”词条。

AutoCorrect.Entries.AddRichText Name:="PMO", Range:=Selection.Range

用 Entries(index) 可返回单个 AutoCorrectEntry 对象，其中index 是“自动更正”词条的名称或索引序号。名称的拼写必须与“自动更正”对话框内的“替换”下所显示的完全匹配（但大小写不必匹配）。下列示例为已存在的名为“the”的“自动更正”词条设置更正值。

AutoCorrect.Entries("teh").Value = "the"

下列示例显示第一个“自动更正”词条的名称和更正值。

MsgBox "Name = " & AutoCorrect.Entries(1).Name & vbCr & _
 "Value " & AutoCorrect.Entries(1).Value