superscript

[raraschek]

hi,any ideas?
i want to set upperscript format for numbers ONLY in my selection. i tried
it, but don´t know how to getformat (number) to the IF statement.
thanx for replies

 

[Doug Robbins - Word MVP]

What do you mean by "numbers"? ONE, TWO, THREE, FOUR, etc? If that is what
it is, what range of numbers are you talking about - up to ten? up to 100?
etc.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Helmut Weber]

Don't know, what that would be good for.

Sub Test6H()
Dim rChr As Range
For Each rChr In Selection.Characters
If IsNumeric(rChr) Then
rChr.Font.Superscript = True
End If
Next
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"