Word macro to change ALL CAPS to UPPERCASE

		Microsoft Office Forums > Microsoft Word > Word VBA
Word macro to change ALL CAPS to UPPERCASE

FAQ

Thread Tools

Display Modes

04-29-2018, 07:25 AM

eduzs

Windows 10 Word macro to change ALL CAPS to UPPERCASE

Office 2010 32bit

Expert

Join Date: May 2017

Posts: 266

Try this:

Backup the original file and code before doing any modification, test before use, use at your own.

Quote:

Sub Macro3()
With ActiveDocument.Range
With .Find
.Text = "*"
.Font.AllCaps = True
.Replacement.Font.AllCaps = False
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Format = True
.Execute
End With
Do While .Find.Found
.Case = wdUpperCase
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub

__________________
Backup your original file before doing any modification.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need a Macro to Change Every Instance of Small Caps to All Caps and Reduce the Font by 2 Points	CrossReach	Word VBA	2	11-13-2017 09:21 AM
How to find CAPITALIZED names and change them into small caps	dylan.ve	Word VBA	5	02-25-2016 03:15 PM
Change lower case to caps whole document	lmb100	Word	4	08-07-2015 06:57 AM
Using conditional formatining to change to all caps	Shades	Excel	3	05-05-2014 06:05 AM
find&replace word in uppercase with word in lowercase	andrei	Word	3	10-03-2011 05:11 AM