如果在保存Word文档时需要自动将当前日期添加到文件名中，您该如何处理此任务呢？
要在保存Word文档时自动将当前日期添加到文件名中，请按照以下步骤操作：
1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。
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 不仅仅是一套工具——它是一个旨在提升您生产力的智能解决方案。通过人工智能驱动的功能和最核心的特性，Kutools 帮助您在更短的时间内完成更多任务：
🤖 Kutools AI 功能：AI助手 / 实时助手 / 超级润色（保留格式）/ 超级翻译（保留格式）/ AI遮挡 / AI校正...
📘 文档精通：拆分页面 / 合并文档 / 以多种格式导出选择内容（PDF/TXT/DOC/HTML...）/ 批量转换为 PDF...
✏ 内容编辑：跨多个文件批量查找和替换 / 调整所有图片大小 / 翻转表格的行和列 / 表格转文本...
🧹 轻松清理：清除多余空格 / 分节符 / 文本框 / 超链接 / 更多清理工具，请前往“清除”组...
➕ 创意插入：插入千位分隔符 / 复选框 / 单选按钮 / 二维码 / 条形码 / 多张图片 / 在“插入 ”组中发现更多...
🔍 精确选择：定位特定页面 / 表格 / 形状 / 标题段落 / 使用更多 选择 功能增强导航...
⭐ 星级增强功能：跳转到任意位置 / 自动插入重复文本 / 在文档窗口之间切换 / 11 种转换 工具...
