Trato de seleccionar el texto en Word, por ejemplo:
10/8
18/6
12/4
Y con macros convertirlo a este tipo de fracciones con la línea horizontal:
Me gustaría que se seleccionara todo ese texto y cada elemento se convirtiera así.
Tengo este código que lo que hace es pedirte mediante un cuadro de texto, la fracción:
Sub MakeFraction()
Dim Fraction As String, Numerator As String, Denominator As String
ActiveWindow.View.ShowFieldCodes = True
With Selection
' For user input, you could use the following 2 lines to create a fraction
Fraction = InputBox("Please input the Fraction (ex: 1/2, 5/32)")
.Collapse (wdCollapseStart)
' Alternatively, to convert a selection, use the following line
'Fraction = Trim(.Text)
Numerator = Split(Fraction, "/")(0)
Denominator = Split(Fraction, "/")(1)
.Font.Size = Round(.Font.Size) / 2
.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False, Text:="EQ \f(" & Numerator & "," & Denominator & ")"
.MoveLeft wdCharacter, 2
.Delete
.Fields.Update
End With
ActiveWindow.View.ShowFieldCodes = False
End Sub
Pero en vez del imput
, me gustaría implementar esto: StrFrac = Split(Selection.Text, "/")
¿Cómo lo podría hacer? De antemano agradezco mucho su apoyo. Saludos!