In Arial the font for the 9th letter and the 12th letter of the alphabet are the same, which means that the symbol for chlorine is the same as for carbon monoidide. OCR exam papers solve this problem by writing the 12th letter of the alphabet in Book Antiqua Italic when it is in the formula for chlorine or aluminium. The following macro does that – it won’t change the letter in a word containing that letter, but will when it is in a formula.
'italic and book antiqua l for Cl and Al
Selection.WholeStory
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([CA])(l)([!a-z])"
.Replacement.Text = "\1++l++\3"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = "++l++"
.Replacement.Text = "l"
.Replacement.Font.Name = "Book Antiqua"
.Replacement.Font.Size = 11
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Chemistry Word VBA macros 