"コレクションの要求されたメンバーが存在しません" というエラーは、存在しないオブジェクトにアクセスしようとすると発生します。 たとえば、作業中の文書に少なくとも 1 つのテーブルが含まれていない場合、次の命令でエラーが発生する可能性があります。
Sub SelectTable()
ActiveDocument.Tables(1).Select
End Sub
コレクションのメンバーにアクセスするときにこのエラーが発生しないようにするには、コレクションのメンバーにアクセスする前に、そのメンバーが存在することを確認します。 インデックス番号でメンバーにアクセスする場合は、コレクションの Count プロパティを使用して、メンバーが存在するかどうかを判断できます。 次の使用例は、作業中の文書に表が 1 つ以上ある場合、最初の表を選択します。
Sub SelectFirstTable()
If ActiveDocument.Tables.Count > 0 Then
ActiveDocument.Tables(1).Select
Else
MsgBox "Document doesn't contain a table"
End If
End Sub
名前でコレクションのメンバーにアクセスしている場合は、For Each...Next ループを使用してコレクション内のメンバーを調べ、名前の指定されたメンバーがコレクションに含まれるかどうかを判断します。 次の使用例は、"acheive" という名前のオートコレクト項目が AutoCorrectEntries コレクションに含まれる場合、これを削除します。 詳細については、「 コレクションのループ処理」を参照してください。
Sub DeleteAutoTextEntry()
Dim aceEntry As AutoCorrectEntry
For Each aceEntry In AutoCorrect.Entries
If aceEntry.Name = "acheive" Then aceEntry.Delete
Next aceEntry
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。