如何使用 VBA 在 word 2003 文檔中創建表格

Question

我有一個需要填寫的報告模板，我正在自動化這個過程。

模板的一部分向下幾頁，其中有多個相同的表格來輸入數據。

我想要做的是有一個帶有文本框的用戶控件，用戶可以在其中輸入一個數字，然后文檔生成指定的表格數量。

我不確定從哪里開始以及如何指定與文檔的 rest 相關的表格的生成位置，

Answer 1

通過宏記錄器創建基本代碼，然后添加變量和循環：

Sub tableMake()

    Dim numberOfTables As Integer
    Dim iCount As Integer

    numberOfTables = InputBox("How many tables to make?", "Tables")

    For iCount = 0 To numberOfTables - 1

        ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
            3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
            wdAutoFitFixed
        With Selection.Tables(1)
            If .Style <> "Table Grid" Then
                .Style = "Table Grid"
            End If
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = False
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = False
            '.ApplyStyleRowBands = True 'Office 2010
            '.ApplyStyleColumnBands = False 'Office 2007
        End With

        Selection.EndKey Unit:=wdStory
        Selection.TypeParagraph

    Next iCount

End Sub