在文档标题中添加不带.doc扩展名的文件名字段

Ben*_*Ben 7 ms-word word-2007

在Office 2007中工作,我想在文档标题中添加一个文件名字段.该文档稍后将是PDF,因此我不想要扩展名.

我玩过Insert - > QuickParts - > Field,但无济于事.我有一种直觉,认为它需要配方......

如果您能提供帮助,请提前致谢

Den*_*s G 9

你的感觉很对.

Insert > QuickParts > Field > FileName 是要走的路,但正如您从下面的屏幕截图中看到的那样,您无法打开或关闭文件扩展名. 替代文字 要显示或不显示(莎士比亚风格),扩展名纯粹取决于Windows资源管理器设置,以显示或隐藏已知的文件扩展名.因此,要么更改该设置,要么需要一些代码.

一个非常简单的宏将如下:

Sub InsertCurrentFileName()
    Selection.InsertBefore Text:=Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
End Sub
Run Code Online (Sandbox Code Playgroud)

它的作用是简单地删除"文件名字符串"的最后4个字符,例如".doc" - 如果你安全地使用".docx""." 将被保留.此宏也将运行一次,您需要在文件名更改时再次运行它.

也许您可以通过在文档标题中包含文件名来解释您想要实现的更多内容?您是否尝试使用文档标题中的文件名在转换期间设置一些PDF属性?为什么不使用文件标题?您以后需要PDF中的原始文件名 - 为什么?

还有两页可以帮助您解决问题(两者都依赖于宏...):


小智 6

添加[标题]而不是文件名 ,可能会添加一些列出的其他文档属性