How do I insert Roman Numerals?
"Graham Mayor" wrote in message
...
Type a number e.g. 21, select it and run the following macro
Dim oRng As Range
Set oRng = Selection.Range
oRng.Fields.Add oRng, 34, oRng.Text & " \*Roman", False
ActiveWindow.View.ShowFieldCodes = False
it will thus display XX1
Isn't it just easier to type XXI ?
|