Word文書からすべてのハイパーリンクを選択してコピーするにはどうすればよいですか?
場合によっては、複数のハイパーリンクが存在する長いドキュメントがあり、このドキュメントから一度にすべてのハイパーリンクをコピーしてから、別のドキュメントに貼り付けるだけで済みます。 それらをXNUMXつずつコピーするのではなく、一度にすべてをすばやくコピーできる方法はありますか?
Kutools for Wordを使用して、すべてのハイパーリンクまたはアドレスのみをクリップボードにコピーします
VBAですべてのハイパーリンクをコピーする
1.ハイパーリンクをコピーするWord文書を開き、を押します。 Altキー+ F11 を開く MicrosoftVisualベースのアプリケーションウィンドウ.
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コードは機能しません。
VBAに対応するすべてのハイパーリンクを抽出します
1.ハイパーリンクを抽出するWord文書を開き、を押します。 Altキー+ F11 を開く MicrosoftVisualベースのアプリケーションウィンドウ.
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, 以上で 便利な機能で、仕事が楽になります。 | ||
インストールした後 Kutools for Word、以下のようにしてください:(今すぐWord用のKutoolsを無料でダウンロードしてください!)
1。 クリック クツールズプラス > ハイパーリンクをコピーする.
2.ポップダイアログで、必要に応じてXNUMXつのオプションを選択します。
次に、ハイパーリンクを配置する場所をXNUMXつ選択し、を押します。 Ctrlキー+ V 貼り付けます。
ハイパーリンクをコピーして貼り付ける |
ハイパーリンクアドレスをコピーして貼り付ける |
デモ:ハイパーリンクのコピー
Firefox、Chrome、Internet Explore10などの複数のWordドキュメント/ Excelワークブックのタブブラウジングと編集! |
Firefox / Chrome / IEで複数のウェブページを表示し、対応するタブをクリックしてそれらを簡単に切り替えることはおなじみかもしれません。 ここで、Officeタブは同様の処理をサポートしており、XNUMXつのWordウィンドウまたはExcelウィンドウで複数のWordドキュメントまたはExcelワークブックを参照し、タブをクリックすることでそれらを簡単に切り替えることができます。 |
関連記事:
最高のオフィス生産性向上ツール
Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!
🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する / テキストを書き換える / 文書を要約する / 情報のお問い合わせ 文書に基づいて、すべて Word 内で
📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換 / ページを画像としてエクスポート / 複数のファイルを一度に印刷する...
✏ コンテンツ編集: バッチ検索と置換 複数のファイルにわたる / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...
🧹 楽にお掃除:振り払って 余分なスペース / セクションブレーク / すべてのヘッダー / テキストボックス / ハイパーリンク / その他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...
➕ クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 斜線テーブル / 方程式のキャプション / 画像キャプション / テーブルキャプション / 複数の写真 / 詳細については、 グループを挿入...
🔍 正確な選択: ピンポイント 特定のページ / テーブル / シェイプ / 見出し段落 / ナビゲーションを強化する 他には? 機能の選択...
⭐ スターの強化: あらゆる場所に素早く移動 / 繰り返しのテキストを自動挿入 / ドキュメントウィンドウをシームレスに切り替える / 11 変換ツール...