Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Дипозон многостраничного документа


Автор: Эльвира 22.12.2008, 11:53
Помогите, пожалуйста!
Дописываю РГРку. Осталось установить диапозон на двадцать процентов от многостраничного документа.
Искала везде - результат нулевой. Может не там смотрела.
Помогите! smile 

Автор: Naghual 22.12.2008, 12:16
Поподробнее пожалуйста.
Что такое РГРка?

Автор: Эльвира 22.12.2008, 12:29
Нужно найти слова из словаря в двадцати процетах многостраничного документа.
Словарь - это дополнительный документ.
Все нормально, но из-за диапозона ничего не хочет идти.
Если очень интересно. Вот задача:
Пусть даны многостраничный документ D и документ S «Словарь терминов». Требуется в 20%-ной зоне от начала документа найти все предложения, содержащие хотя бы один термин из словаря. Результат представить в виде текста, созданного в документе DF из найденных предложений и в виде шаблона «anot.dot», в котором сохранен разработанный модуль. 

Автор: Naghual 22.12.2008, 13:44
Как вариант решения:
1. Определяем количество предложений в тексте (ActiveDocument.Sentences.Count)
2. Копируем в новый документ только нужные 20% предложений.
3. Выполняем то, что вы уже сделали.

Автор: Эльвира 22.12.2008, 14:00
Цитата

Копируем в новый документ только нужные 20% предложений.

Поподробнее, пожалуйста!
Остальное я поняла.

Автор: Naghual 22.12.2008, 14:13
Как-то так:
Код

    Dim SourceDoc As Word.Document
    Dim NewDoc As Word.Document
    Dim SentencesCount As Integer
    Dim i As Integer
    Dim Sentence As Range
    
    Set SourceDoc = ThisDocument
    Set NewDoc = Word.Documents.Add
    
    SentencesCount = SourceDoc.Sentences.Count
    SentencesCount = CInt(SentencesCount * 0.2)
    
    For i = 0 To SentencesCount
        SourceDoc.Sentences(i).Copy
        NewDoc.Content.Paste
    Next i

Автор: Эльвира 22.12.2008, 14:25
Спасибо огромное! smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)