Finding raised characters by 0.5 pt step (Font.Position pb)

[iwonder]

Hello

I've found the following code by Dave Lett, (thanks to him!) in a Google group for which I don't want to subscribe. ()

• It converts font raised characters (Ctrl+D, then advanced tab etc.) to true SuperScript numbers. That's what I need for now.

That code works fine for characters raised by an integer number of points. eg: 1, 2, 3, etc.
But it doesn't work for non-integer numbers 1.5, 2.5, 3.5 etc.

This is strange !

How to adapt the code to accept non-integer numbers ?
Help would be greatly appreciated here !

Sub RAISED_TO_SUPERSCRIPT()
With Selection
    .HomeKey unit:=wdStory
' how many loops you do depends on the max
' value you think the font might be raised
For i = 1 To 10
    With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .Font.Position = i
        With .Replacement
            .Text = ""
            .Font.Position = 0
            .Font.Size = 11.5 ' I, (iwonder) added this to get a normal font size
            .Font.Superscript = True
        End With
        .Execute Replace:=wdReplaceAll
    End With
Next i
End With
End Sub

PS: are I don't know if it's important, but in my non-english Word version, accepted values to raise the font are like this : 1,5 2,5 etc. (with commas instead of a period/dot)
----------
Sorry for my clumsy English language ; please ask if I'm not clear enough

[iwonder]

After deeper internet search it seems that in 2007 that was impossible with pure VBA code.

"When the macro language changed from WordBasic to VBA, the developpers
messed up and defined the position as a Long (integer), although half points
are allowed."

And I think it is the same now in 2017.

Luckily, it can be bypassed with pieces of WordBasic code that can be inserted in the VBA macro code:

With WordBasic
.EditFindClearFormatting
.EditReplaceClearFormatting
.EditFindClearFormatting
.EditFindFont Position:="4.5"
.EditReplaceFont Superscript:=True
.EditReplace Format:=1, Wrap:=1, ReplaceAll:=True
End With