Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как обратиться к объекту Надпись (Access,Word) / 3 сообщений из 3, страница 1 из 1
28.02.2007, 13:27:50
    #34360470
Mbus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как обратиться к объекту Надпись (Access,Word)
Есть вордовский шаблон.
В колонтитулах первой страницы присутствует объект Надпись.
Как мне к нему обратиться, если я не знаю его имени, но он один и всегда на том же самом месте? мне туда текст нужно вписать.

Причем максрос написан не в Ворд а в аксессесе, он оттуда открывается и заполняется.


Вот если в макросе непосредственно в Ворде (в том же шаблоне пробую) пишу такие строчки
пример
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'область колонтитула
ActiveWindow.ActivePane.Selection.HeaderFooter.Shapes("Text Box 3").Select

он выделит объект Надпись, ну тут я имя ее вычислила.

Но если я на кнопку в форме аксессовской вешаю макрос и пишу там:
пример
...
Set W = CreateObject("Word.Application")
W.Documents.Add ( <путь к Тому самому шаблону>)
...
W.ActiveWindow.ActivePane.View.SeekView =wdSeekCurrentPageHeader
W.ActiveWindow.ActivePane.Selection.HeaderFooter.Shapes("Text Box 3").Select
...

не получается, ругается
...
Рейтинг: 0 / 0
01.03.2007, 12:01:25
    #34363074
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как обратиться к объекту Надпись (Access,Word)
Mbus

Вот пример, где в колонтитуле первой страницы (здесь Headers(2) означает Headers(wdHeaderFooterFirstPage), т.е. 2 у Headers – значение константы wdHeaderFooterIndex) первого раздела (Sections(1)) обращаемся к объекту Shapes(1) и не проверяя есть ли он в наличии и каков его тип печатаем в него пробный текст:

Код: plaintext
1.
2.
3.
Set W = CreateObject("Word.Application")
Set Doc = W.Documents.Add("<путь к файлу>")
Doc.Sections( 1 ).Headers( 2 ).Shapes( 1 ).TextFrame.TextRange.Text = "test text"
W.Visible = True
...
Рейтинг: 0 / 0
01.03.2007, 13:34:39
    #34363479
Mbus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как обратиться к объекту Надпись (Access,Word)
СПАСИБО БОЛЬШОЕ!!!! прошло!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как обратиться к объекту Надпись (Access,Word) / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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