上回借机房收费系统讲到了用vb.net导出Excel，这次在做项目的过程中，我们不仅学会了将数据打印到VS自带的报表中，还了解了如何用vb.net操作word，将窗体中的内容反映到word中。所以今天要向大家分享一下如何用VB.net 导出word，生成word报表。

第一步，添加引用：

安装不一样的office版本或者wps，添加引用时会有区别。

第二步：引用声明

Imports Microsoft.Office.Interop

第三步：详细代码：

声明：

    Dim oword As Word.ApplicationDim odoc As Word.DocumentDim otable As Word.TableDim opara1 As Word.ParagraphDim opara2 As Word.ParagraphDim opara3 As Word.Paragraph

Paragraph 对象代表所选内容、范围或文档中的一个段落。Paragraph 对象是 Paragraphs 集合的一个成员。Paragraphs 集合包含所选内容、范围或文档中的所有段落。

在这里我为了完成我的表，用来三个paragraph对象，如上：opara1,opara2,opara3.

编辑表内信息

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clickoword = CreateObject("Word.application")oword.Visible = Trueodoc = oword.Documents.Addodoc.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscape    '横向显示，试用于横向打印opara1 = odoc.Content.Paragraphs.Addopara1.Range.Text = "人才资源状况调查统计表"opara1.Range.Font.Bold = Trueopara1.Format.SpaceAfter = 25    '在段落之后24 Pt 空格opara1.Range.Font.Size = 18     '字号为18opara1.Format.SpaceBefore = 2      '段间距为2opara1.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter   '居中显示opara1.Range.InsertParagraphAfter()    '段后显示otable = odoc.Tables.Add(odoc.Bookmarks.Item("\endofdoc").Range, 7, 3)  '表格为7行3列otable.Range.ParagraphFormat.SpaceAfter = 6otable.Cell(1, 1).Range.Text = "填报单位："otable.Cell(2, 1).Range.Text = "负责人："otable.Cell(3, 1).Range.Text = "填表人："otable.Cell(4, 1).Range.Text = "报出时间："otable.Cell(5, 1).Range.Text = "联系电话："otable.Cell(1, 2).Range.Text = TextBox1.Text.ToStringotable.Cell(1, 2).Range.Underline = Word.WdUnderline.wdUnderlineWords     '添加下划线otable.Cell(2, 2).Range.Text = TextBox2.Text.ToStringotable.Cell(2, 2).Range.Underline = Word.WdUnderline.wdUnderlineWordsotable.Cell(3, 2).Range.Text = TextBox3.Text.ToStringotable.Cell(3, 2).Range.Underline = Word.WdUnderline.wdUnderlineWordsotable.Cell(4, 2).Range.Text = Now.Year & "年" & Now.Month & "月" & Now.Day & "日"otable.Cell(4, 2).Range.Underline = Word.WdUnderline.wdUnderlineWordsotable.Cell(5, 2).Range.Text = TextBox4.Textotable.Cell(5, 2).Range.Underline = Word.WdUnderline.wdUnderlineWordsotable.Cell(6, 2).Range.Text = "部门组织部"otable.Cell(7, 2).Width = 250otable.Cell(7, 2).Range.Text = "人力资源管理企业"otable.Cell(1, 3).Range.Text = "(盖章)"otable.Cell(2, 3).Range.Text = "(签字)"otable.Cell(3, 3).Range.Text = "(签字)"otable.Cell(6, 3).Range.Text = "(制)"otable.Cell(7, 3).Range.Text = Now.Year & "年" & Now.Month & "月"End Sub

第四步：打印结果

用vb.net实现了居中显示、下划线、年月日显示，word横向显示的设置，感觉只要我们想的到，就没有实现不了的。

总结：

这次尝试用vb.net操作word，感觉自己查询信息的能力越来越强了，就像师傅说的，检索条件越详细，结果也越精简，会过滤到很多有用的信息，所以，如果不是很有针对性的查询的话，关键字还是越少越好。

用vb.net 导出word相关推荐

怎么将c语言作业保存到word,C++程序中导出Word文档的简易方法_c语言
如果您要在应用程序中处理Word文档,可以参考MSDN. Lori Turner. Automating Microsoft Office 97 and Office 2000,该文内容详细全面,但是 ...
powerdesigner 同步mysql 报错_PowerDesigner实用技巧小结及导出word,想字段顺序跟模型中一致,如何设置...
powerdesigner导出word,想字段顺序跟模型中一致,如何设置右键List of columns of the table %PARENT% ,selection,define sort ...
java用iText导出word文档
1.需要导入的jar包 2.导出word并下载其实是分两步的. 第一步是将需要导出的数据导出(上传)到服务器上第二步是将服务器上的文档下载到本地 3. 第一步.上传文档 (1)设置响应信息以及构造上 ...
easypoi导出word表格_java如何导出word和wps文档
使用场景:打开一个表单页面,导出word或wps文件,代码框架基于springboot+jpa 一.准备word模板二.pom.xml文件中引入依赖 <dependency><gr ...
C# 导出word文档及批量导出word文档（2）
aspose.word主要是通过把读取出来的数据放到datatable里,在datable里做相应的格式的调整,再导出到word文档里.mvc和webform最后导出的语句略有不同,在mvc的cont ...
Freemarker + xml 实现Java导出word
前言最近做了一个调查问卷导出的功能,需求是将维护的题目,答案,导出成word,参考了几种方案之后,选择功能强大的freemarker+固定格式之后的wordxml实现导出功能.导出word的代码是可 ...
PowerDesiger 15逆向生成工程E-R图及导出word表格
应用环境:win8(64位)+oracle10g(32位)服务端+PowerDesigner15 需求:oracle数据库中的表结构是web工程框架hibernate 自动生成,现需要将数据库中已有的 ...
.net core mvc部署到IIS导出Word 提示80070005拒绝访问
项目中相信大家经常会遇到导出Word.Excel等需求,在实际开发环境中,一般不会出现什么问题,但当发布到IIS上后可能会遇到各种各样的问题,一般都是权限的问题.前几天把公司项目发布后,出现Word导 ...
java导出word表格_使用PowerDesigner16.5 逆向数据库导出word文档
在上一篇<使用PowerDesigner16.5 逆向数据库生产表结构或导出word文档二>中,我们学会了使用PowerDesigner16.5怎么连接数据库,逆向生成表结构.有时候,我们 ...

用vb.net 导出word