[[20190910233317]]　『ドキュメント内のハイパーリンクを一括で変更する』（DK）　ページの最後に飛ぶ

『ドキュメント内のハイパーリンクを一括で変更する方法』（DK）

お世話になります。
会社のPCでExcelを使っています。

作業手順書内にところどころファイルサーバーのパスが載っていて、
ハイパーリンクが貼られています。
しかし、そのファイルサーバーのパスが変わったため
それらを変更する必要があります。

文字列だけなら「置換」で簡単なのですが、
設定されたリンクは変更されません。
HYPELINK関数を使う手もあるようですが、
リンクは色々な場所に散らばっておりまとまっていないため手間がかかります。
「置換」のように散らばっていても一括で変更する手順はないものでしょうか？

以上よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 例えばこんなマクロでできませんか？
 Sub test()
     Const oldFileserver As String = "○○" 'ここに現ファイルサーバー名を入れる
     Const newFileServer As String = "●●" 'ここに新ファイルサーバー名を入れる
     Dim ws As Worksheet
     Dim h  As Hyperlink

     For Each ws In Worksheets
         For Each h In ws.Hyperlinks
             h.Address = Replace(h.Address, oldFileserver, newFileServer)
         Next
     Next
 End Sub

（γ） 2019/09/11(水) 07:17

普通の置換でもできますが、.TextToDisplay も一緒に変換してしまったほうがよいかもしれない。

h.TextToDisplay = Replace(h.TextToDisplay, oldFileserver, newFileServer)
を挿入して下さい。
（γ） 2019/09/11(水) 12:26

遅くなり申し訳ございません。
マクロじゃないと難しいでしょうか？
マクロ導入となると敷居が高いので・・・
（DK） 2019/09/14(土) 15:01

コメント返信：

[ 一覧(最新更新順) ]

[[20190910233317]] 『ドキュメント内のハイパーリンクを一括で変更する』（DK） ページの最後に飛ぶ

[[20190910233317]]　『ドキュメント内のハイパーリンクを一括で変更する』（DK）　ページの最後に飛ぶ