Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.09.2012, 14:15   #1
janspb
Новичок
Джуниор
 
Аватар для janspb
 
Регистрация: 24.08.2012
Сообщений: 1
По умолчанию Как определить номер раздела

Здравствуйте.
Возникла задача. Есть документ word, в котором лежит много актов. Каждый акт выделен в свой раздел (section). Шапки актов лежат в надписях (shape), расположенных в колонтитулах. Соответственно для каждого раздела свой колонтитул.
У меня есть список идентификаторов. по которым нужно найти требуемый акт (раздел) и напечатать.

Решил, что задача не сложная. Цикл по разделам документа, вложенный цикл по shapes. Но не тут-то было
PHP код:
For Each curSection In DocWord.Sections
    
For Each curShape In curSection.Headers(WdHeaderFooterIndex.wdHeaderFooterFirstPage).Shapes
        oRng 
curShape.TextFrame.TextRange
        oRng
.Find.ClearFormatting()
        
oRng.Find.Execute(FindText:="-1426054"Forward:=True)
        If 
oRng.Find.Found Then
            curSection
.Range.Select()
        
End If
    
Next curShape
Next curSection 
Вложенный цикл по shapes на каждом шаге перебирает ВСЕ надписи во ВСЕХ разделах. Как ограничить его в рамках раздела, чтобы перебирались надписи только текущего раздела, придумать не могу.
Подскажите, пожалуйста, как это сделать? Или как зная текущую надпись (curShape) определить к какому разделу она относиться? Как я понял, Parent надписи вернет ссылку на документ, а не на колонтитул или раздел

Последний раз редактировалось janspb; 06.09.2012 в 09:41.
janspb вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как определить заводской номер устройства usb накопителя? defen Помощь студентам 5 24.12.2010 03:14
Как вставить в колонтитулы номер страницы раздела? EvgenAPS Microsoft Office Word 4 12.05.2010 11:30
БД +Treeview определить номер родительского раздела Dozent Компоненты Delphi 14 05.04.2010 13:04
Как определить номер клиента leontv Работа с сетью в Delphi 11 28.03.2010 23:19
Как определить номер выбранной строки в стринггриде Deathwatcher Общие вопросы Delphi 2 15.06.2009 14:40