Maybe something like this:
Sub AddCol() Dim t As Table Set t = ActiveDocument.Tables(1) t.Columns.Add t.Columns.Autofit End Sub
Maybe something like this:
Sub AddCol() Dim t As Table Set t = ActiveDocument.Tables(1) t.Columns.Add t.Columns.Autofit End Sub
Remember To Do the Following....
Use [Code].... [/Code] tags when posting code to the thread.
Mark your thread as Solved if satisfied by using the Thread Tools options.
If posting the same issue to another forum please show the link
Posting Permissions
Reply With Quote