Stephen은 본문에 많은 하이퍼 링크를 포함하는 대용량 문서 (300 페이지 이상)를 가지고 있습니다. 문서에는 각주도 있습니다. 각 하이퍼 링크는 각주로 변환되어야합니다. 그러면 문서의 각주 수가 증가합니다.

증가는 문제가되지 않습니다. 문제는 이러한 모든 하이퍼 링크를 각주로 변환하는 빠른 방법이 있습니다. Stephen은 이것이 매크로를 사용하여 수행 될 수 있는지 궁금합니다.

이것은 실제로 매크로로 수행 할 수 있습니다. 실제로 매크로는 생각보다 간단 할 수 있습니다. 다음은 예입니다.

Sub LinksToFootnotes()

Dim hLink As Hyperlink     Dim rTemp As Range     Dim J As Integer

For Each hLink In ActiveDocument.Hyperlinks         Set rTemp = hLink.Range

' Create footnote         ActiveDocument.Footnotes.Add Range:=rTemp, _           Text:=rTemp.Text

' Delete possible leading space         rTemp.Collapse         rTemp.MoveStart Count:=-1         If rTemp.Text = " " Then rTemp.Delete     Next hLink

' Delete hyperlinks     For J = ActiveDocument.Hyperlinks.Count To 1 Step -1         ActiveDocument.Hyperlinks(J).Range.Delete     Next End Sub

이 예제는 문서의 모든 하이퍼 링크를 두 번 통과합니다.

첫 번째 단계에서는 각주를 만들고 두 번째 단계에서는 하이퍼 링크를 삭제합니다. 또한 하이퍼 링크 앞에 공백이 있는지 확인하는 코드 부분에 유의하십시오. 이렇게하면 해당 공간이있는 경우 해당 공간을 삭제하여 해당 공간 바로 앞에 결과 각주 번호를 넣을 수 있습니다. (즉, 이렇게하지 않으면 모든 각주 번호 앞에 공백이있을 것입니다.)

이 경우 매크로에 또 다른 문제가 발생합니다. 각주를 만들고 하이퍼 링크를 삭제하는 것뿐입니다. 원래 하이퍼 링크를 둘러싼 정보 (예 : 괄호, 쉼표 또는 마침표)가있는 경우 해당 문자는 문서에 남습니다. 즉, 매크로를 실행 한 후 문서를 수동으로 전달하여 가능한 외부 문자가 원하는대로 편집되도록해야합니다.

마지막으로 각주에 배치 된 하이퍼 링크는 활성 하이퍼 링크가 아니라 텍스트 전용입니다. 그러나 각주가 포함 된 문서를 만들 때 일반적으로 일반 텍스트가 바람직하기 때문에 이것은 큰 문제가 아닙니다.

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

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