![]() |
#5
|
||||
|
||||
![]()
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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
|
![]() |
||||
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 |
![]() |
GB89 | Word | 1 | 04-15-2010 09:04 PM |
![]() |
davers | Word | 1 | 04-30-2009 12:41 PM |