Macro help!

Hey guys, I've literally been trying to make a macro for weeks to update a string of hundreds of documents, but after much effort and frustration, I have had no luck.

So these documents have tables that expand the entire width of the document. I'm trying to reduce the width of the tables in every document, while keeping the columns proportional to one another. There are around 12-15 tables in each document and I refuse to do it manually! I'm trying to reduce the width to match the numbering in the document, which is indented.

Can anyone point me in the right direction? All I have found online is the following macro to adjust the column sizes of a table:

Sub TableFormatter()
Dim oTbl As Table, i As Integer
For Each oTbl In Selection.Tables
With oTbl
.Rows.AllowBreakAcrossPages = False
.Rows(1).HeadingFormat = True
For i = 1 To .Columns.Count
If i = 1 Then .Columns(i).Width = InchesToPoints(1.19)
If i = 2 Then .Columns(i).Width = InchesToPoints(2#)
If i = 3 Then .Columns(i).Width = InchesToPoints(1.19)
If i = 4 Then .Columns(i).Width = InchesToPoints(2#)
If i = 5 Then .Columns(i).Width = InchesToPoints(2.62)
Next
End With
Next
End Sub