閱讀英文

共用方式為


Word) (AutoCorrect.Entries 屬性

會傳回代表目前自動校正專案清單的 AutoCorrectEntries 集合。

語法

expressionEntries

表達 代表 'AutoCorrect' 物件的變數。

註解

此清單會對應至 [自動校正] 對話方塊之 [自動校正] 索引標籤上的自動校正項目清單。 唯讀。 如需傳回集合中單一成員的資訊,請參閱 從集合傳回物件

範例

這個範例顯示自動校正項目總數。

MsgBox AutoCorrect.Entries.Count

這個範例移除既有的指定自動校正項目。

Dim strEntry As String 
Dim acEntry As AutoCorrectEntry 
Dim blnMatch As Boolean 
Dim intResponse As Integer 
 
strEntry = InputBox("Enter the AutoCorrect entry to delete.") 
blnMatch = False 
 
For Each acEntry in AutoCorrect.Entries 
 If acEntry.Name = strEntry Then 
 blnMatch = True 
 intResponse = _ 
 MsgBox("Are you sure you want to delete " _ 
 & acEntry.Name, 4) 
 If intResponse = vbYes Then 
 acEntry.Delete 
 End If 
 End If 
Next acEntry 
 
If blnMatch <> True Then 
 MsgBox "There was no AutoCorrect entry: " & strEntry 
End If

另請參閱

AutoCorrect 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應