TechTalkz.com Logo Ask the Experts!

Go Back   TechTalkz.com Technology & Computer Troubleshooting Forums > Tech Support Archives > Microsoft > Microsoft Office > Microsoft Office Word

How do I type roman numerals in Word 2007

Microsoft Office Word

 
 
Thread Tools Display Modes
Unread 14-11-2007, 05:59 AM   #1
MedicalTranscriptionstudent
Guest
 
Posts: n/a
How do I type roman numerals in Word 2007

I am trying to type proper formatted roman numerals. I would like to set them
up in autocorrect but I can not find them in either symbols or under any of
the fonts. Help?
 
Unread 14-11-2007, 10:11 AM   #2
Stefan Blom
Guest
 
Posts: n/a
Re: How do I type roman numerals in Word 2007

Roman numerals consist of ordinary letters (I, V, X, L, C, D, M). If you
want a specific appearance, use the appropriate font.

--
Stefan Blom
Microsoft Word MVP


"MedicalTranscriptionstudent" wrote in message
news:01C7876F-FE8D-40AA-BCF2-5B796922EEE7@microsoft.com...
>I am trying to type proper formatted roman numerals. I would like to set
>them
> up in autocorrect but I can not find them in either symbols or under any
> of
> the fonts. Help?



 
Unread 14-11-2007, 02:03 PM   #3
Graham Mayor
Guest
 
Posts: n/a
Re: How do I type roman numerals in Word 2007

It's probably a touch of wheel re-invention but the following macro will
convert selected numbers up to 2999 to Roman numerals

Sub ConvertSelectedToRomanNumerals()
Dim iNum As String
Dim iUnits As String
Dim iTens As String
Dim iHundreds As String
Dim iThousands As String

iNum = Selection
On Error GoTo Oops:

iUnits = Right(iNum, 1)
Select Case iUnits
Case Is = 1
iUnits = "I"
Case Is = 2
iUnits = "II"
Case Is = 3
iUnits = "III"
Case Is = 4
iUnits = "IV"
Case Is = 5
iUnits = "V"
Case Is = 6
iUnits = "VI"
Case Is = 7
iUnits = "VII"
Case Is = 8
iUnits = "VIII"
Case Is = 9
iUnits = "IX"
Case Else
iUnits = ""
End Select

If iNum > 9 Then
iTens = Mid(iNum, Len(iNum) - 1, 1)
Select Case iTens
Case Is = 1
iTens = "X"
Case Is = 2
iTens = "XX"
Case Is = 3
iTens = "XXX"
Case Is = 4
iTens = "XL"
Case Is = 5
iTens = "L"
Case Is = 6
iTens = "LX"
Case Is = 7
iTens = "LXX"
Case Is = 8
iTens = "LXXX"
Case Is = 9
iTens = "XC"
Case Else
iTens = ""
End Select
Else
iTens = ""
End If

If iNum > 99 Then
iHundreds = Mid(iNum, Len(iNum) - 2, 1)

Select Case iHundreds
Case Is = 1
iHundreds = "C"
Case Is = 2
iHundreds = "CC"
Case Is = 3
iHundreds = "CCC"
Case Is = 4
iHundreds = "CD"
Case Is = 5
iHundreds = "D"
Case Is = 6
iHundreds = "DC"
Case Is = 7
iHundreds = "DCC"
Case Is = 8
iHundreds = "DCCC"
Case Is = 9
iHundreds = "MC"
Case Else
iHundreds = ""
End Select
Else
iHundreds = ""
End If

If iNum > 999 Then
iThousands = Left(iNum, Len(iNum) - 3)
Select Case iThousands
Case Is = 1
iThousands = "M"
Case Is = 2
iThousands = "MM"
Case Else
MsgBox "Numbers greater than 2999 are not valid"
Exit Sub
End Select
Else
iThousands = ""
End If

With Selection
.Font.Name = "Times New Roman"
.Font.Bold = True
.TypeText iThousands & iHundreds & iTens & iUnits
End With
Exit Sub

