Word Processing - Export Only <BODY> Tag Content and Specify the Location of CSS Styles

This example uses the HtmlExporter class to export the document in HTML format.

The Export method enables you to emit only content encompassed by the specified root tag. The HtmlDocumentExporterOptions object passed as the method's parameter specifies the location of CSS styles - they can be exported to an external file, located within the style tag, or embedded as inline styles in the corresponding HTML tags.

The code uses a custom UriProvider to accomplish this task. The IUriProviderService.RegisterProvider method instantiates and registers the UriProvider service.

Does this example address your development requirements/objectives?

(you will be redirected to DevExpress.com to submit your response)

Example Code

Program.cs(vb)

C#
VB.NET

C#
using DevExpress.XtraRichEdit;
using DevExpress.XtraRichEdit.API.Native;
using System;
using DevExpress.XtraRichEdit.Export.Html;
using System.Windows.Forms;
using System.IO;
using DevExpress.XtraRichEdit.Export;
using System.Diagnostics;

namespace ExportOnlyBodyContent {
    static class Program {
        /// <summary>
        /// The main entry point for the application.
        /// </summary>
        static CssPropertiesExportType cssExportType;
        static ExportRootTag htmlExportType;
        static void Main() {
            //Application.EnableVisualStyles();
            //Application.SetCompatibleTextRenderingDefault(false);
            //Application.Run(new Form1());
            using (RichEditDocumentServer wordProcessor = new RichEditDocumentServer())
            {
                wordProcessor.LoadDocument("Document.docx");
                Document document = wordProcessor.Document;

                Console.WriteLine("Do you want to export HTML body? y/n");
                string answer1 = Console.ReadLine()?.ToLower();
                if (answer1 == "y") { htmlExportType = ExportRootTag.Body; }
                else { htmlExportType = ExportRootTag.Html; }
                Console.WriteLine("Choose one of the CSS options:\r\nInclude CSS in a <STYLE> tag. - 1\r\nSave style sheets in a separate CSS file - 2\r\nPlace CSS as an attribute to an HTML tag - 3");
                string answer2 = Console.ReadLine()?.ToLower();
                switch (answer2)
                {
                    case "1": cssExportType = CssPropertiesExportType.Style; break;
                    case "2": cssExportType = CssPropertiesExportType.Link; break;
                    case "3": cssExportType = CssPropertiesExportType.Inline; break;
                }
                string fileName = "Exported.html";
                string stringHtml = String.Empty;
                ExportHtml(out stringHtml, fileName, wordProcessor);
                SaveFile(fileName, stringHtml);

                var p = new Process();
                p.StartInfo = new ProcessStartInfo("Exported.html")
                {
                    UseShellExecute = true
                };
                p.Start();
            }
        }
        private static void SaveFile(string fileName, string value)
        {
            using (FileStream stream = new FileStream(fileName, FileMode.Create, FileAccess.Write))
            {
                using (StreamWriter writer = new StreamWriter(stream))
                {
                    writer.Write(value);
                }
            }
        }
        #region #exporting
        private static void ExportHtml(out string stringHtml, string fileName, RichEditDocumentServer wordProcessor)
        {
            stringHtml = String.Empty;
            HtmlDocumentExporterOptions options = new HtmlDocumentExporterOptions();
            options.ExportRootTag = htmlExportType;
            options.CssPropertiesExportType = cssExportType;
            options.TargetUri = Path.GetFileNameWithoutExtension(fileName);
            Document document = wordProcessor.Document;
            var uriProvider = new MyUriProvider(Path.GetDirectoryName(Application.StartupPath));
            stringHtml = document.GetHtmlText(document.Range, uriProvider, options);
        }
        #endregion #exporting
    }

}

Visual Basic
Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraRichEdit.API.Native
Imports DevExpress.XtraRichEdit.Export.Html
Imports System.Windows.Forms
Imports System.IO
Imports DevExpress.XtraRichEdit.Export

Namespace ExportOnlyBodyContent
    Module Program
        Private cssExportType As CssPropertiesExportType
        Private htmlExportType As ExportRootTag

        Sub Main()
            Using wordProcessor As New RichEditDocumentServer()
                wordProcessor.LoadDocument("Document.docx")
                Dim document As Document = wordProcessor.Document

                Console.WriteLine("Do you want to export HTML body? y/n")
                Dim answer1 As String = Console.ReadLine()?.ToLower()
                If answer1 = "y" Then
                    htmlExportType = ExportRootTag.Body
                Else
                    htmlExportType = ExportRootTag.Html
                End If

                Console.WriteLine("Choose one of the CSS options:" & vbCrLf &
                                  "Include CSS in a <STYLE> tag. - 1" & vbCrLf &
                                  "Save style sheets in a separate CSS file - 2" & vbCrLf &
                                  "Place CSS as an attribute to an HTML tag - 3")
                Dim answer2 As String = Console.ReadLine()?.ToLower()
                Select Case answer2
                    Case "1"
                        cssExportType = CssPropertiesExportType.Style
                    Case "2"
                        cssExportType = CssPropertiesExportType.Link
                    Case "3"
                        cssExportType = CssPropertiesExportType.Inline
                End Select

                Dim fileName As String = "Exported.html"
                Dim stringHtml As String = String.Empty
                ExportHtml(stringHtml, fileName, wordProcessor)
                SaveFile(fileName, stringHtml)

                Dim p As New Process()
                p.StartInfo = New ProcessStartInfo("Exported.html") With {
                    .UseShellExecute = True
                }
                p.Start()
            End Using
        End Sub

        Private Sub SaveFile(fileName As String, value As String)
            Using stream As New FileStream(fileName, FileMode.Create, FileAccess.Write)
                Using writer As New StreamWriter(stream)
                    writer.Write(value)
                End Using
            End Using
        End Sub

        Private Sub ExportHtml(ByRef stringHtml As String, fileName As String, wordProcessor As RichEditDocumentServer)
            stringHtml = String.Empty
            Dim options As New HtmlDocumentExporterOptions()
            options.ExportRootTag = htmlExportType
            options.CssPropertiesExportType = cssExportType
            options.TargetUri = Path.GetFileNameWithoutExtension(fileName)
            Dim document As Document = wordProcessor.Document
            Dim uriProvider As New MyUriProvider(Path.GetDirectoryName(Application.StartupPath))
            stringHtml = document.GetHtmlText(document.Range, uriProvider, options)
        End Sub
    End Module
