Word Reader .NET component - C# / VB.NET Examples & Samples Code

Imports Docs.Word

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Creates a new instance of Document class and reads a .doc file into this structure
        Dim Doc As New Document()
        Doc.ReadDoc("..\..\Data\WordParagraph.doc")

' Writes the type of node
        TextBox.Text += "Type of node" & vbTab & vbTab & vbTab & ": " + Doc.Sections(0).Nodes(0).Type.ToString & vbCr & vbLf

' If this node is a paragraph...
        If Doc.Sections(0).Nodes(0).Type = NodeType.Paragraph Then
            ' Gets the paragraph properties
            Dim tStyle As ParagraphStyle = DirectCast(Doc.Sections(0).Nodes(0), Paragraph).Style

' Writes them
            TextBox.Text += "Paragraph is in list" & vbTab & vbTab & vbTab & ": " + tStyle.List.isInList.ToString & vbCr & vbLf
            TextBox.Text += "Alignment" & vbTab & vbTab & vbTab & vbTab & ": " + tStyle.Alignment.ToString & vbCr & vbLf
            TextBox.Text += "Keep paragraph on single page" & vbTab & ": " + tStyle.KeepOnSinglePage.ToString & vbCr & vbLf
            TextBox.Text += "Next paragraph on the same page" & vbTab & ": " + tStyle.KeepFollowingParOnSamePage.ToString & vbCr & vbLf
            TextBox.Text += "Page break before paragraph" & vbTab & vbTab & ": " + tStyle.PageBreakBefore.ToString & vbCr & vbLf
            TextBox.Text += "Don't counting the lines" & vbTab & vbTab & ": " + tStyle.NoLineNumbers.ToString & vbCr & vbLf
            TextBox.Text += "Right indent in twips" & vbTab & vbTab & vbTab & ": " + tStyle.RightIndent.ToString & vbCr & vbLf
            TextBox.Text += "Left indent in twips" & vbTab & vbTab & vbTab & ": " + tStyle.LeftIndent.ToString & vbCr & vbLf
            TextBox.Text += "Indent of the first line of paragraph" & vbTab & ": " + tStyle.FirstLineIndent.ToString & vbCr & vbLf

If tStyle.LineSpacing.Multiply = True Then
                Dim tmp = tStyle.LineSpacing.Spacing / 240
                TextBox.Text += "Line-spacing" & vbTab & vbTab & vbTab & ": " & tmp.ToString & "x " & vbCr & vbLf
            Else
                TextBox.Text += "Line-spacing" & vbTab & vbTab & vbTab & ": " + tStyle.LineSpacing.Spacing.ToString & "twips " & vbCr & vbLf
            End If

TextBox.Text += "Spacing before paragraph in twips" & vbTab & ": " + tStyle.SpacingBefore.ToString & vbCr & vbLf
            TextBox.Text += "Spacing after paragraph in twips" & vbTab & ": " + tStyle.SpacingAfter.ToString & vbCr & vbLf
            TextBox.Text += "If this paragraph has custom tab stops" & vbTab & ": " + tStyle.HasCustomTabStops.ToString & vbCr & vbLf
            TextBox.Text += "If this paragraph has borders" & vbTab & vbTab & ": " + tStyle.Borders.HasBorders.ToString & vbCr & vbLf
            TextBox.Text += "Auto-hyphenation" & vbTab & vbTab & vbTab & ": " + tStyle.AutoHyphenation.ToString & vbCr & vbLf
            TextBox.Text += "If this paragraph has shading" & vbTab & vbTab & ": " + tStyle.Shading.HasShading.ToString & vbCr & vbLf
            TextBox.Text += "Outline level" & vbTab & vbTab & vbTab & ": " + tStyle.OutlineLevel.ToString & vbCr & vbLf
        End If

End Sub
End Class