Create Table in Word using Listbox Items (VBA)

Hi Jason_Kha,

The sub below will take a multicolumn listbox from a userform, make  a table at the current cursor location and fill it with the data from the listbox. This is for Word VBA.

Public Sub MakeTable()
    Dim MyArray As Variant
    Dim AddFor0Base As Integer
    MyArray = UserForm1.ListBox1.List
    AddFor0Base = 0
    If LBound(MyArray, 2) = 0 Then
        AddFor0Base = 1
    End If
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=UBound(MyArray, 1) + AddFor0Base, NumColumns:= _
        UBound(MyArray, 2) + AddFor0Base, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    DisOne = ActiveDocument.Tables.Count
    With ActiveDocument.Tables(DisOne)
        For i = LBound(MyArray, 1) To UBound(MyArray, 1)
            For j = LBound(MyArray, 2) To UBound(MyArray, 2)
                .Cell(i + AddFor0Base, j + AddFor0Base).Range.Text = MyArray(i, j)
            Next
        Next
    End With
End Sub

HTH
dragontooth

I get an error that DisOne 'variable not defined'

I and J also not defined what should i define them as

Public Sub MakeTable()
    Dim MyArray As Variant
    Dim AddFor0Base As Integer
    Dim DisOne As Integer     '< added this line
    MyArray = UserForm1.ListBox1.List
    AddFor0Base = 0
    If LBound(MyArray, 2) = 0 Then
        AddFor0Base = 1
    End If
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=UBound(MyArray, 1) + AddFor0Base, NumColumns:= _
        UBound(MyArray, 2) + AddFor0Base, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    DisOne = ActiveDocument.Tables.Count
    With ActiveDocument.Tables(DisOne)
        For i = LBound(MyArray, 1) To UBound(MyArray, 1)
            For j = LBound(MyArray, 2) To UBound(MyArray, 2)
                .Cell(i + AddFor0Base, j + AddFor0Base).Range.Text = MyArray(i, j)
            Next
        Next
    End With
End Sub


HTH
dragontooth

Public Sub MakeTable()
    Dim MyArray As Variant
    Dim AddFor0Base As Integer
    Dim DisOne As Integer     '< added this line
    Dim i As Integer     '< added this line
    Dim j As Integer     '< added this line
    MyArray = UserForm1.ListBox1.List
    AddFor0Base = 0
    If LBound(MyArray, 2) = 0 Then
        AddFor0Base = 1
    End If
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=UBound(MyArray, 1) + AddFor0Base, NumColumns:= _
        UBound(MyArray, 2) + AddFor0Base, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    DisOne = ActiveDocument.Tables.Count
    With ActiveDocument.Tables(DisOne)
        For i = LBound(MyArray, 1) To UBound(MyArray, 1)
            For j = LBound(MyArray, 2) To UBound(MyArray, 2)
                .Cell(i + AddFor0Base, j + AddFor0Base).Range.Text = MyArray(i, j)
            Next
        Next
    End With
End Sub


HTH
dragontooth

.Cell(i + AddFor0Base, j + AddFor0Base).Range.Text = MyArray(i, j)

this line give me the error invalid use of null

MyArray has the exact same information in it as the listbox does. So that means the listbox has null information. So here is the check for empty and null.

Public Sub MakeTable()
    Dim MyArray As Variant
    Dim AddFor0Base As Integer
    Dim DisOne As Integer
    Dim I As Integer
    Dim J As Integer
    MyArray = UserForm1.ListBox1.List
    AddFor0Base = 0
    If LBound(MyArray, 2) = 0 Then
        AddFor0Base = 1
    End If
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=UBound(MyArray, 1) + AddFor0Base, NumColumns:= _
        UBound(MyArray, 2) + AddFor0Base, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    DisOne = ActiveDocument.Tables.Count
    With ActiveDocument.Tables(DisOne)
        For I = LBound(MyArray, 1) To UBound(MyArray, 1)
            For J = LBound(MyArray, 2) To UBound(MyArray, 2)
                If Not IsEmpty(MyArray(I, J)) And Not IsNull(MyArray(I, J)) Then
                    .Cell(I + AddFor0Base, J + AddFor0Base).Range.Text = MyArray(I, J)
                End If
            Next
        Next
    End With
End Sub

hth
dragontooth

still one more thing

i have three columns in my listbox but when it creates the table the table has 10 columns

what do i need to add to change the formatting of the table.  for instance i want the table to be times new roman, 10pt and how do i make it so that the the rows are a certain width.

I will need to see the document now. see profile for sending location. I am thinking the listbox has 10 columns but only 3 columns are filled, but that is just a guess.

dragontooth

yep thats right

for the formating

With ActiveDocument.Tables(DisOne)
        .Range.Font.Name = "Times New Roman"   '< here is the font
        .Range.Font.Size = 10                               '< here is the font size
        .Rows.Height = 15                                     '< this is in points for the row height
        For I = LBound(MyArray, 1) To UBound(MyArray, 1)
            For J = LBound(MyArray, 2) To UBound(MyArray, 2)
                If Not IsEmpty(MyArray(I, J)) And Not IsNull(MyArray(I, J)) Then
                    .Cell(I + AddFor0Base, J + AddFor0Base).Range.Text = MyArray(I, J)
                End If
            Next
        Next
    End With

do you still want to see the doc.

How is it going?

dragontooth

it works greats Thanks Alot!

So the 3 column vs 10 column problem doesn't apply anymore?

no

how would you set the table position so that the left side of the table is say for instance .25 inch from the left margin

Th only way I know is setting the actual margin at 0.25 which would effect the whole doc.

yeah i figured that just wondering if you knew