[решено] Количество параграфов - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Количество параграфов (http://forum.oszone.net/showthread.php?t=288588)

Количество параграфов

Добрый день, есть программа, которая считывает текст с определенного параграфа. Вопрос, как исправить программу, чтобы она считала количество всех параграфов в документе.

Код:

    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

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

Код:

Dim x As Long = objDoc.Paragraphs.Count

Iska, Спасибо.