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

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


Вот если в макросе непосредственно в Ворде (в том же шаблоне пробую) пишу такие строчки
пример
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
как обратиться к объекту Надпись (Access,Word)
    #34363074
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
как обратиться к объекту Надпись (Access,Word)
    #34363479
Mbus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
СПАСИБО БОЛЬШОЕ!!!! прошло!
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как обратиться к объекту Надпись (Access,Word)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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