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

发布网友发布时间：2022-06-03 15:18

共3个回答

热心网友时间：2023-10-22 01:04

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

热心网友时间：2023-10-22 01:04

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

热心网友时间：2023-10-22 01:05

试试Datagrid控件追问详情

追答可以直接在属性栏中添加行和列(貌似是row和column属性)，之后可以使用 [控件名](i,j) 来操控单元格的各项属性，包括背景、内容等
当然最简单的方法可以直接用textbox
也可以研究下vb6中导入word文件的相关技术，不知.net中是否还有