Microsoft Office Forums - View Single Post - [Solved] Macro to change each individual cell to 0 padding, one at a time in a table with merged cells.

gmayor · 02-09-2021, 09:37 PM

How about

Code:

Sub Macro1()
Dim oCell As Cell
Dim oTable As Table
    Set oTable = Selection.Tables(1)
    For Each oCell In oTable.Range.Cells
        With oCell
            .TopPadding = InchesToPoints(0)
            .BottomPadding = InchesToPoints(0)
            .LeftPadding = InchesToPoints(0)
            .RightPadding = InchesToPoints(0)
        End With
    Next oCell
End Sub

or for all the tables

Code:

Sub Macro2()
Dim oCell As Cell
Dim oTable As Table
    For Each oTable In ActiveDocument.Tables
        For Each oCell In oTable.Range.Cells
            With oCell
                .TopPadding = InchesToPoints(0)
                .BottomPadding = InchesToPoints(0)
                .LeftPadding = InchesToPoints(0)
                .RightPadding = InchesToPoints(0)
            End With
        Next oCell
        DoEvents
    Next oTable
End Sub