View Single Post
  #13   Report Post  
Posted to microsoft.public.word.newusers
Graham Mayor Graham Mayor is offline
external usenet poster
 
Posts: 19,312
Default How to stop caps after !

Oops! 'change the case of any word that you enter in the dialog box' should
read change the case of any word 'which follows that you enter in the dialog
box'

--

Graham Mayor - Word MVP

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


Graham Mayor wrote:
As this is only one Word, it will be fairly simple to change the case
of the following letter to lower case using a macro. The following
will change the case of any word that you enter in the dialog box
which is followed by an exclamation mark and either a space, a tab, a
paragraph mark or a line break. If there are any other possibilities
they can be added. Enter the Word *without the exclamation mark* in
the dialog box when prompted. The macro will insert the exclamation
mark. This function uses a wildcard search so the chosen Word will be
case sensitive. If it is spelled with different cases, then you will
have to search each separately
Sub ChangeCaseOfNextLetter()
Dim strFind As String
On Error GoTo UserCancelled:
strFind = InputBox("Enter the word to be searched for." _
& vbCr & "Omit the exclamation mark." _
& vbCr & vbCr & "NOTE: Search is case sensitive.", _
"Change following letter to Upper case", "Replace this with the word")
If strFind = "" Then GoTo UserCancelled:
strFind = strFind & "\![ ^13^l^t]{1,}[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 = wdLowerCase
End With
Loop
End With
UserCancelled:
End Sub

http://www.gmayor.com/installing_macro.htm


Tracy wrote:
that's fine, but i am doing this at the clients request.
it's only one ! after one word.
if you saw the document, you would understand.


"JoAnn Paules [MVP]" wrote in message
...
I've learned to delete anything that has an overabundance of
exclamation points.

--

JoAnn Paules
MVP Microsoft [Publisher]

~~~~~
How to ask a question
http://support.microsoft.com/KB/555375




"aalaan" wrote in message
...
Why do you hate caps? They make prose so much more readable. Your
own question would be much more readable if you had used them.
Also, overuse of ! reduces readability. I'm not being funny here --
surely a writer hopes to be read readily!

"Tracy" wrote in message
...
hello,

i am creating a document that will have a lot of ! and i do not
want the letter after the ! to automatically be a cap.
i've look at the auto correct options, but do not see one that
will work. any suggestions would be greatly appreciated.

thank you.
--

Tracy
* * * * * * * * * *