Formatting all tables

		Microsoft Office Forums > Microsoft Word > Word
Formatting all tables

09-10-2012, 02:53 PM

knightmetal knightmetal is offline

Windows 7 32bit Formatting all tables

Office 2007

Novice

Join Date: Sep 2012

Posts: 2

Well, I'm replying to myself, just for people having the same problem in the future

Code:

Sub Macro1()
'
Dim pT As Word.Table
For Each pT In ActiveDocument.Tables
pT.PreferredWidth = MillimetersToPoints(170)
Next
MsgBox "done"
End Sub

170 is the width of the tables given in mm.

Last edited by macropod; 09-10-2012 at 10:42 PM. Reason: Added code tags & formatting

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro for selecting pages and formatting of tables	ubns	Word VBA	25	08-15-2012 11:48 PM
Formatting multiple tables and columns efficiently?	table_column	Word Tables	1	07-02-2012 05:55 PM
Another Case of Automatic/Zombie Formatting of Tables	MKummerfeldt	Word Tables	0	10-31-2011 10:40 AM
Copy table cell formatting across multiple cells / tables	pakistanray	Word Tables	2	10-31-2011 08:07 AM
Whacked formatting in tables (2007)	Roscoe	Word Tables	6	06-11-2010 02:48 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 07:50 AM.