Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Таблица в колонтитуле / 3 сообщений из 3, страница 1 из 1
18.11.2005, 14:21:45
    #33386924
laifik
laifik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в колонтитуле
Есть шаблон, в колонтитуле которого находится таблица штампа. Как мне выйти на эту таблицу, чтобы уже можно было программно работать со столбцами?
Я пробую активизировать нижний колонтитул, затем "Перейти"->"Таблица"->"2".
Вследствие моих действий, колонтитул закрывается, а курсор переходит на таблицу, которая находится далее в самом документе вне колонтитула.
Буду благодарна за помощь.
На вордовском форуме нашла такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.Tables( 1 ).Cell( 1 ,  7 ).Select
strText = Selection.Tables( 1 ).Cell( 1 ,  7 )
strText = Left(strText, Len(strText) -  2 )
msgbox(strText)
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Но он у меня не работает. На строке
Код: plaintext
Selection.Tables( 1 ).Cell( 1 ,  7 ).Select
пишет, что нет такого объекта. Хотя в колонтитуле таблица же присутстует?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2005, 14:45:59
    #33387014
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в колонтитуле
Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim rng As Range
    Dim tbl As Table
    
    Set rng = ActiveDocument.Sections( 1 ).Footers(wdHeaderFooterPrimary).Range
    Set tbl = rng.Tables( 1 )
    
    MsgBox tbl.Cell( 1 ,  6 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2005, 15:01:24
    #33387073
laifik
laifik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в колонтитуле
Просто огромнейшее спасибо! Оказалось просто.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Таблица в колонтитуле / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 434ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166845]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 194ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 21ms
get tp. blocked users:
 1ms
others: 187ms
total:  434ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]