ワードで画像に埋め込まれたハイパーリンクを一括削除するには？

ワードで画像に埋め込まれたハイパーリンクを一括削除するには？

どのようにすればよろしいでしょうか。

ワード上で文章にハイパーリンクが設定されたものについては一括削除できるのですが、画像についてがわからず、大変困っております。

何卒宜しくお願い致します。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2016/03/12 21:12

マクロを使わないと、一括での削除は無理なのでは？

その画像が行内配置なのか、浮動配置なのかでマクロが違います。

Sub test_1()
' 行内配置の画像からハイパーリンクを一括削除
Dim iShape As InlineShape

For Each iShape In ActiveDocument.InlineShapes
iShape.Hyperlink.Delete
Next iShape

End Sub

' ******************************************

Sub test_2()
' 浮動配置の画像からハイパーリンクを一括削除
Dim iShape As Shape

For Each iShape In ActiveDocument.Shapes
iShape.Hyperlink.Delete
Next iShape

End Sub

たぶん、上記マクロで削除できると思います。

この回答へのお礼

大変助かりました！
上記ﾏｸﾛで一瞬で削除が完了いたしました。
ずっと手作業でやるしかないのかと悩んでおりましたので、本当に助かりました。
感謝しきれません。

お礼日時：2016/03/12 22:14