Abacinator
Unholy Blasphemies
Isn't that the opposite of how it works? 



Sub Macro1()
Selection.TypeText Text:="Å"
End Sub
Sub Macro2()
Selection.TypeText Text:="å"
End Sub
Sub Macro3()
Selection.TypeText Text:="Æ"
End Sub
Sub Macro4()
Selection.TypeText Text:="æ"
End Sub
Sub Macro5()
Selection.TypeText Text:="Ø"
End Sub
Sub Macro6()
Selection.TypeText Text:="ø"
End Sub
Find/replace can replace a pair of characters with a single character, so the "aa" to "å" would work as you'd want it to. In the case of "æ", you might do something like type "a~" and replace that.Will find/replace work if I tell it to replace all occurrences of "aa" with "å", as an example--or will it change all instances of "a" with "å"? There's also the challenge of only wanting to replace some instances of "ae" with "æ". (I don't use find/replace very often, so I don't know how sophisticated it is.)
