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

Question

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

Спасибо!