指定されたコレクションのメンバーは存在しません。

"コレクションの要求されたメンバーが存在しません" というエラーは、存在しないオブジェクトにアクセスしようとすると発生します。 たとえば、作業中の文書に少なくとも 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 のサポートおよびフィードバックを参照してください。