워드 VBA 코드를 활용한 문서 압축 해제 자동화

워드 VBA 코드를 활용한 문서 압축 해제 자동화

Word 문서를 다룰 때, 때로는 압축된 문서를 자동으로 해제해야하는 상황이 있을 수 있습니다. 예를 들어, 여러 문서가 압축 파일에 포함되어 있고, 이를 개별 파일로 추출해야 할 때 등입니다. 이런 경우, VBA(Visual Basic for Applications) 코드를 사용하여 문서 압축 해제 작업을 자동화할 수 있습니다.

VBA 코드 작성

아래는 VBA 코드를 사용하여 Word 문서를 압축 해제하는 간단한 예제입니다. 해당 코드는 선택한 문서를 압축 해제하여 같은 디렉토리에 개별 파일로 추출하는 기능을 수행합니다.

Sub DecompressDocuments()
    Dim fileName As String
    Dim folderPath As String

    ' 선택한 파일 경로 및 폴더 경로 가져오기
    fileName = ActiveDocument.fullName
    folderPath = Left(fileName, InStrRev(fileName, "\") - 1)

    ' 문서 압축 해제
    Documents.Open fileName
    ActiveDocument.SaveAs2 folderPath & Application.PathSeparator & ActiveDocument.name
    ActiveDocument.Close

    MsgBox "문서가 성공적으로 압축 해제되었습니다."
End Sub

코드 설명

1. fileName 및 folderPath 변수를 선언합니다. fileName 변수에는 현재 열려있는 문서의 파일 경로를 저장하고, folderPath 변수에는 해당 파일의 폴더 경로를 저장합니다.
2. Documents.Open 메서드를 사용하여 현재 열려있는 문서를 엽니다.
3. ActiveDocument.SaveAs2 메서드를 사용하여 압축 해제된 파일을 원하는 폴더에 저장합니다. folderPath 변수와 ActiveDocument.name을 조합하여 압축 해제된 파일의 경로를 생성합니다.
4. ActiveDocument.Close 메서드를 사용하여 압축 해제된 문서를 닫습니다.
5. MsgBox 함수를 사용하여 작업이 성공적으로 완료되었음을 알리는 메시지를 표시합니다.

VBA 코드 실행

위에서 작성한 VBA 코드는 다음과 같이 실행할 수 있습니다.

1. Word 문서를 엽니다.
2. 개발자 탭을 활성화합니다. (개발자 탭이 보이지 않는다면, Word 옵션을 통해 활성화할 수 있습니다.)
3. Visual Basic을 클릭하여 VBA 에디터를 엽니다.
4. 새로운 모듈을 생성하고, 위에서 작성한 코드를 붙여넣습니다.
5. F5 키를 눌러 코드를 실행합니다.

마치며

이와 같이 VBA 코드를 활용하여 Word 문서의 압축 해제 작업을 자동화할 수 있습니다. VBA를 사용하면 다양한 작업을 자동화하고 시간을 절약할 수 있으므로, 여러분의 업무 효율성을 향상시켜줄 수 있을 것입니다.