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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。