Need a macro adjustment

Ulodesk · #1 12-07-2021, 01:16 PM

Hi. I have this macro from previous assistance. I am working on a document now with tons of tables that is set up differently. I need the tables -- even better would two specific table styles, which are N-Table1 and N-Table2 -- to be:
left-aligned,
indented 0.3 inches, and
7.2" wide

Code:

Sub TablesResizeAll()
'
' Resizes all tables in document to 6.5" wide, centered
'
    Dim oTbl As Table
    For Each oTbl In ActiveDocument.Tables
        oTbl.AutoFitBehavior wdAutoFitFixed
        With ActiveDocument.PageSetup
            oTbl.PreferredWidth = .PageWidth - .LeftMargin - .RightMargin
            oTbl.Rows.Alignment = wdAlignRowCenter
        End With
    Next oTbl
End Sub

Many thanks!

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
Macro adjustment needed	Ulodesk	Word VBA	2	02-06-2020 06:49 AM
IF Statement Adjustment	shawn.low@cox.net	Mail Merge	0	09-23-2019 10:08 AM
Can I disable auto adjustment of sizes in Smart art Hierarchy charts?	frankgoldman	PowerPoint	1	05-04-2019 04:37 AM
Automatic adjustment date	zbiku25	Project	3	02-28-2017 09:03 AM
Table adjustment on Surface OneNote	TheMax	OneNote	1	01-23-2015 04:33 PM