MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하는 방법

 

환경: Microsoft Word 2013

 

인터넷 자료를 복사해서 워드에 붙여 넣게 되면 하이퍼링크 정보도 같이 따라 오게 됩니다. 하이퍼링크 해제는 개별적으로는 되지만 영역을 선택해서 한번에 하지는 못합니다. 이런 불편을 제거하기 위해 워드 문서 내에 있는 모든 하이퍼링크를 한번에 제거할 수 있는 매크로 함수를 만들어 보겠습니다. 매크로는 엑셀에서만 있는 것이 아니라 모든 오피스 제품군에 모두 포함되어 있습니다.

 

그림처럼 인터넷에서 복사해 온 자료에는 하이퍼링크 정보가 남아 있습니다. Ctrl 키를 누른 상태에서 마우스를 클릭하게 되면 해당 링크로 이동하게 됩니다. 이렇게 걸려 있는 하이퍼링크는 텍스트 마다 개별 삭제가 가능합니다. 그런데 이렇게 많은 내용을 일일이 삭제하고 있을 수 없잖아요.

MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하는 방법

 

개별 삭제가 아닌 한번에 삭제를 하기 위한 매크로 함수를 만들어 보겠습니다. 그러기 위해서는 매크로 작성을 위한 [개발 도구] 탭이 필요합니다. 숨어 있는 개발 도구 탭을 나타나게 하기 위해 [파일] > [옵션] 메뉴를 선택합니다

MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하는 방법

 


워드 옵션 대화상자의 왼쪽 메뉴 목록에서 [리본 사용자 지정]을 선택합니다. 화면에서 왼쪽 목록은 추가할 수 있는 리본 메뉴들을 나타내며 오른쪽 목록은 현재 화면에서 추가되어 있는 탭과 리본 메뉴들입니다. [개발 도구] 탭이 화면에 보이지 않은 이유는 체크가 되어 있지 않기 때문입니다

MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하는 방법

 

화면에 나타난 [개발 도구] 탭으로 이동합니다. 그리고 왼쪽 제일 끝에 있는 Visual Basic 리본 메뉴를 클릭합니다

MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하는 방법

 

매크로 함수를 만들기 위해서 작업할 개체가 필요합니다. 문서 아래에 ThisDocument 개체를 더블 클릭해서 편집 화면을 엽니다. 그리고 함수명은 편한 대로 지정해 주시면 됩니다. , 함수 안에 들어가 있는 내용은 그림과 동일해야 합니다. 

MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하는 방법

 

함수에 들어간 소스를 설정하도록 하겠습니다. ActiveDocument.Fields 는 모든 값들을 가지고 있으며 For 문을 통해서 하나씩 fi 변수에 담게 됩니다. fi 에 있는 데이터가 하이퍼링크 텍스트인지 검사하기 위해 Type 속성을 사용하는데 워드에 내장되어 있는 wdFieldHyperlink 상수와 비교합니다. 이것으로 하이퍼링크 여부를 판단하는 것이죠. 만약 하이퍼링크가 포함된 데이터라면 Unlink 함수를 사용해서 제거합니다.

 

Private Sub HyperLinksDelet()

 

    Dim fi As Field

   

    For Each fi In ActiveDocument.Fields

        If fi.Type = wdFieldHyperlink Then

            fi.Unlink

        End If

    Next fi

 

End Sub

 

함수의 실행은 다음과 같이 합니다. 커서를 함수 내에 두고 > 진행을 알리는 화살표 버튼을 클릭합니다

MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하는 방법

 

오른 마우스를 눌러 보시면 하이퍼링크 삭제 메뉴가 없죠. 함수가 제대로 실행이 돼서 모든 하이퍼링크를 제거한 것입니다. 그런데 하이퍼링크 만들 때 생긴 밑줄은 그대로 있네요

MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하는 방법

 

이것은 서식 지우개나 밑줄 리본 메뉴를 한번 더 클릭해서 제거하시면 됩니다. 이상으로 워드에서 문서 전체에 걸쳐 있는 하이퍼링크를 한번에 삭제하는 방법에 대해 알아 보았습니다

MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하는 방법


Posted by 녹두장군

댓글을 달아 주세요