Oops:
MsgBox "Select the number and try again"

End Sub

http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


MedicalTranscriptionstudent wrote:
> I am trying to type proper formatted roman numerals. I would like to
> set them up in autocorrect but I can not find them in either symbols
> or under any of the fonts. Help?



 
Unread 14-11-2007, 03:19 PM   #4
Suzanne S. Barnhill
Guest
 
Posts: n/a
Re: How do I type roman numerals in Word 2007

There are actually separate characters for roman numerals in the Arial
Unicode MS font (U2160-U2182), but (a) MS warns that Arial Unicode MS can be
problematic and should not be used unless absolutely necessary, and (b)
since these Arial numerals don't look like anybody's idea of "real" roman
numerals, and they can't be substituted for arabic numerals in auto-numbered
lists, it's hard to see what purpose they're meant to serve (though the
characters for 1,000, 5,000, and 10,000 are unique).

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Stefan Blom" <no.spam@please.xyz> wrote in message
news:O$cIcEqJIHA.5328@TK2MSFTNGP05.phx.gbl...
> Roman numerals consist of ordinary letters (I, V, X, L, C, D, M). If you
> want a specific appearance, use the appropriate font.
>
> --
> Stefan Blom
> Microsoft Word MVP
>
>
> "MedicalTranscriptionstudent" wrote in message
> news:01C7876F-FE8D-40AA-BCF2-5B796922EEE7@microsoft.com...
> >I am trying to type proper formatted roman numerals. I would like to set
> >them
> > up in autocorrect but I can not find them in either symbols or under any
> > of
> > the fonts. Help?

>
>


 
Unread 15-11-2007, 08:59 AM   #5
Stefan Blom
Guest
 
Posts: n/a
Re: How do I type roman numerals in Word 2007

Thank you for this information.

--
Stefan Blom
Microsoft Word MVP


"Suzanne S. Barnhill" wrote in message
news:e2MZUysJIHA.5468@TK2MSFTNGP05.phx.gbl...
> There are actually separate characters for roman numerals in the Arial
> Unicode MS font (U2160-U2182), but (a) MS warns that Arial Unicode MS can
> be
> problematic and should not be used unless absolutely necessary, and (b)
> since these Arial numerals don't look like anybody's idea of "real" roman
> numerals, and they can't be substituted for arabic numerals in
> auto-numbered
> lists, it's hard to see what purpose they're meant to serve (though the
> characters for 1,000, 5,000, and 10,000 are unique).
>
> --
> Suzanne S. Barnhill
> Microsoft MVP (Word)
> Words into Type
> Fairhope, Alabama USA
> Word MVP FAQ site: http://word.mvps.org
> Email cannot be acknowledged; please post all follow-ups to the newsgroup
> so
> all may benefit.
>
> "Stefan Blom" <no.spam@please.xyz> wrote in message
> news:O$cIcEqJIHA.5328@TK2MSFTNGP05.phx.gbl...
>> Roman numerals consist of ordinary letters (I, V, X, L, C, D, M). If you
>> want a specific appearance, use the appropriate font.
>>
>> --
>> Stefan Blom
>> Microsoft Word MVP
>>
>>
>> "MedicalTranscriptionstudent" wrote in message
>> news:01C7876F-FE8D-40AA-BCF2-5B796922EEE7@microsoft.com...
>> >I am trying to type proper formatted roman numerals. I would like to set
>> >them
>> > up in autocorrect but I can not find them in either symbols or under
>> > any
>> > of
>> > the fonts. Help?

>>
>>

>



 
Unread 15-11-2007, 03:01 PM   #6
Graham Mayor
Guest
 
Posts: n/a
Re: How do I type roman numerals in Word 2007

I thought it would be wheel re-invention

