[решено] Количество параграфов

[hacker16]

Добрый день, есть программа, которая считывает текст с определенного параграфа. Вопрос, как исправить программу, чтобы она считала количество всех параграфов в документе.
http://i.piccy.info/i9/be2f2651ca902f30cc7d8ad4082e85e0/1411900069/69244/806705/1.jpg
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objApp As Word.Application
Dim objDoc As Word.Document

objApp = New Word.Application
objDoc = objApp.Documents.Open("C:\new.docx")
objDoc.Activate()

Dim x As Word.Range = objDoc.Paragraphs(2).Range

MessageBox.Show(x.Text)

objDoc.Close()
objApp.Quit()
objDoc = Nothing
objApp = Nothing
End Sub

[Iska]

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

[hacker16]

Iska, Спасибо.