워드 문서에서 하이퍼링크 추가 자동화를 위한 VBA 코드

워드 문서에서 하이퍼링크 추가 자동화를 위한 VBA 코드

많은 사람들이 워드 문서에서 링크를 추가할 때 일일이 하이퍼링크를 클릭하여 URL을 입력하는 작업을 해야합니다. 이런 번거로운 작업을 자동화하기 위해 VBA(Virtual Basic for Applications) 코드를 사용할 수 있습니다. 이 포스팅에서는 VBA 코드를 이용하여 워드 문서에 하이퍼링크를 추가하는 방법을 소개하고자 합니다.

VBA 코드 예시

Sub AddHyperlink()
    Dim doc As Document
    Dim rng As Range
    Dim linkAddress As String
    Dim linkText As String

    ' 현재 열려있는 문서 선택
    Set doc = ActiveDocument

    ' 작업할 범위 선택
    Set rng = Selection.Range

    ' 입력받은 URL과 텍스트
    linkAddress = InputBox("하이퍼링크 URL을 입력하세요:")
    linkText = InputBox("하이퍼링크 텍스트를 입력하세요:")

    ' 범위에 하이퍼링크 추가
    doc.Hyperlinks.Add Anchor:=rng, Address:=linkAddress, TextToDisplay:=linkText
End Sub

위 코드는 현재 열려있는 문서에서 작업 범위를 선택한 후, 입력한 URL과 텍스트를 사용하여 하이퍼링크를 추가하는 예시입니다. 코드 실행 시, URL과 텍스트를 입력하게 되는데, 이를 통해 다양한 링크를 추가할 수 있습니다.

VBA 코드 사용 방법

1. 워드 문서 열기
2. VBA 에디터 열기: ALT + F11
3. 모듈 추가: Insert → Module
4. 모듈에 코드 붙여넣기
5. 코드 수정: 필요에 따라 URL 입력 대화상자의 문구 수정 가능
6. 코드 실행: F5 눌러 실행 또는 하이퍼링크를 추가하고자 하는 위치 선택 후, ALT + F8 → AddHyperlink 선택

위와 같이 VBA 코드를 작성하고 실행하면 워드 문서에 링크가 자동으로 추가됩니다. 링크를 추가하고자 하는 위치를 선택한 후, 단축키를 이용하여 VBA 코드를 실행하면 작업이 완료됩니다.

이렇게 VBA 코드를 사용하면 많은 시간을 절약할 수 있으며, 실수로 링크를 잘못 입력하는 것을 방지할 수 있습니다.

이상으로 워드 문서에서 하이퍼링크 추가 자동화를 위한 VBA 코드에 대해 알아보았습니다.

참고: 본 포스팅은 URL과 이미지 사용을 제외한 내용으로 작성되었습니다.