Word 문서에서 확장자없이 파일 경로와 파일 이름을 삽입하는 방법은 무엇입니까?

일반적으로 파일 이름 필드 기능을 사용하여 Word 문서에 파일 이름 또는 파일 경로 및 이름을 삽입 할 수 있지만, 여기에 파일 확장자 docx 또는 doc를 포함하는 파일 이름이 삽입됩니다. 확장자없이 파일 이름 또는 파일 경로 및 이름을 어떻게 삽입 할 수 있습니까?

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

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

확장명이없는 파일 이름을 Word 문서에 삽입하려면 다음 VBA 코드를 적용하십시오.

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

2. 그런 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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 이 코드를 실행하기위한 키와 파일 경로 및 이름이 확장자없이 문서에 삽입되었습니다. 스크린 샷을 참조하십시오.

확장자가없는 문서 삽입 파일 이름 1

주의 사항: 문서에 확장자없이 파일 이름 만 삽입하려면 다음 코드를 적용해야합니다.

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