Annemieke에는 다소 긴 문서가 있으며 많은 하이퍼 링크가 포함되어 있습니다. 그녀는 모든 하이퍼 링크 (및 하이퍼 링크 만)를 새 문서에 복사하여 한 곳에 목록을 표시하려고합니다. 그녀는 이것을 할 수있는 쉬운 방법이 있는지 궁금합니다.

이를 수행하는 유일한 방법은 매크로를 사용하는 것입니다. (찾기 및 바꾸기 사용 또는 특정 스타일의 텍스트 찾기를 포함하는 제안은 실제 하이퍼 링크가 아닌 링크 텍스트 만 복사합니다.) 매크로의 핵심은 Hyperlinks 컬렉션으로 작업하는 것입니다. 특히 TextToDisplay 및 Address 속성에주의해야합니다. 컬렉션의 각 구성원.

Sub PullHyperlinks()

Dim Src As Document     Dim Link As Hyperlink     Dim iDoDisplay As Integer

Set Src = ActiveDocument     If Src.Hyperlinks.Count > 0 Then         iDoDisplay = MsgBox("Include display text for links?", vbYesNo)



Documents.Add DocumentType:=wdNewBlankDocument         For Each Link In Src.Hyperlinks             If iDoDisplay = vbYes Then                 Selection.TypeText Link.TextToDisplay                 Selection.TypeText vbTab             End If             Selection.TypeText Link.Address             Selection.TypeParagraph         Next Link     Else         MsgBox "There are no hyperlinks in this document."

End If End Sub

매크로는 먼저 현재 문서에 하이퍼 링크가 있는지 확인합니다. 있다면, 그것들을 꺼내는 과정을 진행할 수 있습니다. 없는 경우 해당 효과에 대한 메시지가 표시됩니다.

문서에 하이퍼 링크가 있다고 가정하면 사용자에게 새 문서에 링크 표시 텍스트가 포함되어야하는지 묻는 메시지가 표시됩니다. 그런 다음 매크로는 새 문서를 만들고 Hyperlinks 컬렉션의 각 구성원을 단계별로 실행합니다. TextToDisplay 속성 값이 새 문서 (적절한 경우)에 추가되고 그 뒤에 Address 속성 값이 추가됩니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (13549)은 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Office 365의 Word에 적용됩니다.