1. To show the Table dialog, use
With Dialogs(wdDialogTableInsertTable)
.Show
End With
In VBA Help, look at "Displaying built-in Word dialog boxes" and "Built-in
dialog box argument lists" for more info on using this.
2. To access the bottom row of a table, set a variable (long or integer) to
Selection (or) ActiveDocument.Tables(1).Rows.Count (the "1" can be the Table
index number, if using a Document object, or (1) if using the Selection
object). You can then use Rows(count) to access the last row.
3. I would apply a style to the whole table, then specify what you want to
change. For a specific column, I've would up iterating through Cell(row, 1)
(for the first column).
Here's some code that inserts a table, then sets the last row and first
column to bold. I set an object to the inserted table because it made it
easier to work with.
Ed
Sub FooTbl()
Dim objTbl As Table
Dim cntRow As Long
Dim i As Long
Dialogs(wdDialogTableInsertTable).Show
Set objTbl = Selection.Tables(1)
cntRow = objTbl.Rows.Count
objTbl.Rows(cntRow).Range.Font.Bold = True
For i = 1 To cntRow
objTbl.Cell(i, 1).Range.Font.Bold = True
Next i
End Sub
> Hello,
>
[quoted text clipped - 16 lines]
> Thanks so much!
> Corey