3

ハイパーリンクが散らばっている単語文書があります。リンク自体は正常に機能しますが、何らかの理由で、ほとんどのリンクが青色ではなくなりました! 私が本当にやりたいことは、マクロまたは何かを使用してドキュメントを調べ、各ハイパーリンクに「ハイパーリンク」スタイルのフォーマットを追加する方法を見つけようとすることだけです。

私はいくつかのマクロ コード (すべてのリンク URL を変更するもの) を自分で編集しようとしましたが、問題を悪化させ続けています! 以前は VBScript が得意でしたが、それから何年も経ちました。

各スタイルを手動で変更する必要のない簡単な解決策はありますか?

補足として、何らかの理由で、現在それらはすべて「通常」のスタイルになっています。

4

1 に答える 1

5

この VBA スクリプトを実行してみてください (デバッグ モードで F8 キーを使用するのが最適です。VBA と Word のウィンドウを並べて表示し、何が起こっているかを確認できます)。

Sub FormatLinks()
Dim H As Hyperlink

    For Each H In ActiveDocument.Hyperlinks
        H.Range.Select                                      ' (A)
        Selection.ClearFormatting                           ' (B)

        H.Range.Style = ActiveDocument.Styles("Hyperlink")  ' (C)
    Next H
End Sub

この意志

  • ドキュメント内のすべてのハイパーリンクを循環します (A)、
  • 下にあるテキスト (B) の書式設定をすべて削除し、
  • 依存しないテキストをスタイル「ハイパーリンク」に割り当てます (C)

(B) は既にドキュメントをサニタイズする必要があるため、(C) は厳密には必要ありませんが、後でスタイルを変更したい場合があるため、ハイパーリンクをスタイル "Hyperlink" に実際に割り当てた方がよい場合があります。

于 2013-03-01T11:05:49.440 に答える