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!

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