워드 VBA 코드를 사용한 문서 압축 자동화

워드 VBA 코드를 사용한 문서 압축 자동화

많은 사람들이 워드 문서를 작성하고 공유하는데, 대부분의 워드 문서는 크기가 커서 전송 및 저장에 어려움을 겪을 수 있습니다. 이런 문제를 해결하기 위해 워드 VBA 코드를 사용하여 문서를 압축하는 방법을 알아보겠습니다.

1. VBA 매크로 추가

문서를 압축하기 위해선 워드 VBA 매크로를 추가해야 합니다. 다음의 단계를 따라 해주세요.

1. 워드를 실행한 후, 도구 메뉴에서 매크로를 선택합니다.
2. 매크로 이름에 원하는 이름을 입력한 후, 만들기 버튼을 클릭합니다.
3. VBA 편집기 창이 열리면, 다음 코드를 추가합니다.

Sub CompressDocument()
    Dim OriginalRange As Range
    Dim CompressedRange As Range
    Dim Document As Document

    Set Document = ActiveDocument

    ' 압축대상 범위 설정
    Set OriginalRange = Document.Content

    ' 압축 및 불필요한 내용 제거
    OriginalRange.Find.ClearFormatting
    OriginalRange.Find.Replacement.ClearFormatting
    OriginalRange.Find.Execute FindText:="^p^p", ReplaceWith:="^p", Replace:=wdReplaceAll
    OriginalRange.Find.Execute FindText:="^p^m", ReplaceWith:="^m", Replace:=wdReplaceAll

    ' 압축 결과를 저장할 범위 설정
    Document.Bookmarks.Add "Compressed", OriginalRange

    ' 압축 대상 이외의 내용 제거
    Set CompressedRange = OriginalRange.Duplicate
    CompressedRange.Select
    CompressedRange.End = Document.Paragraphs.Last.Range.End

    ' 압축 결과가 저장될 범위 내의 내용만 남기고 모두 삭제
    CompressedRange.Delete

    ' 압축된 문서를 새로운 문서로 저장
    Document.SaveAs2 FileName:="압축된문서", FileFormat:=wdFormatDocument
End Sub

2. 문서 압축 실행

매크로를 추가한 후에는 워드 문서를 압축하는 과정을 자동화할 수 있습니다. 다음의 단계를 따라 해보세요.

1. 도구 메뉴에서 다시 매크로를 선택합니다.
2. 추가한 매크로를 선택한 후, 실행 버튼을 클릭합니다.

이제, 워드 문서가 압축되어 새로운 문서로 저장됩니다. 새로 생성된 문서는 불필요한 줄바꿈이 제거되고, 문서 크기가 줄어든 상태입니다.

3. 압축된 문서 사용

압축된 문서를 사용하기 위해서는 다음의 단계를 따라 해주세요.

1. 파일 탐색기에서 압축된 문서를 위치한 폴더로 이동합니다.
2. 압축된 문서를 더블 클릭하여 워드로 엽니다.
3. 원본 문서와 동일한 내용을 가지지만, 크기가 줄어든 문서를 사용하실 수 있습니다.

마치며

워드 VBA 코드를 사용한 문서 압축 자동화를 통해 문서의 크기를 줄이고, 전송 및 저장에 대한 어려움을 해결할 수 있습니다. VBA 코드를 사용하여 다양한 작업을 자동화할 수 있으니, 필요한 경우 VBA 코드를 익히고 활용하여 효율적인 작업을 해보세요.