View Single Post
  #6   Report Post  
Posted to microsoft.public.word.docmanagement
macropod[_2_] macropod[_2_] is offline
external usenet poster
 
Posts: 2,059
Default Abbreviation for Carbon Dioxide

Hi Herb,

If you've got that many chemical formulae, a macro solution like the following might do the job more efficiently -

Sub ChemicalFormatter()
Dim oRng As Range, fRng As Range
Application.ScreenUpdating = False
With Selection
Set oRng = .Range
With .Find
.ClearFormatting
.Text = "[A-Z)][0-9]{1,}"
.MatchWildcards = True
.Wrap = wdFindContinue
.Forward = True
Do While .Execute = True
Set fRng = ActiveDocument.Range(Start:=Selection.Start + 1, End:=Selection.End)
fRng.Font.Subscript = True
fRng.Collapse Direction:=wdCollapseEnd
' Uncomment the next line to process only the selected range
If fRng.End = oRng.End Then Exit Do
Loop
End With
End With
oRng.Select
Set fRng = Nothing
Set oRng = Nothing
Application.ScreenUpdating = True
End Sub

The above macro will search for and process all 'chemical' formulae in the document in one pass. If your document has other
upper-case alphanumeric strings in which a number follows a letter (eg Table cell references), you'll need to uncomment the line
indicated and select the range(s) containing the text to be converted.

--
Cheers
macropod
[Microsoft MVP - Word]


"Herb Tyson [MVP]" wrote in message ...
...and if it's something you need frequently, consider creating an AutoCorrect entry to automatically convert co2 into the correct
format each time it's typed. I use AutoCorrect entries for h2o, h2so4, etc. It's very handy, and ultimately, a big time saver.

--
Herb Tyson MS MVP
Author of the Word 2007 Bible
Blog: http://word2007bible.herbtyson.com
Web: http://www.herbtyson.com


"CyberTaz" wrote in message .. .
Actually, for chemicals like that the 2 should be "slightly *lower" not
higher.After the CO type Control+= then type the 2. Then type Control+=
again to turn Subscript off. Alternatively just type the 2, select it, then
go to [depending on version of Word] Format Font & apply Subscript.

HTH |:)
Bob Jones
[MVP] Office:Mac



On 5/2/09 3:27 PM, in article
, "Abi"
wrote:

How do I create the small 2 that's placed slightly higher than the other
characters in for example the abbreviation CO2?