Ощущается как +1

745мм

Новая тема

Вы не можете создавать новые темы.
Т.к. вы неавторизованы на сайте. Пожалуйста назовите себя или зарегистрируйтесь.

Список тем

Word. DocVariables. Как заполнить поле из VBA?

Нужен совет (поиск решения проблемы. не для купли-продажи)

997

С друзьями на NN.RU

У вас пока нет друзей на NN.RU, поэтому ссылка на тему не может быть отправлена.

Воспользуйтесь поиском, чтобы найти новых друзей.

В социальных сетях

Dead

17.02.2010

Создал шаблон с колонтитулом
в колонтитуле вставил поле - DocVariables со значением Descr.
Сохранил шаблон
открыл вба
сделал форму с textbox1 и CommandButton1
в кнопке написал макрос
примерно такой

Private Sub CommandButton1_Click()
ActiveDocument.Variables.Item("Descr").Value = TextBox1.Value
ActiveDocument.Fields.Update

End Sub

и собственно ничего не получается(

хочу чтоб в текстбоксе задавать значение и оно попадало в колонтитул и обновлялось

оно как бы туда попадает, но не обнавляется (если сделать руками "обновить поле" то значение обновляется).

подскажите где чего не так( и как исправить

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

ShIgor

17.02.2010

дело в том, что в ворде для полей указанных в колонтитулах (header и footer) предусмотрены свои места хранения. а они, в свою очередь, содержатся в объекте Sections. в результате, чтобы обновить поля надо написать
ActiveDocument.Sections(1).Headers(1).Range.Fields.Update
ActiveDocument.Sections(1).Footers(1).Range.Fields.Update

и не забывайте проверять кол-во страниц в документе, иначе если нет страниц будет исключение.

кстати, содержание тоже обновляется по-своему.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Dead

17.02.2010

ок, спасибо. щас поэкспериментирую

нашел макрос
Dim oSection As Section
Dim HF As HeaderFooter
For Each oSection In ActiveDocument.Sections
For Each HF In oSection.Headers
HF.Range.Fields.Update
Next HF
Next oSection
For Each oSection In ActiveDocument.Sections
For Each HF In oSection.Footers
HF.Range.Fields.Update
Next HF
Next oSection
вроде как проверяет все колонтитулы и обновляет их, все получается, но есть у меня документ с колонтитуломв котором вставлена картинка(рамка) в нее вставлены надписи туда я вставляю поля и вот они не обновляются почему то(

К сообщению прикреплен файл:
19829390-a4_vertikal-niy_s_titulom.dot (76 Kb) Скачать файл

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

ShIgor

17.02.2010

а это, наверное, уже в ...Headers(1).Shapes(1).Range.Fields или где-то там

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Сейчас читают

Тема Просмотров

Депутаты Госдумы предложили ударить ЯО по макетам Пентагона, Биг-Бена и Эйфелевой башни на испытательном полигоне 1600

про картошку! 70

Умер Эрик Булатов... 115

Нужна сиделка 4840

не надо вам на Мызинский мост -кто вниз собирается 2845

Спинка кресла с подлокотниками 6971

Новая тема

Список тем

Последние темы форумов

Форум Тема (Автор) Последний ответ Ответов

Техно-форум Какую нужно минимальную видео-карту для монитора 4К ? - acella 09.11.2025 в 19:48:12 29

Объявления на НН.РУ - Техника

Добавить объявление

Сетевой фильтр APC Surge Arrest

Сетевой фильтр APC Surge Arrest для радиолюбителя.и не только Отправка в регионы после оплаты. ЦЕНА 3000 руб. В рабочем состоянии....
Цена: 3 000 руб.

Компьютерные и для оргтехники разъёмы

Компьютерные и для оргтехники разъёмы для различной коммутации. переходники . Назначение мне не известно. В наличии 13шт...
Цена: 1 500 руб.

Принтер лазерный HEWLETT PACKARD HP-6L

Принтер лазерный HEWLETT PACKARD HP-6L Отправка в регионы после оплаты. 3штуки БУ. Внешний вид из магазина простояли на складе...
Цена: 4 500 руб.

Материнские платы на запчасти и не только

Материнские платы на запчасти и не только Материнские платы и другие комплектующие Отправка в регионы после оплаты. Транспортной...
Цена: 3 000 руб.