C#在Word中插入Html内容

转自：http://blog.csdn.net/qing2005/article/details/7662707

同事遇到一个难题，就是在现有的Word模板中插入HTML内容，无论是HTML->Rtf，再插入Word，还是将HTML另存为xx.Doc然后用InsertFile插入都不是很好，格式会发生意外。因为HTML有两种，一种是纯网页标记，还有一种是doc->html，中间有很多微软的样式。

研究了一下C#操作Word的方法后，又Google一下怎么在指定书签位置插入内容的方法，后面就是核心的操作问题了。
思路是：
1.在文本框中输入html内容；
2.将html内容转换到WebBrowser上显示；
3.将WebBrowser上的内容复制到剪贴板；
4.打开Word模板，找到指定的书签，然后插入剪贴板内容。

还是利用以前VB的经验，先在Word中创建一个宏，然后复制和粘贴内容，然后查看宏代码：

[vb]  view plain  copy

1. Sub 宏1()  
2. '  
3. ' 宏1 宏  
4. '  
5. '  
6.     Selection.PasteAndFormat (wdFormatOriginalFormatting)  
7. End Sub  

关键代码有了，就是PasteAndFormat，参数也可以知道了，是wdFormatOriginalFormatting类型。
然后创建一个C#工程：

[csharp]  view plain  copy

1. object docFileName = Application.StartupPath + "\\Sample.docx";  
2. object missing = Type.Missing;  
3.   
4. /// <summary>  
5. /// 将html内容显示到WebBrowser上  
6. /// </summary>  
7. /// <param name="sender"></param>  
8. /// <param name="e"></param>  
9. private void tsbtnConvert_Click(object sender, EventArgs e) {  
10.     wbControl.DocumentText = txtText.Text;  
11.     while (wbControl.DocumentText != txtText.Text) {  
12.         Application.DoEvents();  
13.     }  
14.   
15.     OpenDocument();  
16. }  
17.   
18. /// <summary>  
19. /// 打开Word模板，并插入内容  
20. /// </summary>  
21. private void OpenDocument() {  
22.     wd.Application docApp = new wd.Application();  
23.     //打开Word文件  
24.     docApp.Documents.Open(ref docFileName,  
25.         ref missing, ref missing, ref missing, ref missing, ref missing,  
26.         ref missing, ref missing, ref missing, ref missing, ref missing,  
27.         ref missing, ref missing, ref missing, ref missing, ref missing);  
28.     //显示文件  
29.     docApp.Visible = true;  
30.   
31.     //书签名  
32.     object bkObj = "content_1";  
33.     if (docApp.ActiveDocument.Bookmarks.Exists("content_1")) {  
34.         docApp.ActiveDocument.Bookmarks.get_Item(ref bkObj).Select();  
35.         //选中WebBrowser上内容，并复制到剪贴板  
36.         wbControl.Document.ExecCommand("SelectAll", false, null);  
37.         wbControl.Document.ExecCommand("Copy", false, null);  
38.         //粘贴剪贴板内容  
39.         docApp.Selection.PasteAndFormat(wd.WdRecoveryType.wdFormatOriginalFormatting);  
40.     }  
41.   
42. }