Как преобразовать HTML в DOCX и вставить колонтитулы на C# и .NET
Полный код
GitHubusing System;
using System.IO;
using SautinSoft;
namespace Sample
{
class Test
{
static void Main(string[] args)
{
// Get your free 30-day key here:
// https://sautinsoft.com/start-for-free/
// Add a page header and footer during the conversion of HTML to RTF or DOCX.
// If you need more information about "HTML to RTF .Net" email us at:
// [email protected].
AddHeaderAndFooter();
}
public static void AddHeaderAndFooter()
{
SautinSoft.HtmlToRtf h = new SautinSoft.HtmlToRtf();
HtmlConvertOptions opt = new HtmlConvertOptions();
opt.OutputFormat = HtmlToRtf.OutputFormat.Docx;
string inpFile = @"..\..\..\Sample.html";
string outFile = "Result.docx";
// Set page header and footer.
string headerFromHtml = File.ReadAllText(@"..\..\..\header.html");
string footerFromRtf = File.ReadAllText(@"..\..\..\footer.rtf");
// Add page header.
opt.PageSetup.PageHeader.Html(headerFromHtml);
// Add extra space between header and page contents.
opt.PageSetup.PageHeader.MarginBottom.Mm(10);
// Add page footer.
opt.PageSetup.PageFooter.Rtf(footerFromRtf);
if (h.Convert(inpFile, outFile, opt))
{
// Open the result for demonstration purposes.
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(outFile) { UseShellExecute = true });
}
}
}
}
Imports System
Imports System.IO
Imports SautinSoft
Namespace Sample
Friend Class Test
Shared Sub Main(ByVal args() As String)
' Get your free 30-day key here:
' https://sautinsoft.com/start-for-free/
' Add a page header and footer during the conversion of HTML to RTF or DOCX.
' If you need more information about "HTML to RTF .Net" email us at:
' [email protected].
AddHeaderAndFooter()
End Sub
Public Shared Sub AddHeaderAndFooter()
Dim h As New SautinSoft.HtmlToRtf()
Dim opt As New HtmlConvertOptions()
opt.OutputFormat = HtmlToRtf.OutputFormat.Docx
Dim inpFile As String = "..\..\..\Sample.html"
Dim outFile As String = "Result.docx"
' Set page header and footer.
Dim headerFromHtml As String = File.ReadAllText("..\..\..\header.html")
Dim footerFromRtf As String = File.ReadAllText("..\..\..\footer.rtf")
' Add page header.
opt.PageSetup.PageHeader.Html(headerFromHtml)
' Add extra space between header and page contents.
opt.PageSetup.PageHeader.MarginBottom.Mm(10)
' Add page footer.
opt.PageSetup.PageFooter.Rtf(footerFromRtf)
If h.Convert(inpFile, outFile, opt) Then
' Open the result for demonstration purposes.
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(outFile) With {.UseShellExecute = True})
End If
End Sub
End Class
End Namespace
Если вам нужен пример кода или у вас есть вопрос: напишите нам по адресу [email protected] или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: