Macro to change font

Does any know if there is a macro that will change the font in all the tables
in a document?

Thanks,
Mickey

Mickey
Fri Feb 02 10:09:00 CST 2007

Works great. Thank you so much.

"Edward Thrashcort" wrote:

> record a macro that changes the font if you don't know the code
> to make the change you require, then create a macro that wraps
> the recorded code in a for-loop
>
> Sub tablefontchange()
> Dim aTable As Table
> For Each aTable In ActiveDocument.Tables
> aTable.Select
> Selection.Font.Name = "Times New Roman"
> Next
> End Sub
>
>
> Eddie
>

Greg
Fri Feb 02 10:40:11 CST 2007

Eddie,

You might want to consider using "range" for this sort of thing.
There is no need to actually select the individual tables.

Sub tablefontchange()
Dim aTable As Table
For Each aTable In ActiveDocument.Tables
aTable.Range.Font.Name = "Times New Romanl"
Next
End Sub


On Feb 2, 11:00 am, IdontWantS...@nospam.net (Edward Thrashcort)
wrote:
> record a macro that changes the font if you don't know the code
> to make the change you require, then create a macro that wraps
> the recorded code in a for-loop
>
> Sub tablefontchange()
> Dim aTable As Table
> For Each aTable In ActiveDocument.Tables
> aTable.Select
> Selection.Font.Name = "Times New Roman"
> Next
> End Sub
>
> Eddie