Sub ConvertSelectedToRomanNumerals2()
Dim sNum As String
Dim sFont As String
sNum = Selection
If sNum = "" Then Exit Sub
With Selection
sFont = .Font.Name
.Font.Name = "Times New Roman"
.Fields.Add Range:=Selection.Range, _
Type:=wdFieldEmpty, Text:= _
"= " & sNum & " \*ROMAN", _
PreserveFormatting:=False
.MoveLeft Unit:=wdCharacter, Count:=1
.Fields.Unlink
.MoveRight Unit:=wdCharacter, Count:=1
.Font.Name = sFont
End With
End Sub

is somewhat simpler

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Graham Mayor wrote:
> It's probably a touch of wheel re-invention but the following macro
> will convert selected numbers up to 2999 to Roman numerals
>
> Sub ConvertSelectedToRomanNumerals()
> Dim iNum As String
> Dim iUnits As String
> Dim iTens As String
> Dim iHundreds As String
> Dim iThousands As String
>
> iNum = Selection
> On Error GoTo Oops:
>
> iUnits = Right(iNum, 1)
> Select Case iUnits
> Case Is = 1
> iUnits = "I"
> Case Is = 2
> iUnits = "II"
> Case Is = 3
> iUnits = "III"
> Case Is = 4
> iUnits = "IV"
> Case Is = 5
> iUnits = "V"
> Case Is = 6
> iUnits = "VI"
> Case Is = 7
> iUnits = "VII"
> Case Is = 8
> iUnits = "VIII"
> Case Is = 9
> iUnits = "IX"
> Case Else
> iUnits = ""
> End Select
>
> If iNum > 9 Then
> iTens = Mid(iNum, Len(iNum) - 1, 1)
> Select Case iTens
> Case Is = 1
> iTens = "X"
> Case Is = 2
> iTens = "XX"
> Case Is = 3
> iTens = "XXX"
> Case Is = 4
> iTens = "XL"
> Case Is = 5
> iTens = "L"
> Case Is = 6
> iTens = "LX"
> Case Is = 7
> iTens = "LXX"
> Case Is = 8
> iTens = "LXXX"
> Case Is = 9
> iTens = "XC"
> Case Else
> iTens = ""
> End Select
> Else
> iTens = ""
> End If
>
> If iNum > 99 Then
> iHundreds = Mid(iNum, Len(iNum) - 2, 1)
>
> Select Case iHundreds
> Case Is = 1
> iHundreds = "C"
> Case Is = 2
> iHundreds = "CC"
> Case Is = 3
> iHundreds = "CCC"
> Case Is = 4
> iHundreds = "CD"
> Case Is = 5
> iHundreds = "D"
> Case Is = 6
> iHundreds = "DC"
> Case Is = 7
> iHundreds = "DCC"
> Case Is = 8
> iHundreds = "DCCC"
> Case Is = 9
> iHundreds = "MC"
> Case Else
> iHundreds = ""
> End Select
> Else
> iHundreds = ""
> End If
>
> If iNum > 999 Then
> iThousands = Left(iNum, Len(iNum) - 3)
> Select Case iThousands
> Case Is = 1
> iThousands = "M"
> Case Is = 2
> iThousands = "MM"
> Case Else
> MsgBox "Numbers greater than 2999 are not valid"
> Exit Sub
> End Select
> Else
> iThousands = ""
> End If
>
> With Selection
> .Font.Name = "Times New Roman"
> .Font.Bold = True
> .TypeText iThousands & iHundreds & iTens & iUnits
> End With
> Exit Sub
>
> Oops:
> MsgBox "Select the number and try again"
>
> End Sub
>
> http://www.gmayor.com/installing_macro.htm
>
>
> MedicalTranscriptionstudent wrote:
>> I am trying to type proper formatted roman numerals. I would like to
>> set them up in autocorrect but I can not find them in either symbols
>> or under any of the fonts. Help?



 
 

Thread Tools
Display Modes



< Home - Windows Help - MS Office Help - Hardware Support >


New To Site? Need Help?

All times are GMT. The time now is 07:55 AM.


vBulletin, Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO
Copyright © 2005-2013, TechTalkz.com. All Rights Reserved - Privacy Policy
Valid XHTML 1.0 Transitional