How to find paragraph style in document

Question

0.00/5 (No votes)

See more:

Hi guys,

I want to read a word document and get all the formatting styles in that document.
My problem is to find the styles in that document.

Here is my code

VB

Dim doc As New word.Document
Dim docapp As New word.Application
Dim para_tag As word.Paragraph
Dim paracount As Integer

For Each para_tag In docapp.ActiveDocument.Paragraphs
      MsgBox(para_tag.Style)
Next

Plz give some other suggestion..
Thanks...

Posted 29-Mar-13 3:26am

ckulasekaran

Add a Solution

Comments

Prasad Khandekar 29-Mar-13 17:05pm

Have you tried using OPen XML SDK 2.0 for Office, available here (http://www.microsoft.com/en-in/download/details.aspx?id=5124[^]) on Micrsoft download site? You can use Styles collection of ActiveDocument to enumerate all styles.

For Each styl In ActiveDocument.Styles
Console.Write(styl.NameLocale)
Next

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2013-03-29T12:07:00

Code seems to be OK, but need some corrections:
Using early binding

VB

Dim sFileName As String = "C:\Test.doc"
Dim docapp As New Word.Application
Dim doc As Word.Document = docapp.Documents.Open(sFileName)
Dim para_tag As Word.Paragraph
Dim paracount As Integer

For Each para_tag In doc.Paragraphs
     paracount += 1 
     MsgBox(para_tag.Style.ToString(), MsgBoxStyle.OKOnly, "Para no.:" & paracount.ToString())
Next

Using late binding

VB

Dim sFileName As String = "C:\Test.doc"
Dim docapp As Object = CreateObject("Word.Application")
Dim doc As Object = docapp.Documents.Open(sFileName)
Dim para_tag As Object
Dim paracount As Integer

For Each para_tag In doc.Paragraphs
     paracount += 1 
     MsgBox(para_tag.Style.ToString(), MsgBoxStyle.OKOnly, "Para no.:" & paracount.ToString())
Next

I suggest you to add Try...Catch...End Try[^] block.

[EDIT]
Ok, test it:

VB

Module Module1

    Sub Main()
        Dim sFileName As String = "C:\MyDocument.doc"
        EnumWrdPara(sFileName)
        Console.ReadKey()

    End Sub


    Sub EnumWrdPara(sDocFullName AS String)
        Dim docapp As Object = Nothing
        Dim doc As Object = Nothing
        Dim para_tag As Object = Nothing
        Dim paracount As Integer = 0


        Try
            docapp = CreateObject("Word.Application")
            doc = docapp.Documents.Open(sDocFullName)
            For Each para_tag In doc.Paragraphs
                paracount += 1
                Console.WriteLine("Paragraph no.: {0} - style: (1)", paracount.ToString(), para_tag.Style.ToString)
            Next


        Catch ex As System.NullReferenceException
            Console.WriteLine(ex.Message)

        Catch ex As IO.IOException
            Console.WriteLine(ex.Message)

        Catch ex As Exception
            Console.WriteLine(ex.Message)

        Finally
            para_tag = Nothing
            doc.Close(SaveChanges:=False)
            doc = Nothing
            docapp.Quit()
            docapp = Nothing

        End Try

    End Sub

End Module

It works, it has been checked. ;)
[/EDIT]