[AAA]

How do I search for a known word "said" and capitalize only the first letter
of the word next to it?

said hi

Change to:

said Hi

Thanks.

[Graham Mayor]

The following macro (http://www.gmayor.com/installing_macro.htm) will locate
a chosen word followed by a single space and a lower case letter and change
the case of that letter to upper case:

Sub ChangeCaseOfNextLetter()
Dim strFind As String
On Error GoTo UserCancelled:
strFind = InputBox("Enter the word to be searched for." _
& vbCr & vbCr & "NOTE: Search is case sensitive.", _
"Change following letter to Upper case", "said")
If strFind = "" Then GoTo UserCancelled:
strFind = strFind & " [a-z]"
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:=strFind, _
Wrap:=wdFindContinue, Forward:=True, _
MatchWildcards:=True) = True
With Selection
.MoveRight Unit:=wdCharacter, Count:=1
.MoveLeft Unit:=wdCharacter, Count:=1, _
Extend:=wdExtend
.Range.Case = wdUpperCase
End With
Loop
End With
UserCancelled:
End Sub

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


AAA wrote:
How do I search for a known word "said" and capitalize only the first
letter of the word next to it?

said hi

Change to:

said Hi

Thanks.

[AAA]

Thank you Graham, I shall give it a try.

"Graham Mayor" wrote in message
...
The following macro (http://www.gmayor.com/installing_macro.htm) will
locate
a chosen word followed by a single space and a lower case letter and
change
the case of that letter to upper case:

Sub ChangeCaseOfNextLetter()
Dim strFind As String
On Error GoTo UserCancelled:
strFind = InputBox("Enter the word to be searched for." _
& vbCr & vbCr & "NOTE: Search is case sensitive.", _
"Change following letter to Upper case", "said")
If strFind = "" Then GoTo UserCancelled:
strFind = strFind & " [a-z]"
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:=strFind, _
Wrap:=wdFindContinue, Forward:=True, _
MatchWildcards:=True) = True
With Selection
.MoveRight Unit:=wdCharacter, Count:=1
.MoveLeft Unit:=wdCharacter, Count:=1, _
Extend:=wdExtend
.Range.Case = wdUpperCase
End With
Loop
End With
UserCancelled:
End Sub

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


AAA wrote:
How do I search for a known word "said" and capitalize only the first
letter of the word next to it?

said hi

Change to:

said Hi

Thanks.