在Word文档中连继用代码添两个表的方法

【要点】：在Word中添加两个表时中间必须空出一行，否则这两个表会合并成一个表。另外，当用代码添加完第一个表后必须将光标移出表格，否则第二个表格会套嵌在第一个表格中。

以下是代码：

Public Class ThisDocument

    Private Sub ThisDocument_Startup() Handles Me.Startup
        Dim R1 As Word.Range = Globals.ThisDocument.Application.ActiveDocument.Bookmarks("TestBookMark").Range
        Dim S1 As Word.Selection = Globals.ThisDocument.Application.Selection
        Dim d As Word.WdUnits = Word.WdUnits.wdLine
        Dim c As Integer

        R1.Select()

        With S1.Tables.Add(S1.Range, 2, 3)
            .ApplyStyleColumnBands = True
            .ApplyStyleRowBands = True
            With .Borders(Word.WdBorderType.wdBorderBottom)
                .LineStyle = Word.WdLineStyle.wdLineStyleDoubleWavy
            End With
            With .Borders(Word.WdBorderType.wdBorderTop)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
            With .Borders(Word.WdBorderType.wdBorderHorizontal)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
            With .Borders(Word.WdBorderType.wdBorderVertical)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
            With .Borders(Word.WdBorderType.wdBorderRight)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
            With .Borders(Word.WdBorderType.wdBorderLeft)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
        End With

        '光标下移，这个非常重要
        c = S1.Tables(1).Rows.Count
        S1.MoveDown(Unit:=d, Count:=c)
        '空开一行，避免两个表格合并
        S1.TypeParagraph()

        With R1.Tables.Add(S1.Range, 2, 2)
            .ApplyStyleColumnBands = True
            .ApplyStyleRowBands = True
            With .Borders(Word.WdBorderType.wdBorderBottom)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
            With .Borders(Word.WdBorderType.wdBorderTop)
                .LineStyle = Word.WdLineStyle.wdLineStyleDoubleWavy
            End With
            With .Borders(Word.WdBorderType.wdBorderHorizontal)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
            With .Borders(Word.WdBorderType.wdBorderVertical)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
            With .Borders(Word.WdBorderType.wdBorderRight)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
            With .Borders(Word.WdBorderType.wdBorderLeft)
                .LineStyle = Word.WdLineStyle.wdLineStyleSingle
            End With
        End With


    End Sub

    Private Sub ThisDocument_Shutdown() Handles Me.Shutdown

    End Sub

End Class

---

欢迎访问《 许阳的红泥屋 》

转载于:https://www.cnblogs.com/mksword/archive/2012/10/12/3934033.html