Сохранение документа Word с текущей датой в имени файла с помощью кода VBA
Чтобы автоматически добавить текущую дату в имя файла при сохранении документа 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 для Word
Kutools для Word — это не просто набор инструментов, а интеллектуальное решение, созданное для максимального повышения вашей продуктивности. Благодаря возможностям на базе искусственного интеллекта и самым востребованным функциям Kutools помогает вам достигать большего за меньшее время:
Мгновенно суммируйте, переписывайте, создавайте и переводите контент.
Проверяйте текст в режиме реального времени: получайте рекомендации по грамматике, пунктуации и стилю прямо во время набора.
Переформулируйте и переведите контент, не изменяя макет, стиль и структуру.
Легко переводите свой контент на более чем 40 языков и расширяйте аудиторию по всему миру.
Получайте мгновенную помощь и интеллектуальные рекомендации на основе содержимого вашего текущего документа.
Просто спросите, как выполнить задачу — например, удалить разрыв раздела, — и ИИ либо подскажет, как это сделать, либо выполнит действие за вас.
Удаляйте конфиденциальную или чувствительную информацию всего за несколько секунд и обеспечивайте полную конфиденциальность.
Все инструменты безупречно работают прямо в Word и всегда под рукой.
Создавайте, улучшайте, переводите, резюмируйте и защищайте документы легко и без усилий.
Улучшайте грамматику, ясность и тон текста в режиме реального времени — прямо по мере набора.
Переформулируйте и переведите контент, сохранив исходный макет и форматирование без изменений.
Просто спросите, как выполнить задачу — например, удалить разрыв раздела, — и ИИ либо подскажет, как это сделать, либо выполнит действие за вас.
Все инструменты безупречно работают прямо в Word и всегда под рукой.
🌍Поддержка более чем 40 языков: Используйте Kutools на предпочитаемом языке — доступны английский, испанский, немецкий, французский, китайский и ещё более 40 языков!
