capitalization

G

Guest

I just got a new computer with Word 2002. My old Word 97 would automatically
capitalize the first word of a new sentence. This new program also does this,
EXCEPT after a numeral followed by a period. I work for an orthopedic surgeon
and this is really annoying. An example follows.

There is foraminal stenosis at L4-5. the patient also has....

If anyone knows how to fix this I would really appreciate it. Thank you
 
S

Suzanne S. Barnhill

There is no fix. The only workaround is to capitalize manually. This was a
(poorly thought-out) design change made in Word 2000. I suspect it was meant
to affect only numbered lists, but apparently the design spec was not
written clearly enough. See "WD2002: Word Does Not Capitalize the First
Letter of a Sentence" at
http://support.microsoft.com/?kbid=291538.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
G

Greg Maxey

Jeanne,

Here is a macro that you can run after you complete your draft to help make
sure you find any uncapitalized words following numbers:

Sub CapWordAfterNumbersAndColon()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = ": {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = "[0-9]{1,}. {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
 
G

Guest

Hi Greg, thanks for your help. I created the macro but when I try to run it,
it won't work. It gives me a compile error, expected End Sub which it wants
me to insert under the line - Macro recorded by....

If I do this, a line appears separating the code from the macro. None of my
other macros has an End Sub in this position. Can you help. Thanks, Jeanne

Greg Maxey said:
Jeanne,

Here is a macro that you can run after you complete your draft to help make
sure you find any uncapitalized words following numbers:

Sub CapWordAfterNumbersAndColon()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = ": {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = "[0-9]{1,}. {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support
I just got a new computer with Word 2002. My old Word 97 would
automatically capitalize the first word of a new sentence. This new
program also does this, EXCEPT after a numeral followed by a period.
I work for an orthopedic surgeon and this is really annoying. An
example follows.

There is foraminal stenosis at L4-5. the patient also has....

If anyone knows how to fix this I would really appreciate it. Thank
you
Click to expand...
Click to expand...
 
G

Greg Maxey

Jeanne,

I don't know what to tell you. You might try the tips posted here:

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



--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support
Hi Greg, thanks for your help. I created the macro but when I try to
run it, it won't work. It gives me a compile error, expected End Sub
which it wants me to insert under the line - Macro recorded by....

If I do this, a line appears separating the code from the macro. None
of my other macros has an End Sub in this position. Can you help.
Thanks, Jeanne

Greg Maxey said:
Jeanne,

Here is a macro that you can run after you complete your draft to
help make sure you find any uncapitalized words following numbers:

Sub CapWordAfterNumbersAndColon()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = ": {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = "[0-9]{1,}. {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support
I just got a new computer with Word 2002. My old Word 97 would
automatically capitalize the first word of a new sentence. This new
program also does this, EXCEPT after a numeral followed by a period.
I work for an orthopedic surgeon and this is really annoying. An
example follows.

There is foraminal stenosis at L4-5. the patient also has....

If anyone knows how to fix this I would really appreciate it. Thank
you
Click to expand...
Click to expand...
Click to expand...
 
D

Daiya Mitchell

All macros start with Sub and end with End Sub. Depending on how you put in
Greg's macro, you might have wound up with double Subs at the beginning.
The link he gave should help out.
DM
 
G

Guest

Thanks for responding. It wants me to put Sub End at the beginning after the
line "Macro created by" that's what I can't understand. It looks like all
the other macros but won't run. I have about 4-5 other macros and they don't
have that there. I did cut and paste the code. I will try entering it myself.
I am also looking at the site Greg gave me. This is something I really want
to do. Will let you know if I succeed.
 
G

Guest

I just did it again and it works! There were two End Subs at the END of the
code, this time it highlighted one of those, gave me an entirely different
message from before, telling me there could only be one, I deleted it and it
worked. Thanks again.
 
G

Guest

Greg, I did this again, at the end of the day, after I calmed down. This time
it highlighted one of the two End Subs that were at the END of the code, gave
me a new message stating there should only be one, I deleted it and it
worked! Thanks again for your help, you have no idea how much this will help
me, Jeanne.

Greg Maxey said:
Jeanne,

I don't know what to tell you. You might try the tips posted here:

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



--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support
Hi Greg, thanks for your help. I created the macro but when I try to
run it, it won't work. It gives me a compile error, expected End Sub
which it wants me to insert under the line - Macro recorded by....

If I do this, a line appears separating the code from the macro. None
of my other macros has an End Sub in this position. Can you help.
Thanks, Jeanne

Greg Maxey said:
Jeanne,

Here is a macro that you can run after you complete your draft to
help make sure you find any uncapitalized words following numbers:

Sub CapWordAfterNumbersAndColon()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = ": {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = "[0-9]{1,}. {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support

Jeanne wrote:
I just got a new computer with Word 2002. My old Word 97 would
automatically capitalize the first word of a new sentence. This new
program also does this, EXCEPT after a numeral followed by a period.
I work for an orthopedic surgeon and this is really annoying. An
example follows.

There is foraminal stenosis at L4-5. the patient also has....

If anyone knows how to fix this I would really appreciate it. Thank
you
Click to expand...
Click to expand...
Click to expand...
 
G

Greg Maxey

Jeanne,

Thanks for the feedback. I am glad that the macro will help.

--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support
Greg, I did this again, at the end of the day, after I calmed down.
This time it highlighted one of the two End Subs that were at the END
of the code, gave me a new message stating there should only be one,
I deleted it and it worked! Thanks again for your help, you have no
idea how much this will help me, Jeanne.

Greg Maxey said:
Jeanne,

I don't know what to tell you. You might try the tips posted here:

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



--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support
Hi Greg, thanks for your help. I created the macro but when I try to
run it, it won't work. It gives me a compile error, expected End Sub
which it wants me to insert under the line - Macro recorded by....

If I do this, a line appears separating the code from the macro.
None
of my other macros has an End Sub in this position. Can you help.
Thanks, Jeanne

:

Jeanne,

Here is a macro that you can run after you complete your draft to
help make sure you find any uncapitalized words following numbers:

Sub CapWordAfterNumbersAndColon()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = ": {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.SmallCaps = False
.AllCaps = True
End With
With Selection.Find
.Text = "[0-9]{1,}. {1,}[a-z]"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support

Jeanne wrote:
I just got a new computer with Word 2002. My old Word 97 would
automatically capitalize the first word of a new sentence. This
new program also does this, EXCEPT after a numeral followed by a
period.
I work for an orthopedic surgeon and this is really annoying. An
example follows.

There is foraminal stenosis at L4-5. the patient also has....

If anyone knows how to fix this I would really appreciate it.
Thank
you
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

justification problems/first word of new sentence does not capital 1
questions about capitalization 4
AutoCorrect - Capitalization 4
SPELL CHECK, AUTO PAGE DUPLICATION AND WRONG CAPITALIZATION 5
auto correct with capitalization at beginning of sentence 1
How do you override Word's <period> default in {XE} \t switch? 3
How to stop automatic numbering & new line capitalization? 1
Disable automatic capitalization of a new line of text 1

Top