how to create a table in a word 2003 document using VBA

vba ms-word word-2003
mark picture mark · May 4, 2011 · Viewed 8.1k times · Source

I have a template for a report that needs to get filled out and i am automating the process.

There is a part of the template a couple pages down that has multiple identical tables to input data.

What I am trying to do is have a user control with a text box where the user can input a number and then the document generates the number of tables specified.

I am not sure where to start and how to specify where the tables are to be generated in relation to the rest of the document,

Answer

ray picture ray · May 4, 2011

Created the base code via the macro recorder and then added the vars and loop:

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

Related questions

How to modify a table in word with VBA

I have tables that I am creating, and I want to be able to modify them through the code in the VBA. What I need to do to the tables is merge and resize some cells and also add text …

Read More
Return multiple values from a function, sub or type?

So I was wondering, how can I return multiple values from a function, sub or type in VBA? I've got this main sub which is supposed to collect data from several functions, but a function can only return one value …

Read More
Getting char from string at specified index

As stated how to get char from string at specified index in the visual basic? I look through google and these do not work: s(index) , s.Chars(index),s,Characters(index) So how to get char at specified index?

Read More