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

null@example.com (o5andrey) — Tue, 31 Mar 2020 06:37:22 +0000

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

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

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

null@example.com (o5andrey) — Tue, 31 Mar 2020 04:23:37 +0000

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

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: Вставка даты