word文档增加表格列数

word

可以用word的表格对象来操作表格，下面这段代码是在excel的VBA里运行的。运行之前记得先引用Microsoft word XX.0 Object Library，XX.0看你装的是哪个版本的Office，比如word 2003是11.0，word 2013是15.0。代码如下：vbSub toword() Dim wordApp As New word.Application wordApp.Visible = True Dim wordDoc As word.Document Dim wordTable As word.Table Set wordDoc = wordApp.Documents.Add '新建一个word文档 Set wordTable = wordDoc.Tables.Add(wordDoc.Range(), 1, 1, wdword9TableBehavior, wdAutoFitWindow) '插入一个表格 Dim r As Long, c As Long For r = 1 To ActiveSheet.UsedRange.Rows.Count If r wordTable.Rows.Count Then wordTable.Rows.Add '行不够就加一行 End If For c = 1 To ActiveSheet.UsedRange.Columns.Count If c wordTable.Columns.Count Then wordTable.Columns.Add '列不够就加一列 wordTable.Columns.AutoFit End If wordTable.Cell(r, c).Range.Text = Cells(r, c) '把excel里的内容填进去 Next c Next r wordTable.AutoFitBehavior wdAutoFitWindowEnd Sub