capitalize first letter of all words in selection

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I need a macro or something to capitalize the first letter of all words in
selections of several hundred words each.
 
Nick,

GNO's method will work for "all" words like you asked. However, here is a
macro that will title case only the words that would normally be in title
case (i.e., excludes words like a, or, etc.). You can exit the "excludes"
to suit your needs:

Sub TitleCaseWithLowerCase()

Application.ScreenUpdating = False

'Capitalize all words in selection
Selection.FormattedText.Case = wdTitleWord

'Uncapitalize the listed words
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

Call DoTitleCase("The ")
Call DoTitleCase("Of ")
Call DoTitleCase("And ")
Call DoTitleCase("Or ")
Call DoTitleCase("But ")
Call DoTitleCase("A ")
Call DoTitleCase("An ")
Call DoTitleCase("To ")
Call DoTitleCase("In ")
Call DoTitleCase("With ")
Call DoTitleCase("From ")
Call DoTitleCase("By ")
Call DoTitleCase("Out ")
Call DoTitleCase("That ")
Call DoTitleCase("This ")
Call DoTitleCase("For ")
Call DoTitleCase("Against ")
Call DoTitleCase("About ")
Call DoTitleCase("Between ")
Call DoTitleCase("Under ")
Call DoTitleCase("On ")
Call DoTitleCase("Up ")
Call DoTitleCase("Into ")

'Uncomment the next line if you want the selection dismissed.
'Selection.Collapse wdCollapseStart

're-capitalize first word in title
Selection.Characters(1).Case = wdUpperCase

End Sub
 
This macro would be very helpful for me. But I am a macro-newbie.
Do you have time to help me?
I opened VB editor, and pasted in everything from Sub titleCaseWith
LowerCase() to End Sub. Closed VB editor.
In Word, selected a passage to convert. Tried to run the macro (selected its
title, and clicked "run").
Got a message: Compile error: Sub or function not defined.
When I click OK, Sub titleCaseWith LowerCase() is yellow highlighted.
What shall I do?
Many thanks.
 
Stepanie,

One the Tools menu click Options>Editor>AutoSyntax Check.

Try stepping through the code one command at a time using F8. Sometimes the
newsgroups can introduce a "-" in the code which you may need to remove or
the space you have in the macro name.












d, selected a passage to convert. Tried to run the macro
 
Thanks, Greg.

Yes, AutoSyntax is set.
I don't see any hyphens at all in VB.

When I click OK on the Compile Error Message, the message box goes away, and
the first line [Sub TitleCaseWithLowerCase()] is highlighted, with a little
arrow pointing to it. The arrow is in the Left margin.

Pressing F8, Alt-F8, and Cntrl-F8 does nothing.

--I'm working in W2k, with Word 2002. Does that make a difference?

Thanks for helping me with this, Greg. I frequently need this function.
 
Back
Top