Dyanamic Table Word

I can create a dynamic table using (ActiveDocument.Tables.Add) etc... but it creates a fixed number of rows. I want to load a .txt file in Word with 5 rows of data and then populate a table. There could be a hundred rows and will be different every time. Can anyone help?

If you record a macro of you creating a table then your generated code will show you how to create it with whatever rows or columns you need.

Quote:

---

Originally Posted by smittyb

I can create a dynamic table using (ActiveDocument.Tables.Add) etc... but it creates a fixed number of rows. I want to load a .txt file in Word with 5 rows of data and then populate a table. There could be a hundred rows and will be different every time. Can anyone help?

---

First you need to read the text file and count how many no. of paragraphs are there in the text file, then only you can specify that in the create table function.

VB Code:

Function fnCreateTbl(NumberOfRows As Integer, NumberOfColumns As Integer, _
                     Optional blnTblBorders As Boolean = False)
    'This function will create a table.
    Application.ScreenUpdating = False
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=NumberOfRows, _
                              NumColumns:=NumberOfColumns, _
                              DefaultTableBehavior:=wdWord9TableBehavior, _
                              AutoFitBehavior:=wdAutoFitWindow
    'To remove borders
    Selection.Tables(1).Borders.Enable = blnTblBorders
    Application.ScreenUpdating = True
End Function

In the above function you need to enter the number of rows and columns for your table.
______________________
CS.