如何在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 运行此代码的键，并且文件路径和名称已插入到文档中，没有扩展名，请参见屏幕截图：

备注：如果只想在文件中插入不带扩展名的文件名，则应使用以下代码：

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生产力工具