SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Заполенение колонтитула в msword



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP
View previous topic :: View next topic  
Author Message
pavell
Участник
Участник



Joined: 20 Jun 2012
Posts: 28

PostPosted: Mon Sep 16, 2013 2:45 pm    Post subject: Заполенение колонтитула в msword Reply with quote

Добрый день. Формирую документ word с помощью ole2. Не могу найти нормальной документации по методам и объектам этой технологии. Мне нужно заполнить колонтитул в документе и передавать туда данные из программы, какой объект за это отвечает не могу определить. Очень нужна помощь
Back to top
View user's profile Send private message
alezhu
Специалист
Специалист



Joined: 29 Apr 2012
Posts: 86
Location: Spb

PostPosted: Mon Sep 16, 2013 6:04 pm    Post subject: Reply with quote

Тут как бы недопонимание наблюдается. OLE2 - это просто технология. У нее как бы и нет своих объектов и методов.
На этой технологии построен этот самый MS Word. Лучшая документация по нему - в нем самом. Открываете редактор макросов (VBA) и справку там или Object Browser.

Что касаемо вашей задачи.
Проще всего завести поле в колонтитуле со ссылкой на переменную, а саму переменную заполнять через OLE (см. ActiveDocument.Variables).

Если не все так просто, и обычного текста мало, то надо понимать, что документ Word состоит из разделов (Section). Каждый раздел может иметь 2 колонтитула (верхний и нижний). Внутри колонтитула может быть все что угодно в принципе - таблицы, картинки, текст в общем почти полный Word внутри Word'а. И тут надо смотреть что вам конкретно нужно.

Например, получить текст верхнего колонтитула первого раздела можно так
Code:
ActiveDocument.Sections.First.Headers.Item(1).Range.Text


а текст из первой ячейки первой строки первой таблицы в верхнем колонтитуле первого раздела так
Code:
ActiveDocument.Sections.First.Headers.Item(1).Range.Tables(1).Rows(1).Cells(1).Range.Text
Back to top
View user's profile Send private message
pavell
Участник
Участник



Joined: 20 Jun 2012
Posts: 28

PostPosted: Fri Sep 20, 2013 9:05 pm    Post subject: Reply with quote

alezhu wrote:

Спасибо за помощь!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.