Sub FindAndOperateTables() Dim doc As Document Set doc = ActiveDocument ' ワード文書内のテーブルをループ処理 For Each tbl In doc.Tables ' テーブル内のテキストを取得 Dim cellText As String cellText = tbl.Range.Text ' テキストに「うんち」が含まれているか確認 If InStr(1, cellText, "うんち") > 0 Then ' 「うんち」が含まれている場合、ここで必要な操作を実行 ' たとえば、テーブルを削除する場合は次のコードを使用します。 tbl.Delete End If Next tbl End Sub