Word 문서에 확장자 없는 파일 경로와 파일 이름을 삽입하려면 어떻게 해야 하나요?

Author: Xiaoyang Last Modified: 2025-08-06

일반적으로 Filename 필드 기능을 사용하여 Word 문서에 파일 이름이나 파일 경로와 이름을 삽입할 수 있지만, 이렇게 삽입된 파일 이름에는 docx 또는 doc 확장자가 포함됩니다. 확장자를 제외한 파일 이름이나 파일 경로와 이름을 삽입하려면 어떻게 해야 할까요?

VBA 코드를 사용하여 확장자 없는 파일 경로와 이름 또는 파일 이름 삽입하기

Word용 추천 생산성 도구

Kutools for Word: AI 🤖 통합, 100개 이상의 고급 기능으로 문서 처리 시간을 50% 절약할 수 있습니다.무료 다운로드

Office Tab: 브라우저와 같은 탭을 Word(및 기타 Office 도구)에 도입하여 다중 문서 탐색을 단순화합니다.무료 다운로드

VBA 코드를 사용하여 확장자 없는 파일 경로와 이름 또는 파일 이름 삽입하기

Word 문서에 확장자 없는 파일 이름을 삽입하려면 다음 VBA 코드를 적용하세요:

1. 확장자 없는 파일 경로와 이름을 삽입하고 싶은 위치에 커서를 놓으세요.

2. 그런 다음 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

3. 그리고 나서 Insert > Module을 클릭하고 아래 코드를 열린 빈 모듈에 복사하여 붙여넣으세요.

VBA 코드: 확장자 없는 파일 경로와 이름 삽입하기:

Sub InsertFileNameAndPath()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.FullName, ".")
        xPathName = VBA.Left(.FullName, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

4. 그런 다음 F5 키를 눌러 이 코드를 실행하면 확장자 없는 파일 경로와 이름이 문서에 삽입됩니다. 스크린샷을 참조하세요:

The file path and name are inserted into the document without extension

참고: 문서에 확장자 없는 파일 이름만 삽입하려는 경우, 이 코드를 적용해야 합니다:

VBA 코드: 확장자 없는 파일 이름만 삽입하기:

Sub InsertFileNameOnly()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.Name, ".")
        xPathName = VBA.Left(.Name, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub