vba - 2 つの単語の間のテキストを選択し、空行を削除する

Question

Word 文書で 2 つのプレースホルダーの間にある空の行を削除しようとしています。

1. ドキュメント全体でプレースホルダーの位置を見つける方法がわかりません。

2. プレースホルダー間を検索し、複数のキャリッジ リターンを 1 つのキャリッジ リターンに置き換える方法がわかりません。

ここでコードを変換しようとしましたが、機能しませんでした。

Answer 1

プレースホルダーが常に同じである場合は、Word の [検索と置換] ダイアログからすべてを実行できます。コードは必要ありません。

たとえば、複数の改行を置き換えるには:

• Ctrl+H
• 「ワイルドカードを使用」をオンにする
• 検索: (Placeholder1)^13{2,}(Placeholder2) \括弧を含める
• 置換: \1 ^13 \2

これをより大きなコード ブロックに組み込みたい場合:

With Selection.Find
    .Text = "(Placeholder1)^13{2,}(Placeholder2)"
    .Replacement.Text="\1" & " ^13 " & "\2"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Execute
End With

それがうまくいくかどうか教えてください。