Hi, I don't know what is wrong but I can't use or find capital letters using vba. Below simple code and text for example:
lorem ipsum
LOREM IPSUM
lorem ipsum
Sub capital()
'
Selection.Find.ClearFormatting
With Selection.Find.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub