[Iska]

Убрать абсолютно ненужное «objDoc.Activate()». Получить количество абзацев:

Код:

Dim x As Long = objDoc.Paragraphs.Count