Word macro to change ALL CAPS to UPPERCASE

macropod · #11 04-30-2018, 05:24 PM

Well, if the document contains mixed cases and you only want to change those ranges, you could use a Find/Replace macro, but such a macro could be simpler and faster than yours:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Text = ""
    .Font.AllCaps = True
    .Forward = True
    .MatchWildcards = False
    .Wrap = wdFindStop
    .Execute
  End With
  Do While .Find.Found = True
    .Case = wdUpperCase
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

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