Document .Net - Find Paragraph

How to find all paragraphs aligned by center in DOCX document using C# and VB.Net


Complete code

using System;
using System.IO;
using System.Linq;
using SautinSoft.Document;

namespace Example
{
    class Program
    {
        static void Main(string[] args)
        {
            FindParagraph();
        }
        /// <summary>
        /// Find all paragraphs aligned by center in DOCX document and mark it by yellow.
        /// </summary>
        /// </remarks>
        /// Details: https://sautinsoft.com/products/document/examples/find-paragraphs-in-docx-document-net-csharp-vb.php
        /// </remarks>
        static void FindParagraph()
        {
            string filePath = @"..\..\example.docx";
            string fileResult = @"Result.docx";
            DocumentCore dc = DocumentCore.Load(filePath);

            foreach (Paragraph par in dc.GetChildElements(true, ElementType.Paragraph).
                Where(p => p as Paragraph).ParagraphFormat.Alignment == HorizontalAlignment.Center))
            {
                par.ParagraphFormat.BackgroundColor = Color.Yellow;
            }
            dc.Save(fileResult);
            System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(fileResult) { UseShellExecute = true });

        }
    }
}

Download.

        
            Imports System
Imports System.IO
Imports System.Linq
Imports SautinSoft.Document

Namespace Example
    Friend Class Program
        Shared Sub Main(ByVal args() As String)
            FindParagraph()
        End Sub
        ''' <summary>
        ''' Find all paragraphs aligned by center in DOCX document and mark it by yellow.
        ''' </summary>
        ''' </remarks>
        ''' Details: https://sautinsoft.com/products/document/examples/find-paragraphs-in-docx-document-net-csharp-vb.php
        ''' </remarks>
        Private Shared Sub FindParagraph()
            Dim filePath As String = "..\example.docx"
            Dim fileResult As String = "Result.docx"
            Dim dc As DocumentCore = DocumentCore.Load(filePath)

            For Each par As Paragraph In dc.GetChildElements(True, ElementType.Paragraph).Where(Function(p) (TryCast(p, Paragraph)).ParagraphFormat.Alignment = HorizontalAlignment.Center)
                par.ParagraphFormat.BackgroundColor = Color.Yellow
            Next par
            dc.Save(fileResult)
            System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(fileResult) With {.UseShellExecute = True})

        End Sub
    End Class
End Namespace

Download.

© SautinSoft 2002 - 2019