Thank you for the reply. I need to change the column width on each of them.
There are 50 identical tables in the Word 07 document and I would just like
to be able to reformat the columns all at one time.
Dim i As Long
With ActiveDocument
For i = 1 To .Tables.Count
With .Tables(i)
.Columns(1).Width = InchesToPoints(2)
End With
Next i
End With
which will set the width of the first column in each of the tables to 2
inches.
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.