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

2020-03-31T06:37:22Z

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

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

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

2020-03-31T04:23:37Z

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

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) (защита документа отключена). Как же надо?

Серый форум — VBA Word: Вставка даты

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

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