Отчётик

[Skif-F]

Как-то я озадачился программной обработкой текста в ворде. Даже обращался с вопросами на форум Произвольная выборка слов
Теперь хочу поделиться с народом результатами своих изысканий.
Надеюсь, что хоть кому-нибудь мой отчёт облегчит жизнь

[viter.alex]

Dim S As Range      'Указатель на предложение
Dim W As Range      'Указатель на слово в предложении
Dim CS(1 To 200) As String  'Слова из предложения (коллекцию поменяли на массив)
Do  'Цикл переборки предложений
    'Разбиваем предложение на слова
    Set W = S.Words.First   'Указатель на первое слово предложения
    For i = 1 To S.Words.Count  'Заполняем массив слов предложения
        CS(i) = LCase(Trim(W.Text))
        Set W = W.Next(Unit:=wdWord, Count:=1)
    Next i
    'Анализ предложения
    For i = 1 To S.Words.Count      'Цикл переборки слов в предложении
       CurWord = CS(i)
	 ...
    Next i

    Set S = S.Next(Unit:=wdSentence, Count:=1)'Переходим к след. предложению
Loop Until S Is Nothing

Данное изменение позволило выиграть примерно 3-5% времени по сравнению с использованием Collection.

А сколько даст выигрыша, если сделать массив динамическим и всё-таки уйти от Words.Count?

  Dim S As Range      'Указатель на предложение
  Dim W As Range      'Указатель на слово в предложении
  Dim CS() As String  'Слова из предложения (коллекцию поменяли на массив)
  Dim i As Long
  Dim CurWord As String
  Set S = ActiveDocument.Sentences.First
  Do Until S Is Nothing 'Цикл переборки предложений
      'Разбиваем предложение на слова
      Set W = S.Words.First   'Указатель на первое слово предложения
      ReDim CS(1 To S.Words.Count)
      For i = LBound(CS) To UBound(CS)  'Заполняем массив слов предложения
          CS(i) = LCase(Trim(W.Text))
          Set W = W.Next(Unit:=wdWord, Count:=1)
      Next i
      'Анализ предложения
      For i = LBound(CS) To UBound(CS)      'Цикл переборки слов в предложении
         CurWord = CS(i)
'     ...
      Next i
  
      Set S = S.Next(Unit:=wdSentence, Count:=1) 'Переходим к след. предложению
  Loop

[Skif-F]

Не знаю, не пробовал.
от Word.Count мы не уходим, так как он присутствует здесь:

ReDim CS(1 To S.Words.Count)

Вообще, я считаю, что лишние переопределения массива займут больше времени, ведь при каждом проходе надо выполнить команду ReDim!
А команду

For i = LBound(CS) To UBound(CS)

я бы всё-таки представил как:

UB = S.Words.Count
For i = 1 To UB

Что не говорите, но вызов функций с передачей параметров, как правило более долгая операция, чем обращение к переменной

[viter.alex]

Что ж, тогда я попробую.
Для приложенного документа получен такой результат:

Сообщение от Word 2007

Производительность макроса Arrays1 составляет 82,1562698611136 секунд
Производительность макроса Arrays2 составляет 69,5167000275175 секунд

Сообщение от Word 2003

Производительность макроса Arrays1 составляет 60,9405731734061 секунд
Производительность макроса Arrays2 составляет 53,9718053551499 секунд

Как видно, производительность на довольно большом документе различается в сотых (прям олимпиада). Ну и 2003-й работает пошустрее почти на треть
Note: Arrays1 это твой вариант, Arrays2 — мой.[

Добавлено позже
В результаты тестирования внесены изменения. Вложение изменено. См. это сообщение

[Skif-F]

Ускорение я заметил при замене Words.Count на переменную в заголовках циклов:

Dim UB As Integer
UB = S.Words.Count
For i = 1 To UB

Как ни странно но получил 11,5 сек вместо 13,02!
При использовании динамического массива ни ускорения, ни замедления я не заметил.
При замене UB на UBount(CS) теряется примерно 0,5 сек
Всё вполне ожидаемо. В любом случае, спасибо за идею - 10-15% выигрыш во времени (что я раньше не заменил Words.Count на переменную?! )

[Skif-F]

З.Ы. я тестил на своей программе.
разницу в сотые (и даже десяты) доли секунды я игнорирую, поскольку система (операционная) тоже требует внимание процессора

[viter.alex]

Должен принести извинения. По невнимательности я тестировал один и тот же макрос. Поэтому такие незначительные различия в производительности. Ошибку исправил и теперь видно, что мой код работает быстрее.
Ещё раз прошу прощения. Изменения в текст сообщения внёс, вложенный файл исправил и перезалил. Результаты не ахти, т.к. запускал на очень старом ноутбуке.

[Skif-F]

Протестировал изменённый вариант.
Как я и говорил, ускорение даёт замена Words.Count в заголовках циклов на переменную.
Вариант с UBound/LBound чуть-чуть (около 0,1 сек) проигрывает варианту с переменными