A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » Tables
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

How to change style of all tables in a document at once?



 
 
Thread Tools Display Modes
  #1  
Old February 27th, 2010, 05:38 PM posted to microsoft.public.word.tables
Doctor Document
external usenet poster
 
Posts: 1
Default How to change style of all tables in a document at once?

I'm copying tables from many documents and sources outside word and pasting
them into a single word document. When I want to apply a uniform formatting
throughout my new document I find myself manually selecting each table using
the 'Goto' button and applying the table styles to each table.

There are over 300 tables in this document. What's the easier way out? I
have to make twelve other documents similar to this one. Is there a way to
define a pasting formatting for tables? Anyone please help.
Ads
  #2  
Old February 27th, 2010, 06:36 PM posted to microsoft.public.word.tables
Stefan Blom[_3_]
external usenet poster
 
Posts: 4,556
Default How to change style of all tables in a document at once?

You could use a macro such as the following:

Sub ApplyTableStyle()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Style = "Light Shading - Accent 3" 'Specify table style name here
Next t
End Sub

--
Stefan Blom
Microsoft Word MVP



"Doctor Document" Doctor wrote in
message ...
I'm copying tables from many documents and sources outside word and
pasting
them into a single word document. When I want to apply a uniform
formatting
throughout my new document I find myself manually selecting each table
using
the 'Goto' button and applying the table styles to each table.

There are over 300 tables in this document. What's the easier way out? I
have to make twelve other documents similar to this one. Is there a way to
define a pasting formatting for tables? Anyone please help.



  #3  
Old March 7th, 2010, 01:43 AM posted to microsoft.public.word.tables
L. Gautero[_2_]
external usenet poster
 
Posts: 1
Default How to change style of all tables in a document at once?

Dear Stefan,

Thanks for the suggestion, unfortunately in my case, it is not performing
well, in fact the table keep other styles, especially when the contents of
the table (objects as MS Equation) have a style on their own.

basically the whole table is presented having the style of its content.
Is there a way to make this more ordered?
(i.e. a table has its style, independetly from the style of the content of
the cells)

regards

"Stefan Blom" wrote:

You could use a macro such as the following:

Sub ApplyTableStyle()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Style = "Light Shading - Accent 3" 'Specify table style name here
Next t
End Sub

--
Stefan Blom
Microsoft Word MVP



"Doctor Document" Doctor wrote in
message ...
I'm copying tables from many documents and sources outside word and
pasting
them into a single word document. When I want to apply a uniform
formatting
throughout my new document I find myself manually selecting each table
using
the 'Goto' button and applying the table styles to each table.

There are over 300 tables in this document. What's the easier way out? I
have to make twelve other documents similar to this one. Is there a way to
define a pasting formatting for tables? Anyone please help.



.

  #4  
Old March 7th, 2010, 01:13 PM posted to microsoft.public.word.tables
Stefan Blom[_3_]
external usenet poster
 
Posts: 4,556
Default How to change style of all tables in a document at once?

Well, you could use a macro to format the contents of cells as well.

Of course, since there are many factors to consider, this might be tricky or
at least time-consuming. In particular, I don't know how to modify equations
using VBA (if it's even possible).

--
Stefan Blom
Microsoft Word MVP



"L. Gautero" wrote in message
...
Dear Stefan,

Thanks for the suggestion, unfortunately in my case, it is not performing
well, in fact the table keep other styles, especially when the contents of
the table (objects as MS Equation) have a style on their own.

basically the whole table is presented having the style of its content.
Is there a way to make this more ordered?
(i.e. a table has its style, independetly from the style of the content of
the cells)

regards

"Stefan Blom" wrote:

You could use a macro such as the following:

Sub ApplyTableStyle()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Style = "Light Shading - Accent 3" 'Specify table style name here
Next t
End Sub

--
Stefan Blom
Microsoft Word MVP



"Doctor Document" Doctor wrote in
message ...
I'm copying tables from many documents and sources outside word and
pasting
them into a single word document. When I want to apply a uniform
formatting
throughout my new document I find myself manually selecting each table
using
the 'Goto' button and applying the table styles to each table.

There are over 300 tables in this document. What's the easier way out?
I
have to make twelve other documents similar to this one. Is there a way
to
define a pasting formatting for tables? Anyone please help.



.




 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 07:45 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Copyright 2004-2018 OfficeFrustration.
The comments are property of their posters.