|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.12.2008, 15:15 | #1 |
Пользователь
Регистрация: 17.12.2008
Сообщений: 56
|
Footers(wdHeaderFooterPrimary).Rang e.Tables.Add
Создаю таблицу в колонтитуле.
Set oTable = Sec.Footers(wdHeaderFooterPrimary). Range.Tables.Add(myRange, 4, 2, wdAutoFitWindow) With oTable ....... ....... End With Все отлично работает, но возникает ошибка, если в тексте документа, уже есть какая-нибудь таблица. Кто знает, что делать? |
17.12.2008, 16:04 | #2 |
Пользователь
Регистрация: 17.12.2008
Сообщений: 56
|
Сообщение "Не удается удалить диапазон".
Пардон, наличие таблиц в тексте, не причина. |
17.12.2008, 16:29 | #3 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Код:
|
24.03.2009, 17:00 | #4 |
Пользователь
Регистрация: 17.12.2008
Сообщений: 56
|
та же ошибка в троке:
Set oTable = Sec.Footers(wdHeaderFooterPrimary). Range.Tables.Add(myRange, 4, 2, wdAutoFitWindow) '================================= Set myRange = ActiveDocument.Sections(1).Footers( wdHeaderFooterPrimary).Range For Each Sec In ActiveDocument.Sections Set oTable = Sec.Footers(wdHeaderFooterPrimary). Range.Tables.Add(myRange, 4, 2, wdAutoFitWindow) Sec.Footers(wdHeaderFooterPrimary). Range.Font.Size = 10 With oTable .Cell(1, 1).Range = a1 .Cell(1, 2).Range = b1 End With Next Sec |
24.03.2009, 21:04 | #5 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Конечно, ошибка. Алёна, попробуй словами описать, что ты делаешь в приведенном коде. Я попробовал, и вот, что получается:
Лучше день потерять — потом за пять минут долететь!©
|
27.03.2009, 12:05 | #6 |
Пользователь
Регистрация: 17.12.2008
Сообщений: 56
|
Why??? It's impossible???
А как? |
27.03.2009, 13:08 | #7 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
«— Пойдем простым, логическим путем.
— Пойдем вместе!»© «Ирония судьбы» Если мы хотим вставить таблицу в нижний колонтитул первой страницы каждого раздела, то зачем нам запоминать диапазон нижнего колонтитула первой страницы первого раздела? Не понятно. Мелкомягкие ребята перемудрили. По идее, если я пишу Range.Tables.Add, то я уже указываю в какой дипазон я добавляю таблицу. Но нет, при добавлении таблицы нужно указывать этот диапазон еще раз. Т.е. в случае с нашими колонтитулами, по идее, должно быть так: Код:
Лучше день потерять — потом за пять минут долететь!©
|
27.03.2009, 13:48 | #8 |
Пользователь
Регистрация: 17.12.2008
Сообщений: 56
|
ОООО!!!!!!!!!!!!!!!!! Всё получилось!!!!!!!!!
Спасибо!!!! Так потом, нужно заполнить ячейки таблицы. |
27.03.2009, 15:26 | #9 |
Пользователь
Регистрация: 17.12.2008
Сообщений: 56
|
перед
Set oTable = Sec.Footers(wdHeaderFooterPrimary). Range.Tables.Add _ (Sec.Footers(wdHeaderFooterPrimary) .Range, 4, 2, wdAutoFitWindow) написала: ActiveDocument.PageSetup.OddAndEven PagesHeaderFooter = True и здесь указывается, что "Значение лежит вне допустимого диапазона" |
27.03.2009, 16:19 | #10 | |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Цитата:
Алёна, пользуйтесь тегами [code][/code] для оформления кода программы. Кнопка на панели инструментов.
Лучше день потерять — потом за пять минут долететь!©
|
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
куда закачиваются файлы WorkBooks.ADD ? | salgir | Microsoft Office Excel | 8 | 08.10.2008 21:32 |
MS Word: Range | kate4ka | Общие вопросы Delphi | 1 | 19.02.2008 06:14 |
Chart1.Foot.Text.Add('gsdhfjk'); | Небесный | Общие вопросы Delphi | 7 | 17.02.2008 15:21 |
Query1.SQL.Add('.......'); <--- ПОМОГИТЕ !!! | SALEM | БД в Delphi | 3 | 24.11.2006 11:29 |