Найти непустые абзацы в 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 для поиска непустого абзаца? Или мне нужно зациклить и проверить найденную длину абзаца?

Спасибо!