vb.net 2005 操作WORD中的表格

Dim wordapp As New Word.Application

Dim worddcmt As Word.Document

'增加一个新文档

wordapp.Documents.Add()

'激活文档

worddcmt = wordapp.ActiveDocument

'定义一个WORDTABLE对像

Dim wordtable As Word.Table

'当前文档增加一个表格并赋值给WORDTABLE对像

'之后就可以用这个对像来操作表格的内容了

'wordapp.Selection.Range, 10, 10 增加一个10行10列的表格

'Word.WdDefaultTableBehavior.wdWord8TableBehavior 大概意思是单元格

'是否随内容自动拉抻，wdWord8TableBehavior为否，wdWord9TableBehavior为是

'或者对应数值 0为wdWord8TableBehavior，1为wdWord9TableBehavior

'Word.WdAutoFitBehavior一共有三个值 wdAutoFitFixed、wdAutoFitContent、wdAutoFitWindow

'分别对应的数值为0、1、2

'对应的WORD中的插入表格如图所示

 

 

 

wordtable = worddcmt.Tables.Add(wordapp.Selection.Range, 10, 10, Word.WdDefaultTableBehavior.wdWord8TableBehavior, Word.WdAutoFitBehavior.wdAutoFitFixed)

 

With wordtable

     .Columns.AutoFit()

      '设置自动套用格式

     .Style = "网页型2"

     ‘对表格进行基体操作

     .Cell(1, 1).Range.InsertAfter("标题1")

     .Cell(1, 2).Range.InsertAfter("标题2")

     .Cell(1, 2).Shading.BackgroundPatternColor = Word.WdColor.wdColorBlue

 End With

'显示文档

wordapp.Visible = True