Текстовые столбцы являются свойством Section форматирования.
Давайте создадим простой документ с четырьмя текстовыми столбцами и какой-нибудь текст, как показано на картинке:
Полный код
using SautinSoft.Document;
namespace Sample
{
class Sample
{
static void Main(string[] args)
{
// Get your free 100-day key here:
// https://sautinsoft.com/start-for-free/
TextColumns();
}
/// <summary>
/// Working with text columns.
/// </summary>
/// <remarks>
/// Details: https://sautinsoft.com/products/document/help/net/developer-guide/text-columns.php
/// </remarks>
public static void TextColumns()
{
string documentPath = @"TextColumns.docx";
// Let's create a document with 4 columns.
DocumentCore dc = new DocumentCore();
// Add new section
Section s = new Section(dc);
dc.Sections.Add(s);
s.PageSetup.PageMargins = new PageMargins()
{
Top = LengthUnitConverter.Convert(5, LengthUnit.Millimeter, LengthUnit.Point),
Right = LengthUnitConverter.Convert(5, LengthUnit.Millimeter, LengthUnit.Point),
Bottom = LengthUnitConverter.Convert(5, LengthUnit.Millimeter, LengthUnit.Point),
Left = LengthUnitConverter.Convert(5, LengthUnit.Millimeter, LengthUnit.Point)
};
s.PageSetup.TextColumns = new TextColumnCollection(4);
s.PageSetup.TextColumns.EvenlySpaced = false;
s.PageSetup.TextColumns[0].Width = LengthUnitConverter.Convert(60, LengthUnit.Millimeter, LengthUnit.Point);
s.PageSetup.TextColumns[1].Width = LengthUnitConverter.Convert(20, LengthUnit.Millimeter, LengthUnit.Point);
s.PageSetup.TextColumns[2].Width = LengthUnitConverter.Convert(60, LengthUnit.Millimeter, LengthUnit.Point);
s.PageSetup.TextColumns[3].Width = LengthUnitConverter.Convert(20, LengthUnit.Millimeter, LengthUnit.Point);
// Fill our columns by any text.
string text = "Shrek and Donkey arrive at Farquaad's palace in Duloc, where they end up in a tournament. The winner gets the \"privilege\" of rescuing Fiona so that Farquaad may marry her. ";
for (int i = 0; i < 22; i++)
s.Content.End.Insert(text, new CharacterFormat() { FontName = "Arial", Size = 12 });
(s.Blocks[0] as Paragraph).ParagraphFormat.Alignment = HorizontalAlignment.Justify;
// Save our document into DOCX format.
dc.Save(documentPath);
// Open the result for demonstration purposes.
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(documentPath) { UseShellExecute = true });
}
}
}
Imports System
Imports System.IO
Imports SautinSoft.Document
Module Sample
Sub Main()
TextColumns()
End Sub
''' Get your free 100-day key here:
''' https://sautinsoft.com/start-for-free/
''' <summary>
''' Working with text columns.
''' </summary>
''' <remarks>
''' Details: https://sautinsoft.com/products/document/help/net/developer-guide/text-columns.php
''' </remarks>
Sub TextColumns()
Dim documentPath As String = "TextColumns.docx"
' Let's create a document with 4 columns.
Dim dc As New DocumentCore()
' Add new section
Dim s As New Section(dc)
dc.Sections.Add(s)
s.PageSetup.PageMargins = New PageMargins() With {
.Top = LengthUnitConverter.Convert(5, LengthUnit.Millimeter, LengthUnit.Point),
.Right = LengthUnitConverter.Convert(5, LengthUnit.Millimeter, LengthUnit.Point),
.Bottom = LengthUnitConverter.Convert(5, LengthUnit.Millimeter, LengthUnit.Point),
.Left = LengthUnitConverter.Convert(5, LengthUnit.Millimeter, LengthUnit.Point)
}
s.PageSetup.TextColumns = New TextColumnCollection(4)
s.PageSetup.TextColumns.EvenlySpaced = False
s.PageSetup.TextColumns(0).Width = LengthUnitConverter.Convert(60, LengthUnit.Millimeter, LengthUnit.Point)
s.PageSetup.TextColumns(1).Width = LengthUnitConverter.Convert(20, LengthUnit.Millimeter, LengthUnit.Point)
s.PageSetup.TextColumns(2).Width = LengthUnitConverter.Convert(60, LengthUnit.Millimeter, LengthUnit.Point)
s.PageSetup.TextColumns(3).Width = LengthUnitConverter.Convert(20, LengthUnit.Millimeter, LengthUnit.Point)
' Fill our columns by any text.
Dim text As String = "Shrek and Donkey arrive at Farquaad's palace in Duloc, where they end up in a tournament. The winner gets the ""privilege"" of rescuing Fiona so that Farquaad may marry her. "
For i As Integer = 0 To 21
s.Content.End.Insert(text, New CharacterFormat() With {
.FontName = "Arial",
.Size = 12
})
Next i
TryCast(s.Blocks(0), Paragraph).ParagraphFormat.Alignment = HorizontalAlignment.Justify
' Save our document into DOCX format.
dc.Save(documentPath)
' Open the result for demonstration purposes.
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(documentPath) With {.UseShellExecute = True})
End Sub
End Module
Если вам нужен пример кода или у вас есть вопрос: напишите нам по адресу support@sautinsoft.com или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: