Entries プロパティ

Entries プロパティ

オートコレクト項目の現在の一覧を表す AutoCorrectEntries コレクションを取得します。この一覧は、[オートコレクト] ダイアログ ボックス ([ツール] - [オートコレクト]) の [オートコレクト] タブに表示されるオートコレクト項目の一覧と対応しています。値の取得のみ可能です。

コレクションのメンバーを取得する方法については、「コレクションからオブジェクトを取得する」を参照してください。

使用例

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

MsgBox AutoCorrect.Entries.Count
		

次の使用例は、指定したオートコレクト項目が存在する場合、その項目を削除します。

Dim strEntry As String
Dim acEntry As AutoCorrectEntry
Dim blnMatch As Boolean
Dim intResponse As Integer

strEntry = InputBox("削除するオートコレクト項目を入力してください。")
blnMatch = False

For Each acEntry in AutoCorrect.Entries
    If acEntry.Name = strEntry Then
        blnMatch = True
        intResponse = _
            MsgBox("削除してよろしいですか。" _
            & acEntry.Name, 4)
        If intResponse = vbYes Then
            acEntry.Delete
        End If
    End If
Next acEntry

If blnMatch <> True Then
    MsgBox "オートコレクト項目がありません。: " & strEntry
End If