using System;
using System.IO;
namespace Sample
{
class Test
{
static void Main(string[] args)
{
// Set single font family, size and color.
// If you need more information about "HTML to RTF .Net" email us at:
// [email protected].
SetSingleFontProperties();
}
/// <summary>
/// Converts HTML to DOCX and sets the uniform Font Family, Size and Color for all text.
/// </summary>
public static void SetSingleFontProperties()
{
SautinSoft.HtmlToRtf h = new SautinSoft.HtmlToRtf();
// After purchasing the license, please insert your serial number here to activate the component.
// h.Serial = "XXXXXXXXX";
string inputFile = @"..\..\sample.html";
string outputFile = Path.ChangeExtension(inputFile, ".docx");
// Let's make all text in document the same: Calibri, 32pt, Gray.
h.TextStyle.SingleFontFamily = SautinSoft.HtmlToRtf.eFontFace.f_Calibri;
h.TextStyle.SingleFontSize = 32;
h.TextStyle.SingleFontColor = System.Drawing.Color.Gray;
if (h.OpenHtml(inputFile))
{
bool ok = h.ToDocx(outputFile);
// Open the result for demonstration purposes.
if (ok)
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(outputFile) { UseShellExecute = true });
}
}
}
}
Imports System
Imports System.IO
Imports System.Text
Module Module1
Sub Main()
' Set single font family, size and color.
' If you need more information about "HTML to RTF .Net" email us at:
' [email protected].
SetSingleFontProperties()
End Sub
' Converts HTML to DOCX and sets the uniform Font Family, Size and Color for all text.
Public Sub SetSingleFontProperties()
Dim h As New SautinSoft.HtmlToRtf()
' After purchasing the license, please insert your serial number here to activate the component.
'h.Serial = "XXXXXXXXX"
Dim inputFile As String = "..\sample.html"
Dim outputFile As String = Path.ChangeExtension(inputFile, ".docx")
' Let's make all text in document the same: Calibri, 32pt, Gray.
h.TextStyle.SingleFontFamily = SautinSoft.HtmlToRtf.eFontFace.f_Calibri
h.TextStyle.SingleFontSize = 32
h.TextStyle.SingleFontColor = System.Drawing.Color.Gray
If h.OpenHtml(inputFile) Then
Dim ok As Boolean = h.ToDocx(outputFile)
' Open the result for demonstration purposes.
If ok Then
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(outputFile) With {.UseShellExecute = True})
End If
End If
End Sub
End Module
