AutoCorrect.Entries プロパティ (Word)

オートコレクト エントリの現在のリストを表す AutoCorrectEntries コレクションを返します。

構文

Entries

'AutoCorrect' オブジェクトを表す変数。

注釈

この一覧は、[オートコレクト] ダイアログ ボックスの [ オートコレクト ] タブの オートコレクト エントリの一覧に対応します。 読み取り専用です。 コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。

次の使用例は、オートコレクト項目の総数を表示します。

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 のサポートおよびフィードバックを参照してください。