Word Relative Font Sizing?

Can anyone suggest an easy way to increase the font size of an entire document (including headers/footers) by a certain percentage? I know I can do it by going through word by word and setting the font size to the original font size multiplied by a factor, but this seems slow and tedious. Is there a better way?

I have a document that needs to print in different font size under different circumstances and I do not want to maintain two versions of it.

Any ideas?

TIA

Welcome to the Forums.

You can use the Selection object.

VB Code:

Application.Selection.Font.Name = "Arial"
Application.Selection.Font.Size = 12

Or for the entire document you can use the Content.

VB Code:

ActiveDocument.Content.Font = "Arial"
ActiveDocument.Content.Font.Size = 12