Note: The other languages of the website are Google-translated. Back to English

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 편리한 기능으로 작업이 더 쉬워집니다. 

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

1. 클릭 쿠툴즈 플러스 > 하이퍼 링크 복사.
문서 복사 하이퍼 링크 1

2. 팝업 대화 상자에서 필요에 따라 하나의 옵션을 선택합니다.
문서 복사 하이퍼 링크 2

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

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

Firefox, Chrome, Internet Explore 10과 같은 여러 Word 문서 / Excel 통합 문서를 탭 브라우징 및 편집!

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

Firefox로 한 창에서 여러 단어 문서 검색

관련 기사 :


추천 단어 생산 도구

 

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

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (16)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
어머 이건 전설의 물건이다. 도움이 됩니다. 정말 감사합니다! :-)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
와우, 훌륭합니다. 정말 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"컴파일 오류: 구문 오류"라는 메시지가 표시됩니다. 도와주세요. 이 기능을 사용하여 많은 작업을 해야 합니다. 최대한 빨리 응답하세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
물론! XNUMX년 후, 비슷한 문제를 겪고 있는데 당신의 멋진 도움에 완전히 헐뜯었습니다!! 하나님의 축복이 있기를!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고맙습니다. 문서를 구문 분석하는 데 필요한 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
훌륭한! Word로 연 html 파일에서 일부 링크를 추출하는 데 도움이 되었습니다(Excel은 일부 링크를 삭제했습니다). 다음은 추가로 사용할 수 있는 csv 파일을 빌드할 수 있도록 수정된 코드입니다. [인용]SubGetAllHyperlinks() ' Updateby20160504 ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us<br /> Dim docCurrent As Document Dim docNew As Hyperlink Dim rng As Range Application.ScreenUpdating = False 설정 docCurrent = ActiveDocument 설정 docNew = Documents.Add For Each oLink In docCurrent.Hyperlinks Set rng = docNew.Rangert rng (After oLink.TextToDisplay) rng.InsertAfter(", ") rng.InsertAfter(oLink.Address) rng.InsertAfter(vbCrLf) 다음 docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/인용]
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 스크립트에 대해 대단히 감사합니다. 이것은 5K 링크를 추출하는 데 도움이 되었습니다. 매우 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드는 나에게 잘 작동합니다. 기사 설명의 두 가지 예는 그렇지 않습니다. 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 훌륭한 물건입니다! 감사합니다. 다음과 같은 경우 GetAllHyperlinks()를 어떻게 변경해야 합니까? -- 원본 문서에는 일반 텍스트와 링크가 모두 포함되어 있습니다. -- 원하는 결과: 동일한 문서이지만 각 링크 뒤에 공백과 URL이 옵니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Outlook에서 동일한 스크립트를 실행할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
전설의 높이, 백만 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 놀랐다. 그것은 금이다. 당신은 나에게 많은 작업을 저장했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 감사합니다! 이것이 바로 내가 찾던 것입니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
인상적인! Millón de gracias.Me has acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería impresionante. Es para aplicarles una Formula que separa los link del texto.Un saludo y un millón de gracias!!!

이 댓글은 사이트의 중재자에 의해 최소화되었습니다
워드 파일 하이퍼링크와 텍스트 디스플레이를 엑셀 파일로 내보내려면 어떻게 해야 합니까? 
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 정보! Word에서 연 html 파일에서 링크를 추출하는 데 도움이 되었습니다. 쿠키 클리커 는 새로운 아이디어입니다.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0  등장 인물
추천 위치