ReplacementList 属性

       

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

expression.ReplacementList(Index)

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

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

说明

如果未指定 Index,则本方法将返回一个二维数组。数组中每一行包含一对自动更正替换文本,如下表所示。

内容
1 要被替换的文本
2 替换文本

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

示例

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

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