可通过注册表或VBA宏在Excel/Word标题栏显示文件路径：Excel和Word均支持注册表键DisplayDocumentPathInTitleBar设为1启用；Excel可用Workbook_Open/BeforeClose事件VBA自动更新；Word可用AutoOpen/AutoClose宏实现动态显示。
如果您希望在 Excel 或 Word 的标题栏中直接显示当前文档的完整文件路径，以便快速识别文件位置，则需要通过修改应用程序的注册表设置或使用 VBA 宏来实现。以下是针对两个软件分别提供的可行方法：
一、Excel 中通过注册表启用文件路径显示
此方法修改 Excel 启动时读取的注册表项，强制其在标题栏末尾追加当前工作簿的完整路径。操作前请确保已关闭所有 Excel 实例，并建议提前备份注册表。
1、按
Win + R打开“运行”对话框，输入regedit并回车。
2、导航至以下路径：
HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Excel\Options（若 Options 项不存在，请右键“Excel”→“新建”→“项”，命名为 Options）。
3、在右侧空白处右键→“新建”→“DWORD (32 位) 值”，命名为DisplayDocumentPathInTitleBar。
4、双击该新建项，将“数值数据”设为
1，点击“确定”。
5、重新启动 Excel，打开任意已保存的工作簿，标题栏右侧将显示完整路径。
二、Word 中通过注册表启用文件路径显示
与 Excel 类似，Word 可通过注册表键值控制标题栏是否显示文档路径。该设置适用于 Word 2016 及后续版本（含 Microsoft 365），且仅对已保存的文档生效。
1、按
Win + R打开“运行”，输入regedit并回车。
2、定位到：
HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Word\Options（若 Options 不存在，请手动创建）。
3、右键右侧空白区域→“新建”→“DWORD (32 位) 值”，名称设为DisplayDocumentPathInTitleBar。
4、双击该值，将“数值数据”修改为
1，基数保持“十进制”。
5、关闭注册表编辑器，重启 Word 并打开一个已保存的 .docx 文件，标题栏将同步显示其完整路径。
三、Excel 中使用 VBA 宏动态更新标题栏
该方法不依赖注册表，而是通过 Workbook_Open 和 Workbook_BeforeClose 事件自动写入和清除路径信息，适用于无法修改注册表的受限环境（如企业终端），且支持未保存文件显示“[未保存]”提示。
Trae win Trae Windows 官方版本现已全面支持 Win10 和 Win11 系统（64位）。国内开发者可直接访问 Trae 中文官网（trae.cn 或 trae.com.cn），一键下载官方正版 .exe 安装包，享受国内直连的高速稳定体验。安装过程极其简便，双击即可运行，并支持一键无缝导入 VS Code 或 Cursor 的原有主题、快捷键及插件配置。登录支持手机号、微信或稀土掘金账号。内置免费的豆包与 DeepSeek 等顶级大模型，让你开箱即用，轻松开启高效的 AI 智能编程之旅。
下载1、在 Excel 中按Alt + F11打开 VBA 编辑器。
2、在左侧“工程
资源管理器”中双击ThisWorkbook。
3、粘贴以下代码：
Private Sub Workbook_Open()If ThisWorkbook.Path "" ThenApplication.Caption = ThisWorkbook.FullNameElseApplication.Caption = ThisWorkbook.Name & " [未保存]"End IfEnd SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)Application.Caption = "Microsoft Excel"End Sub 4、关闭 VBA 编辑器，将工作簿另存为启用宏的格式（.xlsm）。
5、每次重新打开该文件时，标题栏即显示其完整路径；关闭后恢复默认标题。
四、Word 中使用 VBA 宏动态更新标题栏
该方案通过 Document_Open 和 Document_Close 事件控制标题栏内容，可精确反映文档保存状态，并兼容网络路径与本地路径。
1、在 Word 中按Alt + F11打开 VBA 编辑器。
2、在左侧“工程资源管理器”中双击
Normal（或当前模板对应的 ThisDocument）。
3、插入新模块：点击“插入”→“模块”，粘贴以下代码：
Sub AutoOpen()If ActiveDocument.Path "" ThenApplication.Caption = ActiveDocument.FullNameElseApplication.Caption = ActiveDocument.Name & " [未保存]"End IfEnd SubSub AutoClose()Application.Caption = "Microsoft Word"End Sub 4、将该宏保存在 Normal.dotm 模板中，使其对所有新建/打开的文档生效。
5、重启 Word，打开任意文档，标题栏即时显示其路径信息。