Произвольная выборка слов

[Skif-F]

Почему код:

a = ActiveDocument.Words.Count
For i=1 to a
CurWord = ActiveDocument.Words(i).Text
...
Next i

значительно (раз в 10) медленнее, чем:

a = ActiveDocument.Paragraphs.Count
Set myRange = ActiveDocument.Range(Start:=0, End:=ActiveDocument.Paragraphs(a).R ange.End)
For Each aWord In myRange.Words
CurWord = aWord.Text
....
Next aWord

Как можно ускорить? При условии, что мне нужна произвольная выборка слов, а не последовательная

[Skif-F]

Уточняю задачу.
Обработка текста по словам. Но так как Word воспринимает слово "всё-таки" как 3 (три) слова, то необходимо после произвеси изменение в словах, проанализировав всю последовательность.

[viter.alex]

Можно попробовать перебирать предложения, а текст предложения разбивать на слова функцией Split. В получившемся массиве слов удалять знаки препинания. Но при этом потеряется информация о положении слова в документе, хотя её можно будет восстановить по номеру слова в массиве. Как-то так.

[Skif-F]

Сообщение от viter.alex

Можно попробовать перебирать предложения, а текст предложения разбивать на слова функцией Split. В получившемся массиве слов удалять знаки препинания. Но при этом потеряется информация о положении слова в документе, хотя её можно будет восстановить по номеру слова в массиве. Как-то так.

Спасибо за вариант! Я этот вариант уже прорабатываю. Просто ещё хотелось узнать почему так медленно.
Хотя, у меня уже возникли соображения по этому поводу: при индексированном доступе Word заново просматривает весь документ, пересчитывая слова, при каждом обращении за словом. А при последовательном доступе он этого не делает

[Вождь]

Самый быстрый способ:

Dim R As Range
        Set R = ActiveDocument.Words.First
        Do
            Set R = R.Next(Unit:=wdWord, Count:=1)
        Loop While Not (R Is Nothing)

Как ни странно, а способ Next/Pred на 25-30% быстрее чем For Each. Параметр Count позволяет проводить выборку произвольно.

Свойство Count лучше вообще не использовать, даже само по себе оно очень тормозит. Попробуйте на большом документе получить ActiveDocument.Characters.Count.

[Skif-F]

Спасибо. Попробую