Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 3 ]
- Настаев
- подполковник
- Неактивен
- Зарегистрирован: 14.07.2011
- Сообщений: 176
- Поблагодарили: 54
Тема: [решено] Вставить поле (Field.Add) в таблицу нижнего колонтитула
В нижнем колонтитуле есть таблица. С помощью макроса я могу заполнять эти ячейки текстом. Например:
Activedocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Tables(1).columns(1).Cells(1).Range.Text = "текст"
А как вместо текста вставить туда поле?
Я пробовал так:
Activedocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Tables(1).columns(1).Cells(1).Range.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
И так тоже пробовал:
Activedocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Tables(1).columns(1).Cells(1).Range.Fields.Add Range:=Activedocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Tables(1).columns(1).Cells(1).Range, Type:=wdFieldPage
Всё время пишет, что команда недоступна.
А если использовать эту команду в тексте (не в колонтитуле) -- работает
Activedocument.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
![[решено] Вставить поле (Field.Add) в таблицу нижнего колонтитула](http://wordexpert.ru/forum/img/avatars/6.jpg "[решено] Вставить поле (Field.Add) в таблицу нижнего колонтитула")
- viter.alex
- Модератор
- Неактивен
- Откуда: Харьков, Украина
- Зарегистрирован: 21.12.2009
- Сообщений: 884
- Поблагодарили: 140
- За сообщение: 1
Re: [решено] Вставить поле (Field.Add) в таблицу нижнего колонтитула
Перед вставкой поля в диапазон, если это целая ячейка таблицы, нужно из диапазона удалить символ конца ячейки. Это можно сделать несколькими способами: свернуть диапазон к началу или концу (Collapse) или сдвинуть конец диапазона на 1 символ влево (MoveEnd wdCharacter, -1)
Dim r As Range
Set r = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Tables(1).Columns(1).Cells(1).Range
r.Collapse wdCollapseStart
r.Fields.Add r, wdFieldPage
Лучше день потерять — потом за пять минут долететь!
- Настаев
- подполковник
- Неактивен
- Зарегистрирован: 14.07.2011
- Сообщений: 176
- Поблагодарили: 54
Re: [решено] Вставить поле (Field.Add) в таблицу нижнего колонтитула
Работает! 
Сообщений [ 3 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
[решено] Вставить поле (Field.Add) в таблицу нижнего колонтитула
Форум Ворд Эксперт представляет собой средоточие полезной информации по вопросам работы в приложении Microsoft Word. На портале о Microsoft Office Word вы узнаете про: word импорт экспресс-блоков.
Портал русскоязычный, предназначен для помощи пользователям по вопросам работы с редактором и собрал большое количество полезной информации и инструкций по работе с программой. Наш сайт о Microsoft Office Word даст ответ про: проблемы при работе microsoft office word 2010..
Посетители ресурса могут познакомиться с обширным списком литературы по использованию программы, поискать обсуждение своей проблемы в ответах на часто возникающие вопросы и в готовых решениях. На портале о Microsoft Office Word вы узнаете про: автосохранение отложено для normal.
Если же искомое не найдено, можно обратиться со своим вопросом к старожилам сайта напрямую. Обязательно указывайте в вопросах, в какой версии вы работаете. На портале о Microsoft Office Word вы узнаете про: как вернуть страниц из чернового варианта в обычный word 2010.
На форуме Ворд Эксперт вы сможете научиться настраивать программу, форматировать и редактировать документы, разрабатывать шаблоны и даже научитесь писать макросы. Наш сайт о Microsoft Office Word даст ответ про: один формат текста в другой.
При желании доверить это дело профессионалам можно оставить заявку на выполнение вашей работы в разделе «Заявки на разработку». Наш сайт о Microsoft Office Word даст ответ про: читать файлы docx.
Использование редактора на полную мощность поможет вам оптимизировать свою работу, добиться лучших результатов в максимально короткие сроки и не затрачивая при этом значительных усилий. Наш сайт о Microsoft Office Word даст ответ про: неверно указана единица измерения word при открытии файла.
В этом поможет форум Ворд Эксперт – лучший форум по работе с Microsoft Word.
![[решено] Вставить поле (Field.Add) в таблицу нижнего колонтитула](/forum/style/Oxygen/images/we.png "[решено] Вставить поле (Field.Add) в таблицу нижнего колонтитула")