Today I will show you a small Macro code snippet for Microsoft Word in order to set the column width for many tables in the same document.
Lets image that we have many tables with 3 columns. And we want to give a fixed column sizes for each of the columns. (In my case, I set the first column as the smallest and second one as the largest. Besides I set the Allow Break Across Pages option to false.) You can edit the code according to your needs.
After creating a new Macro in MS Word, open the code window and paste the following code; and select run.
Dim oTbl As Word.Table
Dim oCol As Word.Column
Dim i As Integer
For Each oTbl In ActiveDocument.Range.Tables
.Rows.AllowBreakAcrossPages = True
For i = 1 To .Columns.Count
If i = 1 Then .Columns(i).Width = InchesToPoints(0.9)
If i = 2 Then .Columns(i).Width = InchesToPoints(4.4)
If i = 3 Then .Columns(i).Width = InchesToPoints(1.4)
All of your tables will have the defined sizes above.