ReplacementList 属性

       

返回“自动更正”替换条目的数组。

expression.ReplacementList(Index)

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

Index   Variant 类型，可选。要返回的“自动更正”替换条目数组的行索引。该行以两元素的一维数组形式返回：第一个元素为第一列中的文本，第二个元素为第二列中的文本。

说明

可用 AddReplacement 方法向替换文本列表添加自动更正项。

示例

本示例在替换文本列表中搜索“Temperature”的替换条目，如果存在，则显示该替换条目。

repl = Application.AutoCorrect.ReplacementList
For x = 1 To UBound(repl)
    If repl(x, 1) = "Temperature" Then MsgBox repl(x, 2)
Next