免费的Html转rtf方法

最新推荐文章于 2022-04-15 09:57:35 发布

原创最新推荐文章于 2022-04-15 09:57:35 发布 · 2.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#rtf #html #webbrowser

Office Development 同时被 3 个专栏收录

134 篇文章

订阅专栏

Word 2010

32 篇文章

订阅专栏

VB.NET

14 篇文章

订阅专栏

本文介绍了一种使用VBA将Web浏览器中的HTML内容复制并保存为文件的方法。通过创建WebBrowser对象并加载指定的HTML内容，然后利用RichTextBox组件完成内容的粘贴与保存。

    Dim reportWebBrowser As New WebBrowser 
    reportWebBrowser.CreateControl() 
    reportWebBrowser.DocumentText = sbHTMLDoc.ToString 
    While reportWebBrowser.DocumentText <> sbHTMLDoc.ToString 
        Application.DoEvents() 
    End While 
    reportWebBrowser.Document.ExecCommand("SelectAll", False, Nothing) 
    reportWebBrowser.Document.ExecCommand("Copy", False, Nothing) 
 
    Dim reportRichTextBox As New RichTextBox 
    reportRichTextBox.Paste() 
    reportRichTextBox.SaveFile(DocumentFileName)

虽然慢了点但是这是不收费的。