SectionCollection Sections { get; }

ReadOnly Property Sections As SectionCollection

using DevExpress.XtraRichEdit;
using DevExpress.XtraRichEdit.API.Native;
using DevExpress.Drawing.Printing;
using DevExpress.Utils;

using (var wordProcessor = new RichEditDocumentServer()) {

    wordProcessor.LoadDocument("Documents\\Grimm.docx");
    Document document = wordProcessor.Document;

    document.Sections[0].Page.PaperKind = DXPaperKind.A6;
    document.Sections[0].Page.Landscape = true;
    document.Sections[0].Margins.Left = Units.InchesToDocumentsF(2.0f);
}

Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraRichEdit.API.Native
Imports DevExpress.Drawing.Printing
Imports DevExpress.Utils

Using wordProcessor = New RichEditDocumentServer()
    wordProcessor.LoadDocument("Documents\Grimm.docx")
    Dim document As Document = wordProcessor.Document

    document.Sections(0).Page.PaperKind = DXPaperKind.A6
    document.Sections(0).Page.Landscape = True
    document.Sections(0).Margins.Left = Units.InchesToDocumentsF(2.0F)
End Using

document.Unit = DevExpress.Office.DocumentUnit.Inch;
Section sec = document.Sections[0];
sec.LineNumbering.CountBy = 2;

#region #CreateHeader
Section firstSection = document.Sections[0];
// Create an empty header.

// Access the first document section.
Section firstSection = document.Sections[0];

for (int i = 0; i < sourceSectionCount; i++) {
    Section sourceSection = source.Sections[i];
    Section targetSection = target.Sections[lastSectionIndexBeforeAppending + i];

private void btnTextWatermark_Click(object sender, EventArgs e) {
    Section section = richEditControl1.Document.Sections[0];
    TextWatermarkOptions options = new TextWatermarkOptions()

document.Unit = DevExpress.Office.DocumentUnit.Inch
Dim sec As DevExpress.XtraRichEdit.API.Native.Section = document.Sections(0)
sec.LineNumbering.CountBy = 2

document.Unit = DevExpress.Office.DocumentUnit.Inch
Dim sec As Section = document.Sections(0)
sec.LineNumbering.CountBy = 2

' Access the first document section.
Dim firstSection As DevExpress.XtraRichEdit.API.Native.Section = document.Sections(0)
' Check whether the document already has a header (the same header for all pages).

For i As Integer = 0 To sourceSectionCount - 1
    Dim sourceSection As Section = source.Sections(i)
    Dim targetSection As Section = target.Sections(lastSectionIndexBeforeAppending + i)

Private Sub btnTextWatermark_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnTextWatermark.Click
    Dim section As Section = richEditControl1.Document.Sections(0)
    Dim options As TextWatermarkOptions = New TextWatermarkOptions() With {