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

创建如图的表格，谢谢

2025-02-25 07:23:03

推荐回答（3个）

回答1：

‘首先，创建一个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

回答2：

添加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")

回答3：

试试Datagrid控件