Ну, во-первых, вам может понадобиться перебрать все верхние и нижние колонтитулы всех разделов, если вы также хотите искать пустые параграфы в этих верхних и нижних колонтитулах.1003 *
for each p in Doc.Content.Paragraphs
if (p.Range.End - p.Range.Start) > 1 then (The paragraph is not empty)
Next
Возможно, вам придется поиграть с этим числом «1», потому что я не могу вспомнить, где Word устанавливает начальную и конечную точки, пустые абзацы могут быть длиной от 2 до 2 символов, а не только один..
Вы также можете делать такие вещи, как
p.Range.Sentences.Count > 0
или
p.Range.Characters.Count > 0
Но эти методы обычно медленнее, чем проверка начальных и конечных положений.