DocumentRange AppendText(
    string text
)

Function AppendText(
    text As String
) As DocumentRange

document.AppendText("abcdefgh");
DocumentRange r1 = document.AppendText("X");
string s1 = String.Format("Range r1 starts at {0}, ends at {1}", r1.Start, r1.End);
document.AppendText("Y");
document.AppendText("Z");
string s2 = String.Format("Currently range r1 starts at {0}, ends at {1}", r1.Start, r1.End);
document.Paragraphs.Append();
document.AppendText(s1);
document.Paragraphs.Append();
document.AppendText(s2);

document.AppendText("abcdefgh")
Dim r1 As DocumentRange = document.AppendText("X")
Dim s1 As String = String.Format("Range r1 starts at {0}, ends at {1}", r1.Start, r1.End)
document.AppendText("Y")
document.AppendText("Z")
Dim s2 As String = String.Format("Currently range r1 starts at {0}, ends at {1}", r1.Start, r1.End)
document.Paragraphs.Append()
document.AppendText(s1)
document.Paragraphs.Append()
document.AppendText(s2)

document.BeginUpdate();
document.AppendText("Normal\nFormatted\nNormal");
document.EndUpdate();

#region #AddCustomXmlPart
document.AppendText("This document contains custom XML parts.");
// Add an empty custom XML part.

foreach (VbaModule module in document.VbaProject.Modules)
{ document.AppendText("\r\n \u00B7 " + module.Name); }

SetAutoCorrectOptions();
            richEditControl1.Document.AppendText(@"This sample expander uses Mary Morken's 2007 list of abbreviations for medical transcriptions, containing 13420 entries.
The list has been downloaded from http://www.mtdaily.com/abbvs.txt. To indicate the beginning of the list, the line containing the 'START' string is added.");

richEditControl.Document.AppendText("Table Test\r\n");
Table table = richEditControl.Document.Tables.Create(richEditControl.Document.Paragraphs[1].Range.Start, 8, 8, AutoFitBehaviorType.AutoFitToWindow);

document.BeginUpdate()
document.AppendText("Normal" & Global.Microsoft.VisualBasic.Constants.vbLf & "Formatted" & Global.Microsoft.VisualBasic.Constants.vbLf & "Normal")
document.EndUpdate()

' #Region "#AddCustomXmlPart"
            document.AppendText("This document contains custom XML parts.")
            ' Add an empty custom XML part.

Dim newHeader As DevExpress.XtraRichEdit.API.Native.SubDocument = firstSection.BeginUpdateHeader()
newHeader.AppendText("Header")
firstSection.EndUpdateHeader(newHeader)

SetAutoCorrectOptions()
            richEditControl1.Document.AppendText("This sample expander uses Mary Morken's 2007 list of abbreviations for medical transcriptions, containing 13420 entries. " & ControlChars.CrLf & _
"The list has been downloaded from http://www.mtdaily.com/abbvs.txt. To indicate the beginning of the list, the line containing the 'START' string is added.")

richEditControl.Document.AppendText("Table Test" & ControlChars.CrLf)
Dim table As Table = richEditControl.Document.Tables.Create(richEditControl.Document.Paragraphs(1).Range.Start, 8, 8, AutoFitBehaviorType.AutoFitToWindow)