Use VB to insert a table with three columns and six rows into word, and insert data into each table row.

'Must click the menu "Project/reference/Microsoft Word 9.0 Object Library"
Dim WD as new word. Application
'Insert a table with three columns and six rows and insert data to each table row.
WD. Documents. Add documenttype: = wdnewblankdocument
Set odoc = WD. activedocument
Set otable = odoc. Tables. Add (range: = odoc. Range (START: = 0, end: = 0), numrows: = 6, numcolumns: = 3)
Icount = 1
For each ocell in otable. range. Cells
Ocell. range. insertafter "no." & icount & "cell"
Icount = icount + 1
Next ocell
Otable. AutoFormat format: = wdtableformatcolorful2, applyborders: = true, applyfont: = true, applycolor: = true
'Move the cursor to the end
WD. selection. endkey unit: = wdstory
'Insert pagination Operator
WD. selection. insertbreak type: = wdpagebreak
WD. Visible = true
WD. showme
Set WD = nothing