#1
|
|||
|
|||
Fraction macro not working
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 |
#2
|
||||
|
||||
perhaps you'd prefer mine:
Code:
Sub Fraction() Dim RngTmp As Range, StrFrac With Selection If InStr(.Text, "/") < 2 Then GoTo ErrMsg While Not .Characters.Last.Text Like "[0-9]" .End = .End - 1 If .Start + InStr(.Text, "/") = .End Then GoTo ErrMsg Wend While Not .Characters.First.Text Like "[0-9]" .Start = .Start + 1 If .Start = .End Or InStr(.Text, "/") = 0 Then GoTo ErrMsg Wend StrFrac = Split(.Text, "/") Set RngTmp = .Range With RngTmp .Font.Size = Round(.Font.Size * 1.75) / 2 .End = .Start + Len(StrFrac(0)) .Font.Superscript = True .Characters.Last.Next.Font.Italic = True .End = Selection.End .Start = .Start + InStr(.Text, "/") .Font.Subscript = True End With End With Set RngTmp = Nothing Exit Sub ErrMsg: MsgBox "No fraction selected!", vbCritical, "Format Fraction" End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
macro not working (on click increment) | gsrikanth | Excel Programming | 1 | 07-12-2012 07:40 AM |
'Little fraction' stopped? | markg2 | Word | 5 | 01-31-2011 01:58 PM |
Macro to open template not working | Brandi | Mail Merge | 2 | 06-24-2010 09:29 AM |
fraction not appearing correctly | kcr | Word | 1 | 10-21-2009 03:51 PM |
Word 2000 Macro not working properly | brianlb | Word VBA | 1 | 07-01-2009 07:04 AM |