Fractions Add-inn

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Carlos Saavedra - 13 Jul 2007 17:36 GMT

Hi there!

Is there an add-in for creating/making fractions withion Word?

For instance, if I type within any Word document the fraction 1/2, Word immediately trasnforms it as: ½
If I type 1/4, Words makes it ¼
And finally, if I type 3/4, Word puts it as: ¾

Is there an add-in to make it for any number?

Thanks!

CS (saavchav@hotmail.com)

Reply to this Message

Russ - 13 Jul 2007 21:31 GMT

Use menu Insert/Object... When dialog box appears, pick the one for
Microsoft Equation. Play around with that.

> Hi there!
>
[quoted text clipped - 10 lines]
>
> CS (saavchav@hotmail.com)

Signature

Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Reply to this Message

Steve G - 15 Jul 2007 02:32 GMT

> Hi there!
>
[quoted text clipped - 9 lines]
>
> CS (saavc...@hotmail.com)

Suzanne Barnell a Word MVP wrote an article about fractions. This is
the url:
http://word.mvps.org/FAQs/Formatting/CreateFraction.htm

Graham Mayor , a Word MVP, wrote code to create fractions. His web
site is www.gmayor.com.

Thisis his code to create fractions:

Sub FmtFraction()
Dim OrigFrac As String
Dim Numerator As String, Denominator As String
Dim NewSlashChar As String
Dim SlashPos As Integer
NewSlashChar = ChrW(&H2044)
OrigFrac = Selection
SlashPos = InStr(OrigFrac, "/")
Numerator = Left(OrigFrac, SlashPos - 1)
Denominator = Right(OrigFrac, Len(OrigFrac) - SlashPos)
With Selection
.Font.Superscript = True
.TypeText Text:=Numerator
.Font.Superscript = False
.TypeText Text:=NewSlashChar
.Font.Subscript = True
.TypeText Text:=Denominator
.Font.Subscript = False
End With
End Sub

Steve G

Reply to this Message