如何在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

推薦的Word生產力工具