Change [UPPERCASE to [lowercase?

gmayor · #1 05-31-2019, 06:27 AM

Code:

Sub Macro1()
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:="[")
            oRng.End = oRng.End + 1
            oRng.Text = LCase(oRng.Text)
            oRng.Collapse 0
        Loop
    End With
End Sub

Helend269 · #2 05-31-2019, 06:40 AM

The reason I want it as a macro rather than a wildcard replacement is I have a macro of macros that I run and it does several things at once. I'll try incorporating your idea into a normal search/replace macro and see what happens...

...doesn't work.
I changed All Caps to All Lower and it didn't work.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word macro to change ALL CAPS to UPPERCASE	dita	Word VBA	14	05-20-2018 10:56 PM
How do I auto-correct an initial letter to lowercase?	Matteo	Word	6	10-27-2017 06:38 AM
Find and replace mutiple spaces between lowercase words only	Dave T	Word VBA	2	07-16-2015 11:23 PM
find&replace word in uppercase with word in lowercase	andrei	Word	3	10-03-2011 05:11 AM
Day and Month to Uppercase	Andy2011	Word VBA	1	07-22-2011 04:34 PM