Import and Export

<dxre:RichEditControl  Name="richEditControl1" 
                       CommandBarStyle="Ribbon" 
                       DocumentSource="{DXBinding $local:SourceHelper.GetDocumentSource()'}">
</dxre:RichEditControl>

private void Form1_Load(object sender, EventArgs e)
{
  using (Stream stream = new FileStream("FirstLook.docx", FileMode.Open))
  {
    richEditControl.LoadDocument(stream);
  }
}

...

private void Form1_FormClosed(object sender, FormClosedEventArgs e)
{
   richEditControl.SaveDocument("Result.docx", DocumentFormat.OpenXml);
}

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
    Using stream As Stream = New FileStream("FirstLook.docx", FileMode.Open)
            richEditControl.LoadDocument(stream)
    End Using
End Sub 

...

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As FormClosedEventArgs)
    richEditControl.SaveDocument("Result.docx", DocumentFormat.OpenXml)
End Sub 

private void RichEditControl_BeforeImport(object sender, BeforeImportEventArgs e)
{
    if (e.DocumentFormat == DocumentFormat.PlainText)
    {
    //Detect plain text encoding automatically: 
    ((DXRichEditPlainTextDocumentImporterOptions)e.Options).AutoDetectEncoding = true;
    }

    if (e.DocumentFormat == DocumentFormat.Doc)
    {
    //Disable loading comments added to removed ranges in DOC documents 
    ((DXRichEditDocDocumentImporterOptions)e.Options).KeepCommentsForRemovedRanges = false;
    }

    if (e.DocumentFormat == DocumentFormat.Html)
    {
    //Load images synchronously with HTML documents 
    ((DXRichEditHtmlDocumentImporterOptions)e.Options).AsyncImageLoading = false;
    }
}

Private Sub RichEditControl_BeforeImport(ByVal sender As Object, ByVal e As BeforeImportEventArgs)
    If e.DocumentFormat = DocumentFormat.PlainText Then 
        'Detect plain text encoding automatically: 
        (CType(e.Options, DXRichEditPlainTextDocumentImporterOptions)).AutoDetectEncoding = True 
    End If 

    If e.DocumentFormat = DocumentFormat.Doc Then 
        'Disable loading comments added to removed ranges in DOC documents 
        (CType(e.Options, DXRichEditDocDocumentImporterOptions)).KeepCommentsForRemovedRanges = False 
    End If 

    If e.DocumentFormat = DocumentFormat.Html Then 
        'Load images synchronously with HTML documents 
        (CType(e.Options, DXRichEditHtmlDocumentImporterOptions)).AsyncImageLoading = False 
    End If 
End Sub 

private void RichEditControl_BeforeExport(object sender, BeforeExportEventArgs e)
{
    if (e.DocumentFormat == DocumentFormat.PlainText)
    {
        //Include document fields in the exported plain text:  
        DXRichEditPlainTextDocumentExporterOptions plainTextOptions = e.Options as DXRichEditPlainTextDocumentExporterOptions;
        plainTextOptions.ExportHiddenText = true;
        plainTextOptions.FieldCodeEndMarker = ">";
        plainTextOptions.FieldCodeStartMarker = "[<";
        plainTextOptions.FieldResultEndMarker = "]";
    }

    if (e.DocumentFormat == DocumentFormat.OpenXml)
    {
        //Specify what DOCX document properties to export:  
        DXRichEditOpenXmlDocumentExporterOptions docxOptions = e.Options as DXRichEditOpenXmlDocumentExporterOptions;
        docxOptions.ExportedDocumentProperties = DocumentPropertyNames.Title | DocumentPropertyNames.LastModifiedBy | DocumentPropertyNames.Modified;
    }

    if (e.DocumentFormat == DocumentFormat.Html)
    {
        //Specify HTML export options:  
        DXRichEditHtmlDocumentExporterOptions htmlOptions = e.Options as DXRichEditHtmlDocumentExporterOptions;
        htmlOptions.EmbedImages = true;
        htmlOptions.CssPropertiesExportType = CssPropertiesExportType.Style;
        htmlOptions.UseFontSubstitution = false;
    }
}

Private Sub RichEditControl_BeforeExport(ByVal sender As Object, ByVal e As BeforeExportEventArgs)
    If e.DocumentFormat = DocumentFormat.PlainText Then 
    'Include document fields in the exported plain text:  
    Dim plainTextOptions As DXRichEditPlainTextDocumentExporterOptions = TryCast(e.Options, DXRichEditPlainTextDocumentExporterOptions)
    plainTextOptions.ExportHiddenText = True 
    plainTextOptions.FieldCodeEndMarker = ">" 
    plainTextOptions.FieldCodeStartMarker = "[<" 
    plainTextOptions.FieldResultEndMarker = "]" 
    End If 

    If e.DocumentFormat = DocumentFormat.OpenXml Then 
    'Specify what DOCX document properties to export:  
    Dim docxOptions As DXRichEditOpenXmlDocumentExporterOptions = TryCast(e.Options, DXRichEditOpenXmlDocumentExporterOptions)
    docxOptions.ExportedDocumentProperties = DocumentPropertyNames.Title Or DocumentPropertyNames.LastModifiedBy Or DocumentPropertyNames.Modified
    End If 

    If e.DocumentFormat = DocumentFormat.Html Then 
    'Specify HTML export options: 
    Dim htmlOptions As DXRichEditHtmlDocumentExporterOptions = TryCast(e.Options, DXRichEditHtmlDocumentExporterOptions)
    htmlOptions.EmbedImages = True 
    htmlOptions.CssPropertiesExportType = CssPropertiesExportType.Style
    htmlOptions.UseFontSubstitution = False 
    End If 
End Sub 

private void Server_BeforeImport(object sender, BeforeImportEventArgs e)
{
    server.Options.DocumentCapabilities.CharacterFormatting = DocumentCapability.Disabled;
    server.Options.DocumentCapabilities.Comments = DocumentCapability.Disabled;
    server.Options.DocumentCapabilities.InlineShapes = DocumentCapability.Disabled;
}

Private Sub Server_BeforeImport(ByVal sender As Object, ByVal e As BeforeImportEventArgs)
    server.Options.DocumentCapabilities.CharacterFormatting = DocumentCapability.Disabled
    server.Options.DocumentCapabilities.Comments = DocumentCapability.Disabled
    server.Options.DocumentCapabilities.InlineShapes = DocumentCapability.Disabled
End Sub