1 (изменено: o5andrey, 2020-03-31 08:24:06)

Тема: VBA Word: Вставка даты

Нужно реализовать вставку даты как автоматически (сегодняшней), так и произвольно.
Произвольно в моём случае будет при помощи:

ActiveDocument.FormFields.Add Range:=ActiveDocument.Tables(1).Cell(2, 5).Range, Type:=wdFieldFormTextInput

А автоматически - макрорекодер помог получить это:

ActiveDocument.Fields.Add Range:=ActiveDocument.Tables(1).Cell(2, 5).Range, Type:=wdFieldEmpty, Text:="DATE  ", PreserveFormatting:=True

Последнее выдаёт ошибку "Данная команда недоступна" (4605) (защита документа отключена). Как же надо?

2

Re: VBA Word: Вставка даты

Вот так вот мудрёно только получилось:

ActiveDocument.Tables(1).Cell(2, 5).Range.Select
Selection.Collapse
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="DATE  ", PreserveFormatting:=True