Create a fraction

The Word MVP web site offers a useful approach involving Word's EQ field, but here I suggest an alternative approach using a macro to format any selected fraction in the format number/number. Thus the suggested 35/278 becomes ³⁵⁄₂₇₈

This actually looks better when used in Word than it does in the browser e.g.

Sub FmtFraction()
Dim sFraction() As String
Dim sChar As String

'Check if a fraction is selected

'and if not show a warning and exit
If InStr(Selection, "/") = False Then
     MsgBox "No fraction selected!", _
     vbCritical, "Format Fraction"
     Exit Sub
End If

'Define a new slash character
sChar = ChrW(&H2044)

'Split the original fraction at the slash character
sFraction = Split(Selection, "/")