Microsoft Office Forums - View Single Post - [Solved] Macro to apply style to selected tables

Thread: [Solved] Macro to apply style to selected tables

View Single Post

Old

08-02-2012, 04:09 AM

Stefan Blom Stefan Blom is offline

Stefan Blom is offline

Stefan Blom uses Windows 7 64bit

Windows 7 64bit Stefan Blom uses Office 2010 32bit

Stefan Blom uses Office 2010 32bit

Office 2010 32bit

Moderator

Join Date: Aug 2011

Posts: 4,036

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Default

Try this:

Code:

 
Sub ApplyTableStyleToSelection()
Dim t As Table
For Each t In Selection.Tables
t.Style = "style name here"
Next t
End Sub

__________________
Stefan Blom
Microsoft Word MVP

Microsoft 365 apps for business
Windows 11 Professional

Reply With Quote