Word 문서에 파일 경로 및 확장자 없는 파일 이름을 삽입하는 방법은 무엇인가요？

일반적으로 Word 문서에 파일 이름 또는 파일 경로과(와) 이름을 '파일 이름' 필드 함수를 사용하여 삽입할 수 있지만, 이렇게 삽입된 파일 이름에는 docx 나 doc 등의 파일 확장자가 포함됩니다。 확장자 없이 파일 이름 또는 파일 경로과(와) 이름을 삽입하려면 어떻게 해야 할까요？

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

---

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

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

1。 확장자 없이 파일 경로 및 이름을 삽입할 위치에 커서를 놓습니다。

2。 그런 다음ALT + F11키를 누른 상태로 유지하여Microsoft Visual Basic for Applications창을 엽니다。

3。 그리고 나서삽입>모듈을 클릭하고 아래 코드를 열린 빈 모듈에 복사하여 붙여넣습니다。

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키를 눌러 이 코드를 실행하면 확장자 없이 파일 경로 및 이름이 문서에 삽입됩니다。 스크린샷 참조：

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

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

---