グラハムはコピーエディターであり、彼が直面する（ごく普通の）タスクの1つは、http：// wwwで始まるURLからhttp：//を削除することです。グラハムは、URLが単なるテキストであれば、このタスクは簡単だと感じています。ただし、ハイパーリンクの場合は、[ハイパーリンクの編集]ダイアログボックスを表示し、[表示するテキスト]フィールドでhttp：//を選択して削除し、ダイアログボックスを閉じる必要があります。

幸い、変更を加えるために[ハイパーリンクの編集]ダイアログボックスを常に表示する必要はありません。ハイパーリンクがアクティブな場合でも、表示されている情報を見つけて置き換えることができます。たとえば、http：// wwwを検索してwwwに置き換えると、アクティブなハイパーリンクであっても問題なく機能します。 Wordは、表示されるテキストのみを変更し、基になるハイパーリンク自体は変更しません。

編集するハイパーリンクが多数あり、このURLの切り捨てが一般的なタスクである場合は、マクロを使用してこれを処理することをお勧めします。ドキュメント内の各ハイパーリンクをステップスルーしてhttp：//部分を削除する短いマクロを開発できます。次に例を示します。

Sub FixHyperlinks1()

Dim hyp As Hyperlink     Dim sLink As String

For Each hyp In ActiveDocument.Hyperlinks         sLink = hyp.Address         sLink = replace(strLink, "http://", "")

hyp.Address = sLink     Next hyp End Sub

ただし、このアプローチはおそらくあなたが望むほど包括的ではありません。アクティブなハイパーリンクにのみ影響します。ドキュメント内のプレーンテキストのURLには影響しません。より包括的なアプローチを使用する場合は、すべてのハイパーリンクを削除し（最初からドキュメントでは必要ない可能性があります）、http：//部分を削除するものが必要です。これがまさにそれを行うものです：

Sub FixHyperlinks2()

'Remove hyperlinks     With ActiveDocument         While .Hyperlinks.Count > 0             .Hyperlinks(1).Delete         Wend     End With

'Remove http://     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "http://www"

.Replacement.Text = "www"

.Forward = True         .Wrap = wdFindContinue      End With     Selection.Find.Execute Replace:=wdReplaceAll End Sub

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13147）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

linkURLからのHTTPの削除。