Home |
Search |
Today's Posts |
#1
|
|||
|
|||
capitalize first letter of all words in selection
I need a macro or something to capitalize the first letter of all words in
selections of several hundred words each. |
#2
|
|||
|
|||
Select the words, and click on Format | Change Case | Title Case | OK.
NickEaston wrote: I need a macro or something to capitalize the first letter of all words in selections of several hundred words each. |
#3
|
|||
|
|||
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 -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. NickEaston wrote: I need a macro or something to capitalize the first letter of all words in selections of several hundred words each. |
#4
|
|||
|
|||
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. "Greg Maxey" wrote: 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 -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. NickEaston wrote: I need a macro or something to capitalize the first letter of all words in selections of several hundred words each. |
#5
|
|||
|
|||
Stepanie,
One the Tools menu click OptionsEditorAutoSyntax 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 (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. "Greg Maxey" wrote: 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 -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. NickEaston wrote: I need a macro or something to capitalize the first letter of all words in selections of several hundred words each. |
#6
|
|||
|
|||
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. "Greg Maxey" wrote: Stepanie, One the Tools menu click OptionsEditorAutoSyntax 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 (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. "Greg Maxey" wrote: 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 -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. NickEaston wrote: I need a macro or something to capitalize the first letter of all words in selections of several hundred words each. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
selecting all three letter words in a document how do I do it | Microsoft Word Help | |||
How do I put an accent over a letter? As in Spanish words | Microsoft Word Help | |||
How do I build a word list with number of occurrences of each wor. | Microsoft Word Help | |||
Word Count | Microsoft Word Help | |||
Fix the glitch so words will capitalize after A.(eg) or 12.(eg) | Microsoft Word Help |