• [转]Aspose.Words.dll 将 Word 转换成 html


    用于网站上,上传 Word 文档后显示文档内容(可看作在线阅读)。代码适用于 .net 2.0 或以上版本

    (使用的未注册 Aspose.Words.dll 并尝试消除试用标志) 下载地址

    string fileNameOut = string.Empty;
    try {
        using (OpenFileDialog fd = new OpenFileDialog()) {
            fd.Filter = "Word 文档(*.doc,*.docx)|*.doc;*.docx|所有文件(*.*)|*.*";
            if (fd.ShowDialog(this) == System.Windows.Forms.DialogResult.OK) {
                fileNameOut = "D:\html\" + Path.GetFileNameWithoutExtension(fd.FileName) + ".html";
                using (FileStream fs = new FileStream(fd.FileName, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)) {
                    var doc = new Document(fs);
                    var saveOptions = new HtmlSaveOptions();
                    saveOptions.SaveFormat = SaveFormat.Html;
                    saveOptions.ExportPageMargins = true;
                    doc.Save(fileNameOut, saveOptions);
                }
            }
        }
    }
    catch (Exception ex) {
        throw ex;
    }
    if (!string.IsNullOrEmpty(fileNameOut)) {
        string fileText = File.ReadAllText(fileNameOut, Encoding.UTF8);
        string moreText = "<p style="margin-top:0pt; margin-bottom:0pt; text-align:justify; font-size:12pt"><span style="font-family:'Times New Roman'; font-weight:bold; color:#ff0000">还有部分内容未展示,请下载阅读。</span></p>";
        string fileTextNew = Regex.Replace(fileText, "<p style=".+?"><span style=".+?">Evaluation Only. Created with Aspose.Words. Copyright 2003-2017 Aspose Pty Ltd.</span></p>", "");
    
        File.WriteAllText(fileNameOut,
            //fileText.Replace("<p style="margin-top:0pt; margin-bottom:0pt; text-align:justify; widows:0; orphans:0; font-size:12pt"><span style="font-family:'Times New Roman'; font-weight:bold; color:#ff0000">Evaluation Only. Created with Aspose.Words. Copyright 2003-2017 Aspose Pty Ltd.</span></p>", "")
            //        .Replace("<p style="margin-top:0pt; margin-bottom:0pt; text-align:justify; widows:0; orphans:0; font-size:12pt"><span style="font-family:Calibri; font-weight:bold; color:#ff0000">Evaluation Only. Created with Aspose.Words. Copyright 2003-2017 Aspose Pty Ltd.</span></p>", "")
            fileTextNew.Replace("<p style="margin-top:0pt; margin-bottom:0pt; text-align:justify; font-size:12pt"><span style="font-family:'Times New Roman'; font-weight:bold; color:#ff0000">This document was truncated here because it was created in the Evaluation Mode.</span></p>", moreText)
            .Replace("<p style="margin-top:0pt; margin-bottom:0pt; text-align:justify; widows:0; orphans:0; font-size:12pt"><span style="font-family:'Times New Roman'; font-weight:bold; color:#ff0000">This document was truncated here because it was created in the Evaluation Mode.</span></p>", moreText), Encoding.UTF8);
        MessageBox.Show(this, "导出 html 成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
        Process.Start(fileNameOut);
    }

    仅供参考。如想表达感谢请扫以下二维码(支付宝  - 露)

  • 相关阅读:
    Delphi中SQL语句配置参数代码示例
    Delphi中treeview的使用部分
    Delphi listview使用部分总结代码
    如何用Delphi编写自己的可视化控件
    关于treeview节点图标的帖子
    Delphi调用存储过程
    DELPHI的开源控件集(转自http://xieyunc.blog.163.com/)
    雨巷(A Lane in the Rain)
    五一过去了,新的开始
    好好的学习,做个有本事的人:),好好的玩,做个快乐的人!
  • 原文地址:https://www.cnblogs.com/z5337/p/7344636.html
Copyright © 2020-2023  润新知