Sub FindAndOperateTables() Dim doc As Document Set doc = ActiveDocument ' ワード文書内のテーブルをループ処理 For Each tbl In doc.Tables ' テーブル内のテキストを取得 Dim cellText As String cellText = tbl.Range.Text ' テキストに「うんち」が…