MS 워드 매크로 함수로 문서 내 하이퍼링크 한번에 제거하기

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

 

 

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

 

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

 

※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ MS 워드 매크로 만들기, 여러 과정을 하나의 단축키로 지정하기 ▶ MS 워드 매크로 사용해서 자주 사용하는 기능 등록하기 ▶ MS 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하기 ▶ MS 워드 상단 리본메뉴 최소화 하거나 복원하는 방법 ▶ MS 워드 특수기호, 문자표 입력하는 방법과 단축키 지정하기

 

 

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

 

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

 

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

 

▼ 함수에 들어간 소스를 설정하도록 하겠습니다. 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 워드 매크로 함수 이용해서 문서 내에 하이퍼링크 한번에 제거하기 ▶ MS 워드 상단 리본메뉴 최소화 하거나 복원하는 방법 ▶ MS 워드 특수기호, 문자표 입력하는 방법과 단축키 지정하기