How to grow font into range?

[avkokin]

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.

 

[StevenM]

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