Fix misaligned columns

Sometimes Word columns become misaligned, due to track changes or copy and paste or accidental moves. 

Here is a macro that separates out each row of the table and glues them all back together.

Sub fixTableMisaligned()

  ' If you have a table where rows are misaligned, the following macro will attempt to fix it up.

  ' Best to copy a separate Microsoft Word document and run the macro.

  ' Check if the cursor is within a table

  If Selection.Information(wdWithInTable) = False Then

    MsgBox "Cursor is not inside a table.", vbExclamation

    Exit Sub

  End If

  Selection.EndOf Unit:=wdTable

  While Selection.Information(wdWithInTable) = True

    Selection.SplitTable

    Selection.MoveDown Unit:=wdLine, Count:=1

    Selection.Tables(1).Rows.LeftIndent = CentimetersToPoints(0)

    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)

    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)

    Selection.Cells.DistributeWidth

    Selection.MoveUp Unit:=wdLine, Count:=2

  Wend

    Selection.MoveDown Unit:=wdLine, Count:=2

  While Selection.Information(wdWithInTable) = True

    Selection.EndOf Unit:=wdTable

    Selection.MoveDown Unit:=wdLine, Count:=1

    If Selection.Information(wdWithInTable) = True Then

        Selection.Delete Unit:=wdCharacter, Count:=1

    End If

  Wend

    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)

    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)

    Selection.Tables(1).AutoFitBehavior (wdAutoFitFixed)

End Sub