vb.net添加表格 vbnet trim

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

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

DataGridView控件，放一个DataGridView1和Button1到窗体，下面是按钮下代码

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Me.DataGridView1.AllowUserToAddRows = False

DataGridView1.RowTemplate.Height = 200

DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None

For i = 1 To 3

Me.DataGridView1.Columns.Add("列" i.ToString, "列" i.ToString)

Me.DataGridView1.Rows.Add()

Me.DataGridView1.Columns(0).Width = 100

Me.DataGridView1.Columns(1).Width = 500

Me.DataGridView1.Columns(0).Width = 300

End Sub

'自己设置相关需要的属性即可

表格？table?

table

单元格内容

/td

/tr

/table

还是asp:DataGrid ID="dgdDataVita"/DataGrid

网站名称：vb.net添加表格 vbnet trim
URL分享：http://azwzsj.com/article/dddohpo.html