Найти непустые абзацы в Word с VBA

Я пишу скрипт на VBScript, который просматривает коллекцию из 2000 файлов Word и ищет те, которые содержат хотя бы абзац, используя нежелательный стиль. Итак, ядро моего скрипта:

Set objDoc = objWord.Documents.Open(objFile.Path)

With objDoc.Range.Find
.Style = objDoc.Styles("Unwanted")

SearchSuccessful = .Execute

If SearchSuccessful Then
    foundStyle = True
End If
End With

Теперь моя проблема в том, что меня интересует только непустой абзац. Есть ли способ использовать свойство Find для поиска непустого абзаца? Или мне нужно зациклить и проверить найденную длину абзаца?

Спасибо!

microsoft-word vba vbscript

— mrgou
источник

VBA не VBScript. Что вы используете?

— Blackwood

В частности, VBScript, но я использую объекты, определенные в Word VBA.

— mrgou