Macro to change font

[Mickey]

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

Thanks,
Mickey

 

[Edward Thrashcort]

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

 

[Mickey]

Works great. Thank you so much.

 

[Greg Maxey]

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

 

[Edward Thrashcort]

Yep I know.

I couldn't be bothered to load word to get the syntax right so I wrote it
from memory the easy way.

The Selection object, although functional, can be fraught with gotchas

Eddie