Option Explicit

Sub ConsistensifyTables()
Dim oStory As Range
Dim oTable As Table
    'Show No markup
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupNone
        .View = wdRevisionsViewFinal
    End With
    For Each oStory In ActiveDocument.StoryRanges
        For Each oTable In oStory.Tables
            With oTable
                With .Rows
                    .Alignment = wdAlignRowCenter
                    .LeftIndent = CentimetersToPoints(0)
                End With
                .AutoFitBehavior (wdAutoFitFixed)
                .PreferredWidthType = wdPreferredWidthPoints
                .PreferredWidth = CentimetersToPoints(17.03)
            End With
        Next oTable
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                For Each oTable In oStory.Tables
                    With oTable
                        With .Rows
                            .Alignment = wdAlignRowCenter
                            .LeftIndent = CentimetersToPoints(0)
                        End With
                        .AutoFitBehavior (wdAutoFitFixed)
                        .PreferredWidthType = wdPreferredWidthPoints
                        .PreferredWidth = CentimetersToPoints(17.03)
                    End With
                Next oTable
            Wend
        End If
    Next oStory
lbl_Exit:
    Set oStory = Nothing
    Set oTable = Nothing
    Exit Sub
End Sub