SubDocument BeginUpdate()

Function BeginUpdate As SubDocument

static void EditNote(RichEditDocumentServer wordProcessor)
{
    wordProcessor.LoadDocument("Documents//Grimm.docx");
    Document document = wordProcessor.Document;

    //Access the footnote's content:
    SubDocument footnote = document.Footnotes[0].BeginUpdate();

    //Exclude the reference mark and the space after it from the range to be edited:
    DocumentRange noteTextRange = 
    footnote.CreateRange(footnote.Range.Start.ToInt() + 2, footnote.Range.Length
        - 2);
    //Clear the range and insert a new text:
    footnote.Delete(noteTextRange);
    footnote.AppendText("the text is removed");

    //Finalize the footnote update:
    document.Footnotes[0].EndUpdate(footnote);

    //Access the first endnote's content:
    SubDocument endnote = document.Endnotes[0].BeginUpdate();

    //Exclude the reference mark and the space after it from the range to be edited:
    DocumentRange noteTextRange = endnote.CreateRange(endnote.Range.Start.ToInt() + 2, endnote.Range.Length
        - 2);

    //Access the range's character properties:
    CharacterProperties characterProperties = endnote.BeginUpdateCharacters(noteTextRange);

    characterProperties.ForeColor = System.Drawing.Color.Red;
    characterProperties.Italic = true;

    //Finalize the character options update:
    endnote.EndUpdateCharacters(characterProperties);

    //Finalize the endnote update:
    document.Endnotes[0].EndUpdate(endnote);
}

Shared Sub EditFootnote(ByVal wordProcessor As RichEditDocumentServer)
  wordProcessor.LoadDocument("Documents//Grimm.docx")
  Dim document As Document = wordProcessor.Document

  'Access the footnote's content:
  Dim footnote As SubDocument = document.Footnotes(0).BeginUpdate()

  'Exclude the reference mark and the space after it from the range to be edited:
  Dim noteTextRange As DocumentRange = 
  footnote.CreateRange(footnote.Range.Start.ToInt() + 2, footnote.Range.Length - 2)
  'Clear the range and insert a new text:
  footnote.Delete(noteTextRange)
  footnote.AppendText("the text is removed")

  'Finalize the footnote update:
  document.Footnotes(0).EndUpdate(footnote)
End Sub

//Access the first fottnote's content:
SubDocument footnote = document.Footnotes[0].BeginUpdate();

//Access the first fottnote's content:
SubDocument footnote = document.Footnotes[0].BeginUpdate();

// Access the first footnote content.
SubDocument footnote = document.Footnotes[0].BeginUpdate();

'Access the first fottnote's content:
Dim footnote As DevExpress.XtraRichEdit.API.Native.SubDocument = document.Footnotes(CInt((0))).BeginUpdate()
'Exclude the reference mark and the space after it from the range to be edited:

'Access the first fottnote's content:
Dim footnote As SubDocument = document.Footnotes(0).BeginUpdate()

' Access the first footnote content.
Dim footnote As DevExpress.XtraRichEdit.API.Native.SubDocument = document.Footnotes(CInt((0))).BeginUpdate()
' Exclude the reference mark and the space after it from the range that is edited.