You could create a pair of macros and associate them with keyboard shortcuts to apply upper orlower case to any word the cursor is in e.g.
Code:
Sub Macro1()
Dim orng As Range
Set orng = Selection.Words(1)
orng.Text = UCase(orng.Text)
lbl_Exit:
Set orng = Nothing
Exit Sub
End Sub
Sub Macro2()
Dim orng As Range
Set orng = Selection.Words(1)
orng.Text = LCase(orng.Text)
lbl_Exit:
Set orng = Nothing
Exit Sub
End Sub
Another possibility is to use
PhraseExpress This is like an upscaled version of autocorrect and will allow you to create separate autocorrect entries for example and EXAMPLE on the same shortcut.