Как создать таблицу в документе Word 2003 с помощью VBA - PullRequest
Новая
       46

Как создать таблицу в документе Word 2003 с помощью VBA

0 голосов
/ 04 мая 2011

У меня есть шаблон для отчета, который необходимо заполнить, и я автоматизирую процесс.

Часть шаблона расположена на паре страниц вниз и содержит несколько идентичных таблиц для ввода данных.

Я пытаюсь создать пользовательский элемент управления с текстовым полем, в котором пользователь может ввести число, а затем в документе будет создано указанное количество таблиц.

Я не уверен, с чего начать и как указать, где будут создаваться таблицы относительно остальной части документа,

1 Ответ

3 голосов
/ 04 мая 2011

Создал базовый код с помощью средства записи макросов, а затем добавил переменные и цикл: 

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
...