View Single Post
 
Old 06-09-2020, 03:13 AM
emblaw emblaw is offline Windows 10 Office 2016
Novice
 
Join Date: Jun 2020
Posts: 9
emblaw is on a distinguished road
Default Thanks!

I'll try this out, thank you!

In the same document, I am also trying to make the column widths of all the tables (all of which contain 2 columns and 4 rows, with the first column being significantly narrower than the rest), but the following macro is giving me the error "Run-time error '5992': Cannot access individual columns in this collection because the table has mixed cell widths". Any ideas how I could fix this as well, since I've got you on the line!?

Macro:
Sub SetColumnWidths2()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Columns(1).Width = CentimetersToPoints(3.75)
t.Columns(2).Width = CentimetersToPoints(12)
Next t
End Sub
Many thanks!
emblaw
Reply With Quote