Formatting Multiple Tables at Once

%3CLINGO-SUB%20id%3D%22lingo-sub-2146735%22%20slang%3D%22en-US%22%3EFormatting%20Multiple%20Tables%20at%20Once%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2146735%22%20slang%3D%22en-US%22%3E%3CP%3EHello%2C%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20have%20a%20~1000%20page%20document%20with%20~100%20tables%20that%20will%20need%20to%20be%20inserted%20within%20by%20several%20groups%20of%20consultants%20using%20One%20Drive.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20want%20to%20be%20able%20to%20format%20all%20the%20tables%20at%20once%20or%20create%20a%20formatted%20style%20so%20when%20a%20consultant%20needs%20to%20paste%20there%20table%20into%20the%20shared%20document%20that%20it%20adheres%20to%20the%20formatted%20guidelines%20in%20the%20table.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ERight%20now%2C%20I've%20added%20the%20macro%3A%3C%2FP%3E%3CP%3E%3CSTRONG%3ESub%20Set_Global_Table_Width()%20Dim%20pT%20As%20Word.Table%20For%20Each%20pT%20In%20ActiveDocument.Tables%20pT.PreferredWidthType%20%3D%20wdPreferredWidthPercent%20pT.PreferredWidth%20%3D%2075%3C%2FSTRONG%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI've%20also%20created%20a%20table%20design%20style%20that%20will%20be%20the%20default%20design%20for%20the%20document.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EMy%20question%20is%3B%20are%20there%20any%20other%20macros%20that%20could%20ease%20in%20formatting%20or%20anything%20I%20might%20be%20missing%3F%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ECheers%2C%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EBP%3C%2FP%3E%3C%2FLINGO-BODY%3E
Occasional Visitor

Hello,

 

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?

 

Cheers,

 

BP

0 Replies