ASP.Net: Import BulletList from Word document using OpenXML

Hi comunidadmexi...,

You need to use Paragraph ParagraphProperties to check Bullet list. With regular expression it not possible to verify.

Refer below code.

Namespaces

C#

using DocumentFormat.OpenXml.Packaging;
using DocumentFormat.OpenXml.Wordprocessing;
using System.Text.RegularExpressions;

VB.Net

Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Wordprocessing
Imports System.Text.RegularExpressions

Code

C#

protected void Page_Load(object sender, EventArgs e)
{
    if (!this.IsPostBack)
    {
        string file = @"C:\Users\developer4\Desktop\Test.docx";
        using (WordprocessingDocument wordDoc = WordprocessingDocument.Open(file, true))
        {
            Body body = wordDoc.MainDocumentPart.Document.Body;
            string contents = "";

            var reg = new Regex(@"^[\s\p{L}\d\•\-]");

            foreach (Paragraph co in wordDoc.MainDocumentPart.Document.Body.Descendants<Paragraph>())
            {
                if (co.ParagraphProperties != null && co.ParagraphProperties.NumberingProperties != null)
                {
                    contents += co.InnerText + "<br />";
                    //insert contents into database.
                }
                else
                {
                    // Do other checking.
                }
            }
        }
    }
}

VB.Net

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    If Not Me.IsPostBack Then
        Dim file As String = "C:\Users\developer4\Desktop\Test.docx"
        Using wordDoc As WordprocessingDocument = WordprocessingDocument.Open(file, True)
            Dim body As Body = wordDoc.MainDocumentPart.Document.Body
            Dim contents As String = ""
            Dim reg = New Regex("^[\s\p{L}\d\•\-]")
            For Each co As Paragraph In wordDoc.MainDocumentPart.Document.Body.Descendants(Of Paragraph)()
                If co.ParagraphProperties IsNot Nothing AndAlso co.ParagraphProperties.NumberingProperties IsNot Nothing Then
                    contents += co.InnerText & "<br />"
                Else
                End If
            Next
        End Using
    End If
End Sub