Word) (AutoCorrect.Entries 屬性
會傳回代表目前自動校正專案清單的 AutoCorrectEntries 集合。
expression。 Entries
表達 代表 '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
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。