サムは、いくつかの行を削除したいいくつかのテーブルを含むドキュメントを持っています。行には特定のテキストが含まれており、検索と置換を使用して確実に削除できますが、そのテキストを含む行全体を削除したいと考えています。

Wordの通常の検索および置換機能を使用してこれを行う（行を削除する）方法はありません。代わりに、テキストを検索してから行全体を削除するマクロを使用する必要があります。これがその仕事をする比較的単純なマクロです：

Sub DeleteRowWithSpecifiedText()

Dim sText As String

sText = InputBox("Enter text for Row to be deleted")

Selection.Find.ClearFormatting     With Selection.Find         .Text = sText         .Wrap = wdFindContinue     End With     Do While Selection.Find.Execute         If Selection.Information(wdWithInTable) Then             Selection.Rows.Delete         End If     Loop End Sub

このマクロは、最初に、検索するテキストを指定するようにユーザーに求める入力ボックスを表示します。次に、そのテキストのすべてのインスタンスの検索を開始します。インスタンスが見つかった場合は、選択内容がチェックされ、テーブル内にあることを確認します。そうである場合、行全体が削除され、マクロは次のオカレンスに移動します。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13148）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link行の検索と削除。