팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

Word 문서에서 모든 하이퍼 링크를 선택하고 복사하는 방법?

경우에 따라 여러 개의 하이퍼 링크가있는 긴 문서가 있고이 문서에서 한 번에 모든 하이퍼 링크를 복사 한 다음 다른 문서에 붙여 넣기 만하면됩니다. 한 번에 하나씩 복사하는 대신 한꺼번에 빠르게 복사 할 수있는 방법이 있습니까?

VBA로 모든 하이퍼 링크 복사

VBA로 모든 하이퍼 링크 주소 추출

모든 하이퍼 링크 또는 주소 만 클립 보드로 Word 용 Kutools로 복사하십시오.좋은 아이디어 3


화살표 오른쪽 파란색 거품 VBA로 모든 하이퍼 링크 복사

1. 하이퍼 링크를 복사 할 Word 문서를 열고를 누릅니다. Alt + F11 를 열려면 Microsoft Visual 기반 응용 프로그램 창.

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 를 열려면 Microsoft Visual 기반 응용 프로그램 창.

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 코드를 실행하십시오. 그런 다음 모든 하이퍼 링크 주소가 새 문서에서 추출되므로 나중에 저장할 수 있습니다.

노트 : 추출 하이퍼 링크 주소가 원래 순서대로 있지 않습니다.


화살표 오른쪽 파란색 거품 모든 하이퍼 링크 또는 주소 만 클립 보드로 Word 용 Kutools로 복사하십시오.

모든 하이퍼 링크 또는 주소 만 클립 보드로 Word 문서에서 쉽고 빠르게 복사하려면 하이퍼 링크 복사 ~의 유용성 Word 용 Kutools 너에게이 호의를 베풀 수있다.

Word 용 Kutools, 이상과 100 편리한 기능은 작업을 쉽게 해줍니다.
다운로드로 이동
무료 평가판 45 일

설치 후 Word 용 Kutools는 다음과 같이하십시오.(지금 Word 용 무료 다운로드 Kutools!)

1. 클릭 Kutools 기타 > 하이퍼 링크 복사.
doc 복사 하이퍼 링크 1

2. 터지는 대화 상자에서 필요에 따라 하나의 옵션을 선택하십시오.
doc 복사 하이퍼 링크 2

이제 하이퍼 링크를 배치 할 위치를 하나 선택하고 Ctrl + V 붙여 넣기.

하이퍼 링크 복사 및 붙여 넣기
doc 복사 하이퍼 링크 3
하이퍼 링크 주소 복사 및 붙여 넣기
doc 복사 하이퍼 링크 4

여러 개의 Word 문서 / Excel 통합 문서를 Firefox, Chrome, 인터넷으로 탐색하고 편집 할 수 있습니다. 10을 탐색하십시오!

Firefox / Chrome / IE에서 여러 웹 페이지를보고 익숙한 탭을 쉽게 클릭하여 전환 할 수 있습니다. 여기에서 Office Tab은 하나의 Word 창이나 Excel 창에서 여러 Word 문서 또는 Excel 통합 문서를 탐색하고 해당 탭을 클릭하여 쉽게 전환 할 수있는 유사한 처리를 지원합니다.
Office 탭 무료 평가판을 보려면 클릭하십시오!

하나의 창에서 여러 단어 문서를 Firefox로 탐색

관련 기사 :



권장 단어 생산성 도구

Word 용 Kutools-100 이상의 고급 기능 Word의 50 % 시간 절약

  • 복잡하고 반복되는 작업은 1 초 단위로 처리 할 수 ​​있습니다.
  • Word 문서에 여러 이미지를 한 번에 삽입 할 수 있습니다.
  • 여러 Word 파일을 여러 폴더로 병합하고 원하는 순서로 하나로 결합하십시오.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 나눕니다.
  • 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! :-)