by Jack Lyon<\/strong><\/em><\/p>\n Most users of Microsoft Word format text by selecting a paragraph and then applying a font. More advanced users apply a style. Why? Because then if they need to change the formatting of, say, level-2 headings, they can simply modify the style rather than tediously selecting each heading and applying a different font. (If you\u2019re reading this, you\u2019re probably one of those advanced users.) But there is a way to handle formatting that is even more powerful.<\/p>\n Suppose that you\u2019ve dutifully applied styles to the various parts of a document, but then your client asks you to change the font\u2014everywhere in the document\u2014from Times New Roman to Adobe Garamond. You could manually modify each style, but if there are dozens of styles in use, there is a better way. That way is a macro, like this one:<\/p>\n Sub SetFontInAllStyles() aStyle.Font.Name = \"Adobe Garamond\"<\/p>\n Next Well, that was easy. Let's look at each line of the macro (excluding the first and last lines, which simply define the beginning and end of the macro).<\/p>\n Dim aStyle As Style<\/p>\n That line dimensions (defines) a variable, aStyle, as a style. (As with all variables, I just made up the name \u201caStyle.\u201d) At one point as the macro runs, aStyle might represent the style Heading 1. At another point it might represent Heading 3. But it will always represent a style.<\/p>\n For Each aStyle In ActiveDocument.Styles<\/p>\n Here's where things get interesting. That line tells the macro to cycle through each style (represented by aStyle) in all of the styles in the active document (the document in which your cursor is currently sitting).<\/p>\n aStyle.Font.Name = \"Adobe Garamond\"<\/p>\n That line tells Word to set the font for the style currently being represented by aStyle to be Adobe Garamond.<\/p>\n Next<\/p>\n That line tells Word to go to the next style in the document.<\/p>\n When you run the macro, it will cycle through each style in the document (For Each\u2026Next) and set Adobe Garamond as the font used in that style.<\/p>\n But what if you want to change the font only in heading styles (Heading 1, Heading 2, and so on)? Try this:<\/p>\n Dim aStyle As Style If InStr(aStyle.NameLocal, \"Heading\") Then aStyle.Font.Name = \"Adobe Garamond\"<\/p>\n Next Here's the line of interest:<\/p>\n If InStr(aStyle.NameLocal, \"Heading\") Then aStyle.Font.Name = \"Adobe Garamond\"<\/p>\n The line uses a macro command we haven't seen before, InStr, which checks to see if a specific string of text is used somewhere. In this case, it checks to see if the text \u201cHeading\u201d appears in the name (NameLocal) of the style currently represented by aStyle. If it does, then the name of the font used in that style is set to Adobe Garamond.<\/p>\n You could even specify the exact name of the style to be changed:<\/p>\n If aStyle.NameLocal = \"Block Quote\" Then aStyle.Font.Name = \"Adobe Garamond\"<\/p>\n And that should give you an idea of how to modify a bunch of styles, all at once (between \u201cFor Each\u201d and \u201cNext\u201d), to use various fonts:<\/p>\n If aStyle.NameLocal = \"Poem\" Then aStyle.Font.Name = \"Arial\"<\/p>\n If aStyle.NameLocal = \"Author\" Then aStyle.Font.Name = \"Apple Boy\"<\/p>\n If aStyle.NameLocal = \"Subtitle\" Then aStyle.Font.Name = \"Constantia\"<\/p>\n Much more can be done to automate the formatting of text using macros. I hope this brief article will get you started.<\/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 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","protected":false},"excerpt":{"rendered":" Most users of Microsoft Word format text by selecting a paragraph and then applying a font. More advanced users apply a style. Why? Because then if they need to change the formatting of, say, level-2 headings, they can simply modify the style rather than tediously selecting each heading and applying a different font. But there is a way to handle formatting that is even more powerful.<\/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,175,409],"tags":[553,267,446,491],"class_list":{"0":"post-4300","1":"post","2":"type-post","3":"status-publish","4":"format-standard","6":"category-computers-and-software","7":"category-editing-tools-editorial-matters","8":"category-lyonizing-word","9":"tag-formatting-word-documents","10":"tag-jack-lyon","11":"tag-macros","12":"tag-microsoft-word","13":"h-entry","14":"hentry"},"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p3gfno-17m","_links":{"self":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts\/4300","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=4300"}],"version-history":[{"count":1,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts\/4300\/revisions"}],"predecessor-version":[{"id":6012,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts\/4300\/revisions\/6012"}],"wp:attachment":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/media?parent=4300"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/categories?post=4300"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/tags?post=4300"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nDim aStyle As Style
\nFor Each aStyle In ActiveDocument.Styles<\/p>\n
\nEnd Sub<\/p>\n
\nFor Each aStyle In ActiveDocument.Styles<\/p>\n
\nEnd Sub<\/p>\nHow to Add Macro to Word & to the QAT<\/h4>\n
\n
\n
\n