Private Sub Document_New()
For Each tb In ThisDocument.Tables
tb.AllowAutoFit = False
For Each col In tb.Columns
col.Width = 50
Next
Next
For Each oTable In ThisDocument.Tables
Dim oCols As Integer
oCols = oTable.Columns.Count
For Each oCol In oTable.Columns
If oCols = 2 Then
Select Case oCol.Index
Case 1
oCol.Width = 120
Case 2
oCol.Width = 130
End Select
End If
If oCols = 4 Then
Select Case oCol.Index
Case 1
oCol.Width = 120
Case 2
oCol.Width = 130
Case 3
oCol.Width = 60
Case 4
oCol.Width = 80
End Select
End If
Next oCol
Next oTable
End Sub