ワード

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