在标题栏显示文档路径

办公族

德敏 · 2005年5月9日

使用Word的用户都知道，默认情况下Word的标题栏只显示当前文档的文件名，不显示存放路径。如果我们想获取当前文档的存放路径，则必须通过查看文档属性或者其他方法来获取。这难免有些麻烦。要是能直接在标题栏上将路径显示出来，那该多好呀！别担心。下面介绍的方法就是用来解决这个问题的。启动Word，然后按“Alt+F11”组合键，打开Visual Basic编辑器。接着，在编辑器左边的工程窗格中选中“Normal”项并展开之，然后执行“插入→模块”命令，在“Normal”项下插入模块。然后在右边空白窗格中键入以下代码：

Sub AutoOpen()

ActiveWindow.Caption = ActiveDocument.FullName

End Sub

Sub FileSave()

If ActiveDocument.Path = "" Then

Dialogs(wdDialogFileSaveAs).Show

System.Cursor = wdCursorNormal

ActiveWindow.Caption = ActiveDocument.FullName

Else

ActiveDocument.Save

End If

End Sub

Sub FileSaveAs()

Dialogs(wdDialogFileSaveAs).Show

System.Cursor = wdCursorNormal

ActiveWindow.Caption = ActiveDocument.FullName

End Sub

键入完毕后，关闭Visual Basic编辑窗口，打开一个文档验证一下，果然，完整的路径清晰地显示在Word的标题栏上。