ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

Word文書からすべてのハイパーリンクを選択してコピーする方法

場合によっては、複数のハイパーリンクが存在する長いドキュメントがあり、このドキュメントから一度にすべてのハイパーリンクをコピーし、別のハイパーリンクに貼り付けるだけで済みます。 1つずつコピーするのではなく、すぐにすべてを一度にコピーする方法はありますか?

VBAですべてのハイパーリンクをコピーする

すべてのハイパーリンクアドレスをVBAで抽出する

Kutools for Wordを使用してすべてのハイパーリンクまたはアドレスのみをクリップボードにコピーする良いアイデア3


矢印青い右の泡 VBAですべてのハイパーリンクをコピーする

1。 ハイパーリンクをコピーするWord文書を開き、を押します。 Altキー+ F11 を開く Microsoft Visual Based Applicationウィンドウ.

2。 クリック インセット > モジュール次のVBAをウィンドウにコピーします。

VBA:すべてのハイパーリンクをコピーする

Sub HyperlinksExtract()
'Updateby20140214
    Dim oLink As Hyperlink
    Dim docCurrent As Document 'current document
    Dim docNew As Document 'new document
    Dim rngStory As StoryRanges
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        oLink.Range.Copy
        docNew.Activate
        Selection.Paste
        Selection.TypeParagraph
    Next
    
    Set docNew = Nothing
    Set docCurrent = Nothing
End Sub

3。 クリック ラン ボタンを押してVBAコードを実行します。 その後、すべてのハイパーリンクが新しい文書にコピーされます。 後で新しい文書を保存することができます。 次のように結果を見ることができます。

注意: このVBAは、すべてのハイパーリンクが単語にリンクされている場合にのみ実行できます。ハイパーリンクを含む画像がある場合、このVBAコードは機能しません。


矢印青い右の泡 すべてのハイパーリンクを抽出します。

1。 ハイパーリンクを抽出するWord文書を開き、を押します。 Altキー+ F11 を開く Microsoft Visual Based Applicationウィンドウ.

2。 クリック インセット > モジュール次のVBAをウィンドウにコピーします。

VBA:すべてのハイパーリンクのアドレスを抽出する

Function GetAllHyperlinks()
'Updateby20140214
    Dim docCurrent As Document
    Dim docNew As Document
    Dim oLink As Hyperlink
    Dim rng As Range
    Application.ScreenUpdating = False
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        Set rng = docNew.Range
        rng.Collapse
        rng.InsertParagraph
        rng.InsertAfter (oLink.Address)
    Next
    docNew.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Function

3。 クリック ラン ボタンを押してVBAコードを実行します。 その後、すべてのハイパーリンクアドレスが新しい文書に抽出されます。後で保存することができます。

注意: 抽出ハイパーリンクのアドレスは元の順序ではありません。


矢印青い右の泡 Kutools for Wordを使用してすべてのハイパーリンクまたはアドレスのみをクリップボードにコピーする

すべてのハイパーリンクやアドレスだけをクリップボードにWord文書から簡単かつ迅速にコピーしたい場合は、 ハイパーリンクのコピー の有用性 Kutools for Word あなたにこの好意を与えることができます。

Kutools for Word, 以上で 100 便利な機能は、あなたの仕事をより簡単になります。
ダウンロードに行く
無料トライアル45日

インストールした後 Word用のKutoolsは、以下のようにしてください:(Word用の無料ダウンロードKutools!)

1。 クリック Kutools Plus > ハイパーリンクのコピー.
docコピーハイパーリンク1

2。 ポップアップダイアログで、必要に応じて1つのオプションを選択します。
docコピーハイパーリンク2

ここで、ハイパーリンクを配置する場所を1つ選択し、 Ctrlキー+ V 貼り付けます。

ハイパーリンクのコピーと貼り付け
docコピーハイパーリンク3
ハイパーリンクのアドレスをコピー&ペーストする
docコピーハイパーリンク4

複数のWord文書/ ExcelワークブックをFirefox、Chrome、Internetとしてブラウズ&編集することができます。Explore 10!

Firefox / Chrome / IEで複数のWebページを表示し、対応するタブを簡単にクリックして複数のWebページを表示することができます。 ここでは、Officeタブでも同様の処理がサポートされています。これにより、複数のWord文書またはExcelブックを1つのWordウィンドウまたはExcelウィンドウで参照し、タブをクリックして簡単に切り替えることができます。
Officeタブの無料トライアルをクリックしてください!

1つのウィンドウで複数のワードドキュメントをFirefoxとしてブラウズ

関連記事:



おすすめのWord生産性向上ツール

Word用Kutools-Wordの100の高度な機能以上に、50%の時間を節約できます

  • 複雑で繰り返しのある操作は、数秒で1回の処理で実行できます。
  • 一度にWord文書にフォルダ間で複数の画像を挿入します。
  • フォルダ間の複数のWordファイルを希望の順序で1つに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDF、一般的な変換と選択のためのツールのコレクションなどの間でファイルを変換する...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fabian · 1 years ago
    Thank you so much! This was exactly what I was looking for!
  • To post as a guest, your comment is unpublished.
    Adrine Bio · 1 years ago
    I am amazed. That's gold. You saved me a ton of work.
  • To post as a guest, your comment is unpublished.
    manny kuyr · 2 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 2 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 3 years ago
    This is great stuff! Many thanks.
    What changes do I need to make to GetAllHyperlinks() for the following case?

    -- original document contains both normal text and links
    -- result wanted: same document but each link is followed by a space and the URL

    Thanks
  • To post as a guest, your comment is unpublished.
    Sanjay K. · 3 years ago
    Excellent! It helped me extract some links from an html file that I opened with Word (Excel was discarding some links). Here is the modified code so that a csv file could be built that could be further used.

    [quote]SubGetAllHyperlinks()
    ' Updateby20160504
    ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us
    Dim docCurrent As Document
    Dim docNew As Document
    Dim oLink As Hyperlink
    Dim rng As Range
    Application.ScreenUpdating = False
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
    Set rng = docNew.Range
    rng.InsertAfter (oLink.TextToDisplay)
    rng.InsertAfter (", ")
    rng.InsertAfter (oLink.Address)
    rng.InsertAfter (vbCrLf)
    Next
    docNew.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
    End Sub[/quote]
    • To post as a guest, your comment is unpublished.
      Pompeia · 2 years ago
      This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
    • To post as a guest, your comment is unpublished.
      Rashesh Bosamiya · 3 years ago
      Thank you very much for this script.
      This helped me to extract 5K links.

      Thank you very much.
  • To post as a guest, your comment is unpublished.
    Dean · 3 years ago
    Thank you. Just what I needed to parse a document.
  • To post as a guest, your comment is unpublished.
    Maria · 3 years ago
    Indeed! ONE year later, am having similar issues and totally bawled over by your wonderful help!!
    God Bless YOu!!
  • To post as a guest, your comment is unpublished.
    sid · 4 years ago
    it is prompting " Compile Error: Syntax Error"
    Please help me, I need to do a lot of work using this .Reply asap
  • To post as a guest, your comment is unpublished.
    Mert · 5 years ago
    wow, its great. Thank you so much
  • To post as a guest, your comment is unpublished.
    Richie · 5 years ago
    Omg this is legendary stuff. So helpful. Thanks a lot! :-)