Как найти все абзацы, выровненные по центру в документе DOCX, используя C# и .NET
- Добавьте SautinSoft.Document из Nuget.
- Загрузите документ.
- Найдите все абзацы.
- Объедините их содержимое.
- Сохраните документ.
Полный код
GitHubusing System;
using System.IO;
using System.Linq;
using SautinSoft.Document;
namespace Example
{
class Program
{
static void Main(string[] args)
{
// Get your free 100-day key here:
// https://sautinsoft.com/start-for-free/
FindParagraph();
}
/// <summary>
/// Find all paragraphs aligned by center in DOCX document and mark it by yellow.
/// </summary>
/// <remarks>
/// Details: https://sautinsoft.com/products/document/help/net/developer-guide/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 });
}
}
}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
''' Get your free 100-day key here:
''' https://sautinsoft.com/start-for-free/
''' <summary>
''' Find all paragraphs aligned by center in DOCX document and mark it by yellow.
''' </summary>
''' <remarks>
''' Details: https://sautinsoft.com/products/document/help/net/developer-guide/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
Если вам нужен пример кода или у вас есть вопрос: напишите нам по адресу support@sautinsoft.com или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: