메인 컨텐츠로 가기

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

설치 후 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 - Over로 단어 경험을 향상시키세요 100 놀라운 기능!

🤖 Kutools AI 도우미: AI로 글쓰기를 변화시키세요 - 콘텐츠 생성  /  텍스트 다시 쓰기  /  문서 요약  /  정보 문의 문서 기반, 모두 Word 내에서

📘 문서 숙달: 페이지 분할  /  문서 병합  /  다양한 형식으로 선택 항목 내보내기(PDF/TXT/DOC/HTML...)  /  PDF로 일괄 변환  /  페이지를 이미지로 내보내기  /  한 번에 여러 파일 인쇄...

컨텐츠 편집: 일괄 찾기 및 바꾸기 여러 파일에 걸쳐  /  모든 사진 크기 조정  /  테이블 행과 열 바꾸기  /  표를 텍스트로 변환...

🧹 손쉬운 청소: 쓸어버리다 추가 공간  /  섹션 나누기  /  모든 헤더  /  텍스트 상자  /  하이퍼 링크  / 더 많은 제거 도구를 보려면 다음 페이지를 방문하세요. 그룹 제거...

광고 삽입물: 삽입 천 단위 구분 기호  /  확인란  /  라디오 버튼  /  QR 코드  /  바코드  /  대각선 표  /  방정식 캡션  /  이미지 캡션  /  테이블 캡션  /  여러 장의 사진  / 더 자세히 알아보세요. 그룹 삽입...

🔍 정밀한 선택: 핀포인트 특정 페이지  /  테이블  /  모양  /  제목 단락  / 탐색 기능 향상 배우기 기능 선택...

스타 강화: 어떤 위치로든 빠르게 이동  /  반복되는 텍스트 자동 삽입  /  문서 창 간을 원활하게 전환합니다.  /  11 변환 도구...

👉 이러한 기능을 사용해 보고 싶으신가요? Word 용 Kutools는 다음을 제공합니다. 60 일 무료 사용, 제한 없음! 🚀
 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Good information! It assisted me in extracting links from an html file I had opened in Word. Refer to <a href="https://cookieclicker2.io">cookie clicker</a> is idea new.
This comment was minimized by the moderator on the site
How can we export word file hyperlinks and it's Text display to an excel file ? 
This comment was minimized by the moderator on the site
Impresionante! 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 links del texto.Un saludo y un millón de gracias!!!

This comment was minimized by the moderator on the site
Thank you so much! This was exactly what I was looking for!
This comment was minimized by the moderator on the site
I am amazed. That's gold. You saved me a ton of work.
This comment was minimized by the moderator on the site
Height of Legendary, thanks a million
This comment was minimized by the moderator on the site
Can I get the same script to run in outlook?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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<br /> 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]
This comment was minimized by the moderator on the site
This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
This comment was minimized by the moderator on the site
Thank you very much for this script. This helped me to extract 5K links. Thank you very much.
This comment was minimized by the moderator on the site
Thank you. Just what I needed to parse a document.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations