如何在Word文檔中插入不含副檔名的檔案路徑和檔名？

Author: Xiaoyang Last Modified: 2025-05-12

通常，我們可以使用「檔名」域功能在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鍵運行此代碼，不含副檔名的檔案路徑和名稱就會被插入到文檔中，請參見截圖：

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