Hmm. When I run this, it ends up crashing Word. I think you might be onto something though. I might try recording it myself & see if that works.
Quote:
Originally Posted by BrianHoard
I'm using Office 2019, but please see if this works for you. I recorded a Macro to do as you mentioned, then modified that code to get this. I added an Undo record so the entire script can be undone in one go, and used the document range instead of selection.
I now see that Graham posted an answer already. I'm still learning this, so you're likely better off going with his solution.
Code:
Sub smallCaps2Lowercase()
Dim bhhUndo As UndoRecord
Dim scriptName As String
Dim rng_doc As Range
scriptName = "smallCaps2Lowercase"
Set rng_doc = ActiveDocument.Range
Application.ScreenUpdating = False
' Begin undo record
Set bhhUndo = Application.UndoRecord
bhhUndo.StartCustomRecord (scriptName)
' Find/replace all text from smallCaps to lowercase.
rng_doc.Find.ClearFormatting
With rng_doc.Find.Font
.SmallCaps = True
.AllCaps = False
End With
rng_doc.Find.Replacement.ClearFormatting
With rng_doc.Find.Replacement.Font
.SmallCaps = False
.AllCaps = False
End With
With rng_doc.Find
.Text = "*"
.Replacement.Text = LCase("")
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
rng_doc.Find.Execute Replace:=wdReplaceAll
Application.ScreenUpdating = True
bhhUndo.EndCustomRecord ' End undo
End Sub
|
03-07-2023, 06:26 AM
Similar Threads
Toggle between upper case, lower case, etc... by one single macro on a Mac, to emulate Shift + F3 on
Windows 10 
Office 2016
Threaded Mode