Как сохранить документ Word с текущей датой в имени файла?
Author: Xiaoyang Last Modified: 2025-08-07
Если вам нужно автоматически добавлять текущую дату в имя файла при сохранении документа Word, как вы можете справиться с этой задачей в файле Word?
Сохранение документа Word с текущей датой в имени файла с помощью кода VBA
Сохранение документа Word с текущей датой в имени файла с помощью кода VBA
Чтобы автоматически добавить текущую дату в имя файла при сохранении документа 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 для Word, усиленным ИИ
Kutools для Word — это не просто набор инструментов, это умное решение, созданное для повышения вашей продуктивности. Благодаря возможностям, управляемым искусственным интеллектом, и самым необходимым функциям, Kutools помогает вам делать больше за меньшее время:
- Мгновенно суммируйте, переписывайте, составляйте и переводите контент.
- Проверяйте текст в реальном времени с предложениями по грамматике, пунктуации и стилю во время написания.
- Перефразируйте и переводите контент, сохраняя макет, стиль и структуру без изменений.
- Легко переводите ваш контент более чем на 40 языков, расширяя свое глобальное присутствие.
- Получайте мгновенную помощь и умные рекомендации на основе содержимого текущего документа.
- Спросите, как выполнить задачу — например, удалить разрывы разделов — и ИИ проведет вас или сделает это за вас.
- Редактируйте конфиденциальную информацию за считанные секунды, чтобы обеспечить полную конфиденциальность.
- Все инструменты работают бесперебойно внутри Word, всегда под рукой.
- Создавайте, улучшайте, переводите, суммируйте и защищайте документы без усилий.
- Улучшайте грамматику, ясность и тон во время написания в реальном времени.
- Перефразируйте и переводите контент без изменений макета или форматирования.
- Спросите, как выполнить задачу — например, удалить разрывы разделов — и ИИ проведет вас или сделает это за вас.
- Все инструменты работают бесперебойно внутри Word, всегда под рукой.
Узнать больше о Kutools для Word Скачать сейчас
Лучшие инструменты для повышения производительности в Office
Kutools для Word – 100+ инструментов для Word
