跳至主要内容

Kutools for Office — 一套工具,五种功能。事半功倍。

如何在文件名中包含当前日期保存Word文档?

Author: Xiaoyang Last Modified: 2025-08-22

如果在保存Word文档时需要自动将当前日期添加到文件名中,您该如何处理此任务呢?

使用VBA代码在文件名中包含当前日期保存Word文档


使用VBA代码在文件名中包含当前日期保存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 键运行此代码,随即会弹出一个“另存为”窗口,并且当前日期已自动填充到“文件名”文本框中,如下截图所示:

Save As window with the current date in the File name text box

4. 然后,您只需根据需要输入自己的文件名即可,如下截图所示:

Edit the file name as needed

借助 AI 增强的 Kutools for Word,在更短时间内完成更多工作

Kutools for Word 不仅仅是一套工具——它是一个旨在提升您生产力的智能解决方案。通过人工智能驱动的功能和最核心的特性,Kutools 帮助您在更短的时间内完成更多任务:

  • 即时总结、润色、撰写和翻译内容。
  • 在您写作时,实时校正文本,并提供语法、标点和样式建议。
  • 在保持布局、样式和结构不变的情况下,重新表达和翻译内容。
  • 轻松将您的内容翻译成 40 多种语言,扩大全球影响力。
  • 根据当前文档内容,获得即时帮助和智能见解。
  • 询问如何完成某项任务(例如清除分节符),AI 将为您提供指南或直接为您完成操作。
  • 快速编辑敏感或机密信息,确保完全隐私。
  • 所有工具均可无缝集成到 Word 中,随时可用。
  • 轻松创建、优化、翻译、总结和保护文档。
  • 在实时写作过程中改进语法、清晰度和语气。
  • 重新表达和翻译内容,且不改变布局或格式。
  • 询问如何完成某项任务(例如清除分节符),AI 将为您提供指南或直接为您完成操作。
  • 所有工具均可无缝集成到 Word 中,随时可用。
了解更多关于 Kutools for Word 的信息 立即下载
Kutools for Word features

最佳Office办公效率工具

Kutools for Word - 用超过100项强大功能全面提升你的Word体验!

🤖 Kutools AI 功能AI助手 / 实时助手 / 超级润色(保留格式)/ 超级翻译(保留格式)/ AI遮挡 / AI校正……

📘 文档掌控分割页面 / 文档合并 / 区域导出为多种格式(PDF/TXT/DOC/HTML等)/ 批量转换为PDF……

正文编辑跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……

🧹 高效清理:一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具,请前往删除分组……

创意插入:插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……

🔍 精准选取:快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……

实用增强跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 转换工具……

🌍 支持40多种语言:自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即体验这些功能?马上下载 Kutools for Word!🚀
 

✨ Kutools for Office – 一次安装,五大强力工具集成!

内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间

最佳Office办公效率工具

Kutools for Word - 100+ 项Word工具