使用COM组件操作Word,原自MSDN
object Nothing = System.Reflection.Missing.Value;
//
调用默认参数
//
取得Word文件保存路径
object filename = @tbPath.Text;
// object visible=false;
// 创建一个名为WordApp的组件对象
Word.Application WordApp = new Word.ApplicationClass();
// 创建一个名为WordDoc的文档对象
object missing = System.Reflection.Missing.Value;
Word.Document WordDoc = WordApp.Documents.Add( ref missing, ref missing, ref missing, ref missing);
// 增加一表格
Word.Table table = WordDoc.Tables.Add(WordApp.Selection.Range, 1 , 1 , ref Nothing, ref Nothing);
// 在表格第一单元格中添加自定义的文字内容
table.Cell( 1 , 1 ).Range.Text = tbBody.Text;
// 在文档空白地方添加文字内容
WordDoc.Paragraphs.Last.Range.Text = " 欢迎参加.NET学习! " ;
// 将WordDoc文档对象的内容保存为DOC文档
WordDoc.SaveAs( ref filename, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing);
// 关闭WordDoc文档对象
WordDoc.Close( ref Nothing, ref Nothing, ref Nothing);
// 关闭WordApp组件对象
WordApp.Quit( ref Nothing, ref Nothing, ref Nothing);
// 返回结果
lbResult.Text = " 文档路径:<a href=' " + tbPath.Text + " '> " + tbPath.Text + " </a>(点击链接查看)<br>生成结果:成功! " ;
object filename = @tbPath.Text;
// object visible=false;
// 创建一个名为WordApp的组件对象
Word.Application WordApp = new Word.ApplicationClass();
// 创建一个名为WordDoc的文档对象
object missing = System.Reflection.Missing.Value;
Word.Document WordDoc = WordApp.Documents.Add( ref missing, ref missing, ref missing, ref missing);
// 增加一表格
Word.Table table = WordDoc.Tables.Add(WordApp.Selection.Range, 1 , 1 , ref Nothing, ref Nothing);
// 在表格第一单元格中添加自定义的文字内容
table.Cell( 1 , 1 ).Range.Text = tbBody.Text;
// 在文档空白地方添加文字内容
WordDoc.Paragraphs.Last.Range.Text = " 欢迎参加.NET学习! " ;
// 将WordDoc文档对象的内容保存为DOC文档
WordDoc.SaveAs( ref filename, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing);
// 关闭WordDoc文档对象
WordDoc.Close( ref Nothing, ref Nothing, ref Nothing);
// 关闭WordApp组件对象
WordApp.Quit( ref Nothing, ref Nothing, ref Nothing);
// 返回结果
lbResult.Text = " 文档路径:<a href=' " + tbPath.Text + " '> " + tbPath.Text + " </a>(点击链接查看)<br>生成结果:成功! " ;