How do I run code on all cells in all tables?

wido · #1 09-04-2019, 02:57 AM

Hi. Sorry for my noobness, but we all started as noobs at some point!

The following VBA code does its thing on only one cell. How can I edit it so that it does it on all cells?? Thank you so much.

Code:

Dim tbl As Table
For Each tbl In ActiveDocument.Tables
   With tbl
      .Range.Cells(1).WordWrap = True
      .Range.Cells(1).FitText = False
   End With
Next

gmayor · #2 09-04-2019, 04:50 AM

Code:

Dim tbl As Table
Dim oCell As Cell
    For Each tbl In ActiveDocument.Tables
        With tbl
            For Each oCell In .Range.Cells
                oCell.WordWrap = True
                oCell.FitText = False
            Next oCell
        End With
    Next tbl

wido · #3 09-04-2019, 05:32 AM

Thank you gmayor!
That was super helpful!
And by the way, thank you for all the Word-related stuff you posted on your website, it was tremendously helpful to me and my office staff!

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can I repeat or self-populate cells/tables?	pvh	PowerPoint	6	05-05-2015 03:21 PM
VBA code to format a document containing tables	rasika99	Word VBA	3	12-12-2014 04:16 AM
Tables in Powerpoint - Hiding Cells	manisfeld	PowerPoint	2	06-08-2014 08:17 PM
Tables not populating properly from code	DepricatedZero	Word VBA	1	06-04-2013 06:22 AM
Shading in Cells in Word Tables	Cindy	Word Tables	1	01-04-2013 02:38 PM