如果在保存Word文档时需要自动在文件名中添加当前日期，那么如何在Word文件中处理此任务？
若要在保存Word文档时自动将当前日期添加到文件名中，请执行以下步骤：
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 然后，单击 插页 > 模块，将以下代码复制并粘贴到打开的空白模块中：
VBA代码：将当前日期的Word文档保存在文件名中
Public Sub FileSave1()
Dim xDlg As Dialog
Dim xTitle As String
On Error Resume Next
xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
Format((Day(Now()) Mod 100), "0#")
Set xDlg = Dialogs(wdDialogFileSaveAs)
xDlg.Name = xTitle
xDlg.Show
End Sub
3。 将代码粘贴到模块中后，按 F5 运行此代码的关键，以及 另存为 窗口会自动显示当前日期 文件名 文本框，请参见屏幕截图：
4。 然后，您只需要根据需要键入自己的文件名，请参见屏幕截图：
Kutools for Word 不仅仅是一套工具 - 它是一个旨在提高您的工作效率的智能解决方案。借助 AI 驱动的功能和最基本的功能，Kutools 可帮助您在更短的时间内完成更多工作：
🤖 Kutools AI功能: 生成内容 / 重写文本 / 文档问答 / 快速获得答案 / 翻译文件 / 波兰文档（保留格式）...
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择（PDF/TXT/DOC/HTML...） / 批量转换为PDF...
✏ 内容编辑: 跨多个文件批量查找和替换 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...
🧹 轻松清洁：扫除 多余的空间 / 分节符 / 文本框 / 超链接 / 如需更多移除工具，请访问 删除 团体...
➕ 创意插入： 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 多张图片 / 了解更多 插页 团体...
🔍 精准选择：精确定位 特定页面 / 表 / 形状 / 标题段落 / 增强导航功能 更多 选择 功能...
⭐ 星级增强: 导航到任何位置 / 自动插入重复文本 / 在文档窗口之间切换 / 11 转化 工具...
