Microsoft Office Forums - View Single Post

Ulodesk · 07-18-2012, 08:32 AM

Graham Mayor's site has the following macro, for converting non-autotext fractions to fractions. I can't get it to work on any fraction. VBA points to a problem in the line

TypeText Text:=sFraction(1)

Would someone let me know the correction required, please?

Code:

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, "/")
 'Reformat the fraction using super and subscript
 With Selection
  .Font.Superscript = True
  .TypeText Text:=sFraction(0)
  .Font.Superscript = False
  .TypeText Text:=sChar
  .Font.Subscript = True
   TypeText Text:=sFraction(1)
  .Font.Subscript = False
 End With
 End Sub