セクション参照に自動的に下線を引く（Microsoft Word）
アグネスは、「セクション」という単語のすべてのインスタンスと、その単語に続く補助情報に自動的に下線を引く方法があるかどうかを尋ねました。
たとえば、ドキュメントに「セクション2.3（b）（i）」などのテキストが含まれている場合があります
または「セクション5.21」または「セクション12.12（a）」であり、アグネスはこのテキストを見つけて、すべてに下線を付けたいと考えています。
試すべきことがいくつかあります。まず、標準の検索と置換を実行できますが、それは、テキストをもう少し「標準」にすることができる場合に限られます。一致する可能性のあるある種のパターンがなければ、テキストのすべての可能なインスタンスを検索する検索と置換を実行することは事実上不可能です。
ただし、可能性は、すべての可能性を検討するマクロを記録することです。 「セクション」という単語の直後にスペース、数字、ピリオド、さらに数字が続き、（オプションで）閉じ括弧までのすべてを見つける必要があるため、必ずしも単純なマクロである必要はありません。これは、実行する必要のあるかなりのテキスト分析です。
開始する場所は、ワイルドカード検索です。次の検索フレーズでは、Sectionという単語の後に「numberdotnumber」が続きます
パターン：
Section [0-9]{1,}.[0-9]{1,}
この検索パターンがマクロで使用されている場合、マクロは、テキストが正常に検出されるたびに、検出されたものの展開を開始し、括弧内の文字が含まれているかどうかを確認できます。次のマクロはこのタスクを実行します。
Sub ULWords()
Selection.Find.ClearFormatting With Selection.Find .Text = "Section [0-9]{1,}.[0-9]{1,}"
.Replacement.Text = ""
.Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute While Selection.Find.Found Selection.MoveRight Unit:=wdCharacter, _ Count:=1, Extend:=wdExtend While Right(Selection.Text, 1) = "("
Selection.MoveRight Unit:=wdCharacter, _ Count:=1, Extend:=wdExtend While Right(Selection.Text, 1) <> ")"
Selection.MoveRight Unit:=wdCharacter, _ Count:=1, Extend:=wdExtend Wend Selection.MoveRight Unit:=wdCharacter, _ Count:=1, Extend:=wdExtend Wend Selection.MoveRight Unit:=wdCharacter, _ Count:=-1, Extend:=wdExtend Selection.Font.Underline = True Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Find.Execute Wend End Sub
マクロは最初にワイルドカード検索を使用して、「セクション」という単語の後に「番号ドット番号」が続くすべてのインスタンスを検索することに注意してください
パターン。インスタンスが見つかった場合は、1文字拡張されます。
その文字が開き括弧である場合、選択範囲は閉じ括弧が見つかるまで拡張されます。開き/閉じ括弧を見つけるこのプロセスは継続され、セットが見つからなくなると、拡張選択全体に下線が引かれます。このプロセスは、ドキュメント全体が検索されるまで続きます。
注：
このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（11516）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：
linkセクション参照に自動的に下線を引く。