excel能翻译中文吗
253
2024-02-05
如何在Word文档中插入不带扩展名的文件路径和文件名？
如何在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
Copy
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点！深入了解下面突出显示的功能或 单击此处探索 Kutools for Word 的全部功能.
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择（PDF/TXT/DOC/XLSX） / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件 ...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字 ...
🧹 轻松清洁: 扫开 多余的空间 / 分节符/ 所有标题 / 文本框 / 超链接 / 如需更多删除工具，请前往我们的删除组
➕ 创意插入: 插页 千位分隔符 / 复选框 / 单选按钮 / 二维码 / 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 在我们的插入组中发现更多信息
🔍 精准选择: 精确定位特定页面 / 表 / 形状 / 标题段落 / 使用我们的选择组轻松导航
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具 ...
使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。
了解更多 免费下载 购买
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