End Namespace

MyUriProvider.cs(vb)

C#
VB.NET

C#
using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using System.Drawing.Imaging;
using System.IO;
using DevExpress.Office.Services;
using DevExpress.XtraRichEdit.Utils;
using DevExpress.Office.Utils;
using DevExpress.Drawing;


namespace ExportOnlyBodyContent {
    public class MyUriProvider : IUriProvider {
        string rootDirecory;
        public MyUriProvider(string rootDirectory) {
            if(String.IsNullOrEmpty(rootDirectory))
                Exceptions.ThrowArgumentException("rootDirectory", rootDirectory);
            this.rootDirecory = rootDirectory;
        }

        public string CreateCssUri(string rootUri, string styleText, string relativeUri) {
            string cssDir = String.Format("{0}\\{1}", this.rootDirecory, rootUri.Trim('/'));
            if(!Directory.Exists(cssDir))
                Directory.CreateDirectory(cssDir);
            string cssFileName = String.Format("{0}\\style.css", cssDir);
            File.AppendAllText(cssFileName, styleText);
            return GetRelativePath(cssFileName);
        }
        public string CreateImageUri(string rootUri, OfficeImage image, string relativeUri) {
            string imagesDir = String.Format("{0}\\{1}", this.rootDirecory, rootUri.Trim('/'));
            if(!Directory.Exists(imagesDir))
                Directory.CreateDirectory(imagesDir);
            string imageName = String.Format("{0}\\{1}.png", imagesDir, Guid.NewGuid());
            image.DXImage.Save(imageName, DXImageFormat.Png);
            return GetRelativePath(imageName);
        }
        string GetRelativePath(string path) {
            string substring = path.Substring(this.rootDirecory.Length);
            return substring.Replace("\\", "/").Trim('/');
        }
    }
}

Visual Basic
Imports System.IO
Imports DevExpress.Office.Services
Imports DevExpress.Office.Utils
Imports DevExpress.Drawing

Namespace ExportOnlyBodyContent
    Public Class MyUriProvider
        Implements IUriProvider

        Private rootDirectory As String

        Public Sub New(rootDirectory As String)
            If String.IsNullOrEmpty(rootDirectory) Then
                Exceptions.ThrowArgumentException("rootDirectory", rootDirectory)
            End If
            Me.rootDirectory = rootDirectory
        End Sub

        Public Function CreateCssUri(rootUri As String, styleText As String, relativeUri As String) As String Implements IUriProvider.CreateCssUri
            Dim cssDir As String = String.Format("{0}\{1}", Me.rootDirectory, rootUri.Trim("/"c))
            If Not Directory.Exists(cssDir) Then
                Directory.CreateDirectory(cssDir)
            End If
            Dim cssFileName As String = String.Format("{0}\style.css", cssDir)
            File.AppendAllText(cssFileName, styleText)
            Return GetRelativePath(cssFileName)
        End Function

        Public Function CreateImageUri(rootUri As String, image As OfficeImage, relativeUri As String) As String Implements IUriProvider.CreateImageUri
            Dim imagesDir As String = String.Format("{0}\{1}", Me.rootDirectory, rootUri.Trim("/"c))
            If Not Directory.Exists(imagesDir) Then
                Directory.CreateDirectory(imagesDir)
            End If
            Dim imageName As String = String.Format("{0}\{1}.png", imagesDir, Guid.NewGuid())
            image.DXImage.Save(imageName, DXImageFormat.Png)
            Return GetRelativePath(imageName)
        End Function

        Private Function GetRelativePath(path As String) As String
            Dim substring As String = path.Substring(Me.rootDirectory.Length)
            Return substring.Replace("\", "/").Trim("/"c)
        End Function
    End Class
End Namespace

Anthony Sameishchev (DevExpress)

last modified 3 days ago

Modified: March 5, 2025 10:40 AM

Platform: Office File API

Product: Word Processing Document API

Disclaimer: The information provided on DevExpress.com and affiliated web properties (including the DevExpress Support Center) is provided "as is" without warranty of any kind. Developer Express Inc disclaims all warranties, either express or implied, including the warranties of merchantability and fitness for a particular purpose. Please refer to the DevExpress.com Website Terms of Use for more information in this regard.

Confidential Information: Developer Express Inc does not wish to receive, will not act to procure, nor will it solicit, confidential or proprietary materials and information from you through the DevExpress Support Center or its web properties. Any and all materials or information divulged during chats, email communications, online discussions, Support Center tickets, or made available to Developer Express Inc in any manner will be deemed NOT to be confidential by Developer Express Inc. Please refer to the DevExpress.com Website Terms of Use for more information in this regard.

Word Processing - Export Only <BODY> Tag Content and Specify the Location of CSS Styles

Files to Review

Does this example address your development requirements/objectives?

Example Code

Recently viewed tickets