void Delete(
    DocumentRange range
)

Sub Delete(
    range As DocumentRange
)

using DevExpress.XtraRichEdit.API.Native;

using (RichEditDocumentServer wordProcessor = new RichEditDocumentServer())
{
    wordProcessor.LoadDocument("FirstLook.docx");
    RemoveSpecificWords(wordProcessor.Document);
}

static void RemoveSpecificWords(Document document)
{
    string word = "Ounce";
    DocumentRange[] found = document.FindAll
      (word, SearchOptions.WholeWord);
    foreach (DocumentRange range in found)
    {
        document.Delete(range);
    }
}

Imports DevExpress.XtraRichEdit.API.Native

Using wordProcessor As New RichEditDocumentServer()
    wordProcessor.LoadDocument("FirstLook.docx")
    RemoveSpecificWords(wordProcessor.Document)
End Using

static void RemoveSpecificWords(Document document)
    Dim word As String = "Ounce"
    Dim found() As DocumentRange = document.FindAll
      (word, SearchOptions.WholeWord)
    For Each range As DocumentRange In found
      document.Delete(range)
    Next range
End Sub

SubDocument target = targetSection.BeginUpdateHeader(headerFooterType);
target.Delete(target.Range);
target.InsertDocumentContent(target.Range.Start, source.Range, InsertOptions.KeepSourceFormatting);

// Delete the first empty paragraph.
tempWordProcessor.Document.Delete(tempWordProcessor.Document.Paragraphs.First().Range);
// Save the document page as an RTF file.

//Clear the range:
footnote.Delete(noteTextRange);

//Clear the range:
footnote.Delete(noteTextRange);

DocumentRange rangeToRemove = doc.CreateRange(range.Start, selLength);
doc.Delete(rangeToRemove);
range.EndUpdateDocument(doc);

Dim target As SubDocument = targetSection.BeginUpdateHeader(headerFooterType)
target.Delete(target.Range)
target.InsertDocumentContent(target.Range.Start, source.Range, InsertOptions.KeepSourceFormatting)

' Delete the first empty paragraph.
tempWordProcessor.Document.Delete(System.Linq.Enumerable.First(Of DevExpress.XtraRichEdit.API.Native.Paragraph)(tempWordProcessor.Document.Paragraphs).Range)
' Save the document page as an RTF file.

'Clear the range:
footnote.Delete(noteTextRange)
'Append a new text:

'Clear the range:
footnote.Delete(noteTextRange)

Dim rangeToRemove As DocumentRange = doc.CreateRange(range.Start, selLength)
doc.Delete(rangeToRemove)
range.EndUpdateDocument(doc)