‘首先,创建一个VB.NET项目,再点击菜单”项目“-”添加引用“,在”Com“-”类型库“里,选择Microsoft.Word 14.0 Object Library(对应Office版本为2010),将以下代码复制粘贴到Form1窗体替换原代码。
’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
第二行的合并是否这样
DTbl.Cell(2, 2).Select()
DWrd.Selection.MoveRight(, 2, SelectionMode.MultiExtended)
DWrd.Selection().Cells.Merge()
添加spire.doc.dll为引用,再使用下面的代码
'创建Word文档
Dim doc As Document = New Document
'添加section
Dim section As Section = doc.AddSection
'添加表格
Dim table As Table = section.AddTable(true)
'添加第1行
Dim row1 As TableRow = table.AddRow
'添加第1个单元格到第1行
Dim cell1 As TableCell = row1.AddCell
cell1.AddParagraph.AppendText("姓 名")
'添加第2个单元格到第1行
Dim cell2 As TableCell = row1.AddCell
cell2.AddParagraph.AppendText("年 龄")
'添加第2行
Dim row2 As TableRow = table.AddRow(true, false)
'添加第1个单元格到第2行
Dim cell3 As TableCell = row2.AddCell
cell3.AddParagraph.AppendText("约 翰")
'添加第2个单元格到第2行
Dim cell4 As TableCell = row2.AddCell
cell4.AddParagraph.AppendText("21")
table.AutoFit(AutoFitBehaviorType.AutoFitToWindow)
'保存文档
doc.SaveToFile("Table2.docx")
详情
可以直接在属性栏中添加行和列(貌似是row和column属性),之后可以使用 [控件名](i,j) 来操控单元格的各项属性,包括背景、内容等
当然最简单的方法可以直接用textbox
也可以研究下vb6中导入word文件的相关技术,不知.net中是否还有