VB.NET Word创建表格并录入文字

‘首先，创建一个VB.NET项目，再点击菜单”项目“-”添加引用“，在”Com“-”类型库“里，选择Microsoft.Word 14.0 Object Library（对应Office版本为2010），将以下代码复制粘贴到Form1窗体替换原代码。

成都创新互联长期为千余家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为宕昌企业提供专业的成都网站设计、网站制作，宕昌网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。

’PS：以下代码仅创建表格，将第行2至4列合并，添加1个文字，其他的你自己分析。

Imports Microsoft.Office.Interop

Imports Microsoft.Office.Interop.Word  '引入Word

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim DWrd As New Word.Application, DDoc As Word.Document '定义Word及文档对象

DDoc = DWrd.Documents.Add '新增文档

Dim DTbl As Word.Table  '定义表格对象

DTbl = DDoc.Tables.Add(DDoc.Range, 7, 4)  '新增表格

DTbl.Style = "网格型"  '表格的样式

DTbl.Cell(1, 2).Select()  '选择起始单元格为第1行/第2列

DWrd.Selection.MoveRight(, 2, SelectionMode.MultiExtended)  '向右扩展两个单元格(即选择第1行的第2至4列)

DWrd.Selection().Cells.Merge()  '单元格合并

DTbl.Cell(1, 1).Range.Text = 1  '在第1个单元格填写文本

DWrd.Visible = True '显示Word

End Sub

End Class

请教大家怎么用VB.net控制word中文字的行间

添加spire.doc.jar为依赖，百度搜索免费版的下载即可

Imports Spire.Doc

Imports Spire.Doc.Documents

Imports System.Drawing

Namespace SetRowSpace

Class Program

  Shared  Sub Main(ByVal args() As String)

      '创建文档

      Document doc  =  New Document()

      '添加section

      Dim s As Section =  doc.AddSection()

      '添加段落

      Dim para As Paragraph =  s.AddParagraph()

      para.AppendText("这是测试文字，这是测试文字，这是测试文字，这是测试文字，这是测试文字，" +

          "这是测试文字，这是测试文字，这是测试文字，这是测试文字，这是测试文字，这是测试文字，"+

          "这是测试文字，这是测试文字，这是测试文字，这是测试文字。")

      '设置段落中行距

      para.Format.LineSpacing = 20f

      '创建段落样式

      Dim style As ParagraphStyle =  New ParagraphStyle(doc)

      style.Name = "paraStyle"

      style.CharacterFormat.FontName = "宋体"

      style.CharacterFormat.FontSize = 13

      doc.Styles.Add(style)

      '应用段落样式

      para.ApplyStyle("paraStyle")

      '保存文档

      doc.SaveToFile("SetLineSpacing.docx", FileFormat.Docx2013)

      System.Diagnostics.Process.Start("SetLineSpacing.docx")

  End Sub

End Class

End Namespace

vb.net怎么对word进行操作？？？？

不清楚报错信息，只能给以下提示：

1、工程--引用,选Microsoft Word 11.0 Object Library

2、声明并赋值word程序相关变量，注意步骤不能乱。

Dim appObj As New Word.Application '新建一个word程序对象

Dim docObj As Word.Document '声明文档对象，也可以用new新建

Dim strFile As String = "D:\MyDocu.doc"

docObj = appObj.Documents.Open(strFile, False, False, False, "", "", False, "", "", , False, False, False) '打开文档

docObj.Activate()'激活文档

.......

With docObj

.Save()

.Close()

End With

docObj = Nothing

appObj = Nothing

注意：声明word对象和文档对象，应该提示错误，你只需要点击“示警”图标，在展打的选项里选第1项导入就可以了。

vb.net怎么实现读取指定WORD文档中的内容

添加spire.doc.dll为引用，在vb.net中读取指定word文档的内容到 txt文件，代码示例如下：

'加载Word文档

Dim doc As Document = New Documentdocument.LoadFromFile("测试文档.docx")

'使用GetText方法获取文档中的所有文本

Dim s As String = doc.GetText

File.WriteAllText("文本1.txt", s.ToString)

分享名称：包含vb.netdocx的词条
网页地址：http://azwzsj.com/article/dojcjje.html