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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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