TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

برای متنی شبیه به این عبارت : 13/473

نسبت به عبارت های سمت چپ و راست "/"، کد زیر برنامه ریزی می کند.

Sub FractionalizeMe()
' Turns selected text like 7/8 into a fraction

    Dim sTemp As String
    Dim oRng As TextRange

    sTemp = ActiveWindow.Selection.TextRange.Text
    ' If the text seems not to be "fraction material" bail
    If InStr(sTemp, "/") = 0 Then
        Exit Sub
    End If
    If Len(sTemp) < 3 Then
        Exit Sub
    End If

    Set oRng = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
    With oRng.Characters( _
        Start:=1, _
        Length:=InStr(sTemp, "/") - 1).Font
        .BaselineOffset = 0.3
    End With

    With oRng.Characters( _
        Start:=InStr(sTemp, "/") + 1, _
        Length:=Len(sTemp) - InStr(sTemp, "/")).Font
        .BaselineOffset = -0.25
    End With

End Sub