Консультация № 177413
22.03.2010, 21:46
0.00 руб.
0 0 0
Уважаемые эксперты подскажите в следующем имеется поле вида текущая дата, то есть TIME \@ "d MMMM yyyy 'г.'", его перед печатью мне надо остановить, чтобы после распечатки оно не изменялось, но Унлинк мне не подходит, для этой цели пишу код:
If Trim$(ActiveDocument.Fields(1).Code) Like "*TIME*" Then
Позиция_начала_поля_TIME = ActiveDocument.Fields(1).Result.Start
Позиция_конца_поля_TIME = ActiveDocument.Fields(1).Result.End
Set Поле00 = ActiveDocument.FormFields.Add(Range:=ActiveDocument.Range(Start:=Позиция_начала_поля_TIME, End:=Позиция_конца_поля_TIME), Type:=wdFieldFormTextInput)
ActiveDocument.Bookmarks(Поле00.Name).Delete 'удалить закладку с именем ...
Поле00.Result = Format(Date, "d MMMM yyyy г.") 'присваивание текстовому полю ..., значения ...
End If
Прогоняя его пошагово вижу, что всё идёт по плану, но в конечном итого после распечатки поле таким же и осталось TIME \@ "d MMMM yyyy 'г.'", подскажите как решить эту проблему.

Спасибо Эндрю

Обсуждение

Форма ответа