Word Font Size in VBA Help

[ctully]

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
dofferent circumstances and I do not want to maintain two versions
of it.

Any ideas?

TIA
--

 

[Dave Lett]

Hi,

I don't know of a command that does this by PERCENTAGE. However, you might
want to look at something like the following:

ActiveDocument.Range.Font.Grow

For making this available to all text, then have a look at the article
"Using a macro to replace text where ever it appears in a document including
Headers, Footers, Textboxes, etc." at
http://word.mvps.org/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm for information
on how to access all of Word's storyranges.

HTH,
Dave

 

[Kevin B]

Perhaps either of these will help:

Sub DecreaseToNextAvailable()

'Macro equivalent of Ctrl + A, Ctrl + Shift + <

Selection.WholeStory
Selection.Font.Shrink

End Sub

Sub DecreaseByOnePoint()

'Macro equivalent of Ctrl + A, Ctrl + [

Selection.WholeStory
Selection.Font.Size = Selection.Font.Size - 1

End Sub