通过VB画word表格

1：插入一行一列的表格
myWord.ActiveDocument.Tables.Add(Range:=myWord.Selection.Range, NumRows:=1 _
                                               , NumColumns:=1, DefaultTableBehavior:=Word.WdDefaultTableBehavior.wdWord9TableBehavior, _
                                               AutoFitBehavior:=Word.WdAutoFitBehavior.wdAutoFitFixed)

2：合并行连续单元格
myWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=11, Extend:=Word.WdMovementType.wdExtend)
        myWord.Selection.Cells.Merge()

3：单元格内字体居中
myWord.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
myWord.Selection.Cells.VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalCenter

4：右跳
myWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCell)

5：跳出表格
myWord.Selection.MoveRight()
myWord.Selection.MoveRight()

6：拆分单元格
myWord.Selection.Cells.Split(NumRows:=1, NumColumns:=2)

7：调某一列单元格占的比例
 myWord.Selection.Tables(1).Columns(1).PreferredWidthType = WdPreferredWidthType.wdPreferredWidthPercent '一下两句是设置该单元格占整个行的比例
 myWord.Selection.Tables(1).Columns(1).PreferredWidth = 28

8：打印换行
 myWord.Selection.TypeText(vbCrLf)

9：在表格底部插入新的一行
 myWord.Selection.InsertRowsBelow(1)

10：合并列连续单元格
myWord.Selection.Tables(1).Cell(1, 1).Merge(myWord.Selection.Tables(1).Cell(5, 1))