如何在Word文档中插入不含扩展名的文件路径和文件名？

Author: Xiaoyang Last Modified: 2025-07-31

通常，我们可以通过使用“文件名”域功能在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