Note: The other languages of the website are Google-translated. Back to English
登陆  \/ 
x
or
x
点此注册  \/ 
x

or

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

doc插入文件名,不带扩展名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



推荐的Word生产力工具

 

Kutools For Word-Word超过100种高级功能,可节省50%的时间

  • 复杂和重复的操作可以在几秒钟内完成一次处理。
  • 跨文件夹一次将多个图像插入Word文档。
  • 将文件夹中的多个Word文件合并并合并为所需顺序。
  • 根据标题,分节符或其他条件将当前文档拆分为单独的文档。
  • 在Doc和Docx之间,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.