リンクとして表示されないリンクがいくつかあるMSWord文書があります。テキストの上にマウスを置くと、ターゲットURLが表示されます。右クリックして[ハイパーリンクの編集]を選択すると、ハイパーリンクのURLとテキストが表示されます。ただし、リンクの境界はドキュメントでは視覚的にわかりません。
Format Painterを使用して、新しい適切にスタイル設定されたハイパーリンクから不適切にフォーマットされた各ハイパーリンクにスタイルをコピーできますが、ドキュメントに多くのハイパーリンクがあり、そのエッジを見つけるのが難しいため、これには長い時間がかかります(これは問題)。 ドキュメント内のすべてのリンクをリンクのように表示するにはどうすればよいですか?
役立つ情報:クリックしてこれらのリンクの1つにカーソルを置き、[スタイル]ペインを開くと(Alt + Ctrl + Shift + Sまたは[ホーム]タブで、[スタイル]の右下隅にある矢印をクリック)、それらが表示されます。スタイルはハイパーリンクではなく標準です。
ドキュメントを開いた状態でAlt + F11を押して、Visual Basicエディターウィンドウを表示します。
[挿入]-> [モジュール]を選択して空のコードエディターを取得し、次の内容を貼り付けます。
Sub ApplyHyperlinkStyleToAllLinksInDoc()
For Each link In ActiveDocument.Hyperlinks
link.Range.Style = ActiveDocument.Styles("Hyperlink")
Next
End Sub
次に、このコードを強調表示して、実行(またはF5)を押します。
他のマクロと同様に、実行する前にドキュメントを保存する必要があります。
ドキュメント全体のハイパーリンクスタイルをカスタマイズする場合:
コードモジュールを特定のドキュメントの代わりに標準で保存し、多数のドキュメントでより迅速に使用したい場合は、ツールバーボタンまたはキーボードショートカットを割り当てることもできます。新しいドキュメントにも適用する場合は、標準テンプレートのスタイル変更を変更することもできます。