Make Autocorrect Case-Specific?

gmayor · #5 11-19-2018, 09:11 PM

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Word - Find & Apply Styles to Specific Words - Using Case Statement	jc491	Word VBA	17	12-26-2015 12:25 PM
How to make word ignore a specific shape when printing?	ZAK	Word	12	04-07-2014 03:14 PM
How to make a SPECIFIC FONT shortcut button?	E922	Word	4	03-18-2014 03:11 PM
Autocorrect to make words Bold?	GB89	Word	1	04-15-2010 09:04 PM
From all UPPER CASE to Proper Case	davers	Word	1	04-30-2009 12:41 PM