Macro to change each individual cell to 0 padding, one at a time in a table with merged cells.

Wild Bee · #3 02-09-2021, 10:33 PM

You awesome person!! Thank you!

The single one worked awesomely. I'll try the other one, but even just the first one is fantastic.

I need to learn how to write VBA..
LOL

Quote:

Originally Posted by gmayor

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table Row with merged cells	andi_bln	Word VBA	3	10-15-2020 01:22 AM
How to get autonumber series if adjacent cell has merged cells?	kingston123	Excel	3	06-28-2020 09:12 AM
Converting table to text (and back) with carriage returns in cells, split and merged cells	ndajko	Word	5	11-04-2019 07:53 AM
Merging 2 different cells containing IF formula & change in cell values based on multiple time frame	jay_excel	Excel	0	07-29-2017 11:04 PM
Table will not allow sorting because "cells are merged". I can't find the merged cells.	wendyloooo	Word Tables	1	05-26-2015 01:19 PM