Formatting Multiple Tables at Once

Occasional Visitor



I have a ~1000 page document with ~100 tables that will need to be inserted within by several groups of consultants using One Drive.


I want to be able to format all the tables at once or create a formatted style so when a consultant needs to paste there table into the shared document that it adheres to the formatted guidelines in the table.


Right now, I've added the macro:

Sub Set_Global_Table_Width() Dim pT As Word.Table For Each pT In ActiveDocument.Tables pT.PreferredWidthType = wdPreferredWidthPercent pT.PreferredWidth = 75


I've also created a table design style that will be the default design for the document.


My question is; are there any other macros that could ease in formatting or anything I might be missing?





0 Replies