提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Word文档中插入没有扩展名的文件路径和文件名?

通常,我们可以使用Filename字段函数在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 密钥运行此代码并且文件路径和名称已插入文档而没有扩展名,请参见屏幕截图:

doc insert filename不带扩展名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 - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
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.