Метод Range.InsertDateTime (Word)
Вставляет текущую дату или время либо как текст, либо как поле TIME.
Синтаксис
expression. InsertDateTime (DateTimeFormat, InsertAsField, InsertAsFullWidth, DateLanguage, CalendarType)
выражение (обязательно). Переменная, представляющая объект Range .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Datetimeformat | Необязательный | Variant | Формат, используемый для отображения даты или времени или и того, и другого. Если этот аргумент опущен, Microsoft Word использует стиль краткой даты из панель управления Windows (значок "Региональные параметры"). |
| InsertAsField | Необязательный | Variant | Значение true , чтобы вставить указанные сведения в качестве поля TIME. Значение по умолчанию — True. |
| InsertAsFullWidth | Необязательный | Variant | Значение true , чтобы вставить указанные сведения в виде двубайтовых цифр. Этот аргумент может быть вам недоступен в зависимости от выбранной или установленной языковой поддержки (например, английский язык США). |
| DateLanguage | Необязательный | Variant | Задает язык, на котором будут отображаться дата или время. Может быть любой из констант WdDateLanguage . Этот аргумент может быть вам недоступен в зависимости от выбранной или установленной языковой поддержки (например, английский язык США). |
| CalendarType | Необязательный | Variant | Задает тип календаря, используемый при отображении даты или времени. Может быть любой из констант WdCalendarTypeBi . Этот аргумент может быть вам недоступен в зависимости от выбранной или установленной языковой поддержки (например, английский язык США). |
Пример
В этом примере текущая дата вставляется в конец активного документа. Возможный результат: "01/12/99".
With ActiveDocument.Content
.Collapse Direction:=wdCollapseEnd
.InsertDateTime DateTimeFormat:="MM/dd/yy", _
InsertAsField:=False
End With
В этом примере в колонтитул активного документа вставляется поле TIME для текущей даты.
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range _
.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _
InsertAsField:=True
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.