Table Style question

[Fuzzhead]

How do I go through my document and find all the tables changing the style in
them from ‘Normal’ to ‘TableNormal’?

 

[Shauna Kelly]

Hi Fuzzhead

Off the top of my head:

Dim oTable as Word.Table
Dim oDoc as Word.Document

set oDoc = Word.ActiveDocument
for each oTable in oDoc.Tables
oTable.Style = "TableNormal"
next oTable

"TableNormal" might not be "TableNormal" in a non-English version of
Word; you'll need to add error checking to taste.

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

 

[Tony Jollans]

wdStyleNormalTable should work for all languages.

I'm not sure, however, what you have or what you are expecting to see as a
result of this. Normal is a Paragraph Style, and Table Normal is a Table
Style; they are not interchangeable.

 

[Fuzzhead]

Hi Shauna and Tony,

Thank you for your help. I tried to run Shauna's macro and Tony was right.
It gave me a error 5849 "Could not apply the Style". What I am trying to do
is change the paragraph Style in each cell from 'Normal' to a style I created
called 'TableNormal'. I am working in English.

Fuzzhead

 

[Tony Jollans]

A slightly confusing name, but this should do it.

For Each T In ActiveDocument.Tables
For Each P In T.Range.Paragraphs
If P.Style = "Normal" Then P.Style = "TableNormal"
Next P, T

 

[Fuzzhead]

Thank you Tony, that did it. It works good.

Fuzzhead