Word Font Size in VBA Help

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

ctully@powergate.ca - 13 Jan 2006 14:57 GMT

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

Reply to this Message

Dave Lett - 13 Jan 2006 17:01 GMT

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

"cjt" wrote:

> Can anyone suggest an easy way to increase the font size of an
> entire document (including headers/footers) by a certain percentage?
[quoted text clipped - 9 lines]
>
> TIA

Reply to this Message

Kevin B - 13 Jan 2006 20:23 GMT

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

Signature

Kevin Backmann

"cjt" wrote:

> Can anyone suggest an easy way to increase the font size of an
> entire document (including headers/footers) by a certain percentage?
[quoted text clipped - 9 lines]
>
> TIA

Reply to this Message