by Jack Lyon<\/strong><\/em><\/p>\n Rich Adin, the proprietor of this blog, recently sent me an interesting question. He wrote:<\/p>\n I need a wildcard find and replace, assuming it can be done by wildcards, that searches for the following<\/p>\n Abrams: alpha and replaces it with<\/p>\n Abrams: Alpha That is, the first letter after the colon and space is changed from lowercase to uppercase. I know I can do this by macro, and I have one that will do it, but I would like to do it by wildcard so I can make it part of a script I run.<\/p><\/blockquote>\n Unfortunately, there's no good way to do that. Using a wildcard search, we can find any lowercase letter (preceded by a colon and space) by using the following string in the Find What box:<\/p>\n : [a-z]<\/p>\n But in the Replace With box, we should use\u2014what? We can't use the following string because it doesn't specify what the replacement letter should be:<\/p>\n : [A-Z]<\/p>\n In fact, if we try that, Word will simply replace what was found with the string itself, giving us this:<\/p>\n Abrams: [A-Z]lpha There is, however, a rather sneaky (but ultimately unsatisfactory) workaround. We can replace the lowercase letter with itself formatted as uppercase.<\/em> Here's how:<\/p>\n 1. Press CTRL + H to bring up Word's Replace dialog. : [a-z]<\/p>\n 5. In the Replace With box, enter this<\/p>\n ^&<\/p>\n That's the magic code that tells Word to replace what was found with what was found. In other words, if Word finds \": a\" it should replace it with \": a\" (the same thing it was searching for). You'll see why in just a minute.<\/p>\n 6. Make sure your cursor is in the Replace With box. That should do the trick; all of our lowercase letters following a colon and space are now formatted as \"All caps.\" The reason I said earlier that this is \"ultimately unsatisfactory\" is that those letters are not actually uppercase; they merely look<\/em> as if they're uppercase because of their formatting.<\/p>\n In some situations, that may be good enough. But if your document is destined to be published in a format other than Microsoft Word, it may not<\/em> be good enough, as formatting may change and, like Cinderella at the stroke of midnight, our \"uppercase\" letters may revert to their true lowercase selves. (How often do we get to use a fairytale allusion in technical writing?)<\/p>\n The only real solution is to use a macro, like this one:<\/p>\n Sub ReplaceLowercaseWithCaps() .Text = \": [a-z]\" 'Search for colon and space followed by lowercase letter End With Selection = UCase(Selection) 'Uppercase what was found Wend 'End the \"While\" loop I've added comments to explain what's going on, but the really pertinent line is this one:<\/p>\n Selection = UCase(Selection) 'Uppercase what was found<\/p><\/blockquote>\n When Word finds a colon and space followed by a lowercase letter, it selects the colon, space, and letter (naturally, because it found them), so those are the \"Selection.\" The macro then converts those characters to uppercase using the \"UCase\" function; it sets the Selection as the uppercased version of the Selection, if you see what I mean.<\/p>\n After that, the macro moves to the right so the text is no longer selected. Then it again executes the Find in an effort to locate the next instance of colon, space, and lowercase letter, if one exists.<\/p>\n And yes, for the sake of simplicity, the colon and space are uppercased here as well as the letter. What's an uppercased colon? A colon. What's an uppercased space? A space. If we wanted to, we could modify the macro to handle each of those separately, but why bother when the result is the same? Virtue in simplicity.<\/p>\n Note that we could do the inverse of this, if we needed to, finding any uppercase letter and lowercasing it. To do so, we'd use \": [A-Z]\" for the search string, and we'd modify Selection with the LCase function rather than UCase.<\/p>\n I wish that Microsoft had included a better way to handle this. Even though\u00a0Microsoft didn't, we now have a way to accomplish what we need to do.<\/p>\n Jack Lyon (<\/em>editor@editorium.com<\/em><\/a>)\u00a0owns and operates the <\/em>Editorium<\/em><\/a>, which provides macros and information to help editors and publishers do mundane tasks quickly and efficiently. He is the author of <\/em>Microsoft Word for Publishing Professionals<\/a> and of <\/em>Macro Cookbook for Microsoft Word<\/a>. Both books will help you learn more about macros and how to use them.<\/em><\/p>\n ________<\/p>\n Here\u2019s how to put this macro (or any other) into Microsoft Word so it will be available when you need it:<\/p>\n To actually use the macro:<\/p>\n Here\u2019s how to put the macro on Word\u2019s QAT (Quick Access Toolbar):<\/p>\n Finding and Replacing Upper- and Lowercase by Jack Lyon Rich Adin, the proprietor of this blog, recently sent me an interesting question. He wrote: I need a wildcard find and replace, assuming it can be done by wildcards, that searches for the following Abrams: alpha booby: alarm and replaces it with Abrams: Alpha booby: Alarm […]<\/p>\n<\/a>","protected":false},"author":9,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[77,256,22,409],"tags":[267,808,809],"class_list":{"0":"post-4630","1":"post","2":"type-post","3":"status-publish","4":"format-standard","6":"category-computers-and-software","7":"category-contributor-article","8":"category-editorial-matters","9":"category-lyonizing-word","10":"tag-jack-lyon","11":"tag-macro-to-change-case","12":"tag-wildcards-vs-macros","13":"h-entry","14":"hentry"},"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p3gfno-1cG","_links":{"self":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts\/4630","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/users\/9"}],"replies":[{"embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/comments?post=4630"}],"version-history":[{"count":1,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts\/4630\/revisions"}],"predecessor-version":[{"id":6074,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts\/4630\/revisions\/6074"}],"wp:attachment":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/media?parent=4630"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/categories?post=4630"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/tags?post=4630"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nbooby: alarm<\/p>\n
\nbooby: Alarm<\/p>\n
\nbooby: [A-Z]larm<\/p>\n
\n2. If the More button is available, click it.
\n3. Put a check in the box labeled \"Use Wildcards.\"
\n4. In the Find What box, enter this:<\/p>\n
\n7. Click the Format button at the bottom left of the Replace dialog.
\n8. Click Font.
\n9. Put a check in the box labeled \"All caps.\"
\n10. Click OK.
\n11. Click \"Replace All.\"<\/p>\n
\nSelection.HomeKey Unit:=wdStory 'Position cursor at top of document
\nSelection.Find.ClearFormatting 'Clear any
\nSelection.Find.Replacement.ClearFormatting
\nWith Selection.Find<\/p>\n
\n.Replacement.Text = \"\" 'Leave empty--the macro will replace the text later
\n.Forward = True
\n.Wrap = wdFindStop
\n.Format = False
\n.MatchCase = False
\n.MatchWholeWord = False
\n.MatchAllWordForms = False
\n.MatchSoundsLike = False
\n.MatchWildcards = True 'Specify a wildcard search<\/p>\n
\nSelection.Find.Execute 'Execute the search
\nWhile Selection.Find.Found 'While the search is successful<\/p>\n
\nSelection.MoveRight 'Move out of the selection
\nSelection.Find.Execute 'Try, try again<\/p>\n
\nEnd Sub<\/p>\nHow to Add Macro to Word & to the QAT<\/h4>\n
\n
\n
\n