How to grow font into range?

How to grow font into range?

Hello.
There is some text which has font with different size (8, 14, 15 or
others). If I assign next macro (below) then it show error. If use
font identical size, then it's OK. How can I grow all text with
different font of size on 1 point?

Sub SizeFonts()
Dim rF As Range
Set rF = ActiveDocument.Range
rF.Font.Size = rF.Font.Size + 1
End Sub

Thank you.

date: Tue, 19 Aug 2008 11:16:17 -0700 (PDT) author: avkokin

RE: How to grow font into range?

To: A.V. Kokin,

Sub SizeFonts()
    Dim rF As Range
    Dim oChar As Range
    
    Set rF = ActiveDocument.Range
    For Each oChar In rF.Characters
        oChar.Font.Size = oChar.Font.Size + 1
    Next oChar
End Sub

Steven Craig Miller

"avkokin" wrote:

> Hello.
> There is some text which has font with different size (8, 14, 15 or
> others). If I assign next macro (below) then it show error. If use
> font identical size, then it's OK. How can I grow all text with
> different font of size on 1 point?
> 
> Sub SizeFonts()
> Dim rF As Range
> Set rF = ActiveDocument.Range
> rF.Font.Size = rF.Font.Size + 1
> End Sub
> 
> Thank you.
>

date: Tue, 19 Aug 2008 11:40:10 -0700 author: StevenM stevencraigmiller(at)comcast(dot)net