VBA Newbie Trying to Find/Replace All Caps after Tab

[devlon]

Hi, everyone.

I'm trying to create a macro in Word that will quickly find/replace instances in documents where certain characters followed by a tab are always followed by a capital letter.

For instance:

Q (tab) hello
A (tab) goodbye

Would always be changed to

Q (tab) Hello
A (tab) Goodbye

I tried (silly me) using the Find/Replace tab designator of ^t in a trial macro, but then realized I probably needed to use vbtab in some fashion, but can't seem to get the syntax right.

So far I've gotten


With ActiveDocument.Range.Find
.ClearFormatting
With .Replacement.Font
.SmallCaps = False
.AllCaps = True
End With


.MatchWildcards = True
.Text = "Q" &vbtab "([a-z])"
.Replacement.Text = "Q" &vbtab "\1"
.Execute Replace:=wdReplaceAll
End With

But that is not working at all, haha. I'm not sure how to only select Q and A as the character preceding a tab, and how to continue the syntax to include any lowercase character after the tab.

[macropod]

You could use a single wildcard Find/Replace, where:
Find = [QA]^t[a-z]
Replace = ^&
and you set the replacement font characteristic to All Caps.

There is no need for a macro. That said, as a macro:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[QA]^t[a-z]"
.Replacement.Text = "^&"
.Replacement.Font.SmallCaps = False
.Replacement.Font.AllCaps = True
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub