Localizar parágrafos não vazios no Word com o VBA

Question

Estou escrevendo um script no VBScript que varre uma coleção de 2000 arquivos do Word e procura aqueles que contêm pelo menos um parágrafo usando um estilo indesejado. Então, o núcleo do meu script é:

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

Agora, meu problema é que estou interessado apenas em parágrafos não vazios. Existe uma maneira que eu possa usar a propriedade Find para procurar um parágrafo não vazio? Ou preciso fazer um loop e testar o tamanho do parágrafo encontrado?

Obrigado!