{"id":12458,"date":"2022-09-30T20:10:53","date_gmt":"2022-09-30T14:40:53","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/"},"modified":"2022-09-30T20:10:53","modified_gmt":"2022-09-30T14:40:53","slug":"solved-find-all-text-formatted-with-given-color","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/","title":{"rendered":"[Solved] Find all text formatted with given color"},"content":{"rendered":"<p> [ad_1]<br \/>\n<\/p>\n<div id=\"answer-37562525\" class=\"answer js-answer accepted-answer js-accepted-answer\" data-answerid=\"37562525\" data-parentid=\"37540753\" data-score=\"2\" data-position-on-page=\"1\" data-highest-scored=\"1\" data-question-has-accepted-highest-score=\"1\" itemprop=\"acceptedAnswer\" itemscope itemtype=\"https:\/\/schema.org\/Answer\">\n<div class=\"post-layout\">\n<div class=\"votecell post-layout--left\"><\/div>\n<div class=\"answercell post-layout--right\">\n<div class=\"s-prose js-post-body\" itemprop=\"text\">\n<p>Thanks to Cindy&#8217;s nice tip (I could also have found relevant information in Loop through Word document, starting from beginning of file at start of each loop), and in case this could help someone some day:<\/p>\n<ol>\n<li>\n<p>define the format you are looking for thanks to Word&#8217;s Macro Recorder<\/p>\n<\/li>\n<li>\n<p>position yourself at the beginning of your document<\/p>\n<\/li>\n<li>\n<p>Use a <code>while<\/code> loop checking <code>wdFindStop<\/code> &#8212; It also demonstrate how to use Array of String in VBA&#8211;:<\/p>\n<\/li>\n<\/ol>\n<p>&#8230;<\/p>\n<pre><code>Sub Macro2()\n    Dim mArray() As String\n    Dim i As Long, n As Long\n    Dim doc As Word.Document\n    Dim isFound As Boolean\n    isFound = True\n    i = 1\n    'For i = 1 To 40\n    Do While (isFound)\n      ReDim Preserve mArray(i)\n      With Selection.Find\n        .ClearFormatting\n        .Font.Color = wdColorBlue\n        .Text = \"\"\n        .Replacement.Text = \"\"\n        .Forward = True\n        .Wrap = wdFindStop\n        .Format = True\n        isFound = .Execute\n      End With\n      mArray(i) = Selection.Text\n      i = i + 1\n    Loop\n    'Next\n    n = i - 2\n    MsgBox n &amp; \" occurrences found.\"\n\n    '\n    ' create a new document with the phrases found\n\n    Dim objWord  As Application\n    Dim objDoc As Document\n    Dim objSelection As Selection\n    Set objWord = CreateObject(\"Word.Application\")\n    Set objDoc = objWord.Documents.Add\n    objWord.Visible = True\n    Set objSelection = objWord.Selection\n    For i = 1 To n 'mArray's Size\n      objSelection.TypeText (mArray(i))\n      objSelection.TypeParagraph\n    Next\nEnd Sub\n<\/code><\/pre>\n<p>NB: I could also have greatly benefited from <a rel=\"nofollow noopener\" target=\"_blank\" href=\"https:\/\/msdn.microsoft.com\/en-us\/library\/office\/aa211953%28v=office.11%29.aspx\">https:\/\/msdn.microsoft.com\/en-us\/library\/office\/aa211953%28v=office.11%29.aspx<\/a> that explains how to find without changing the selection:<\/p>\n<pre><code> With ActiveDocument.Content.Find\n  .Text = \"blue\"\n  .Forward = True\n  .Execute\n  If .Found = True Then .Parent.Bold = True\n End With\n<\/code><\/pre>\n<p>And from here: Find text only of style &#8220;Heading 1&#8221; (Range.Find to match style)<\/p>\n<\/p><\/div>\n<div class=\"mt24\"><\/div>\n<\/div>\n<p>            <span class=\"d-none\" itemprop=\"commentCount\"><\/span> <\/p><\/div>\n<\/div>\n<p>[ad_2]<\/p>\n<p>solved Find all text formatted with given color <\/p>\n","protected":false},"excerpt":{"rendered":"<p>[ad_1] Thanks to Cindy&#8217;s nice tip (I could also have found relevant information in Loop through Word document, starting from beginning of file at start of each loop), and in case this could help someone some day: define the format you are looking for thanks to Word&#8217;s Macro Recorder position yourself at the beginning of &#8230; <a title=\"[Solved] Find all text formatted with given color\" class=\"read-more\" href=\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/\" aria-label=\"More on [Solved] Find all text formatted with given color\">Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[320],"tags":[3393,595,2035,401],"class_list":["post-12458","post","type-post","status-publish","format-standard","hentry","category-solved","tag-find-replace","tag-format","tag-ms-word","tag-vba"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v26.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>[Solved] Find all text formatted with given color - JassWeb<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] Find all text formatted with given color - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] Thanks to Cindy&#8217;s nice tip (I could also have found relevant information in Loop through Word document, starting from beginning of file at start of each loop), and in case this could help someone some day: define the format you are looking for thanks to Word&#8217;s Macro Recorder position yourself at the beginning of ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2022-09-30T14:40:53+00:00\" \/>\n<meta name=\"author\" content=\"Kirat\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Kirat\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] Find all text formatted with given color\",\"datePublished\":\"2022-09-30T14:40:53+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/\"},\"wordCount\":134,\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"keywords\":[\"find-replace\",\"format\",\"ms-word\",\"vba\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/\",\"url\":\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/\",\"name\":\"[Solved] Find all text formatted with given color - JassWeb\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#website\"},\"datePublished\":\"2022-09-30T14:40:53+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/jassweb.com\/solved\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] Find all text formatted with given color\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/jassweb.com\/solved\/#website\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"name\":\"JassWeb\",\"description\":\"Build High-quality Websites\",\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/jassweb.com\/solved\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\",\"name\":\"Jass Web\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"contentUrl\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"width\":693,\"height\":132,\"caption\":\"Jass Web\"},\"image\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\",\"name\":\"Kirat\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750\",\"contentUrl\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\/\/jassweb.com\"],\"url\":\"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] Find all text formatted with given color - JassWeb","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] Find all text formatted with given color - JassWeb","og_description":"[ad_1] Thanks to Cindy&#8217;s nice tip (I could also have found relevant information in Loop through Word document, starting from beginning of file at start of each loop), and in case this could help someone some day: define the format you are looking for thanks to Word&#8217;s Macro Recorder position yourself at the beginning of ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/","og_site_name":"JassWeb","article_published_time":"2022-09-30T14:40:53+00:00","author":"Kirat","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Kirat","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] Find all text formatted with given color","datePublished":"2022-09-30T14:40:53+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/"},"wordCount":134,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"keywords":["find-replace","format","ms-word","vba"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/","url":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/","name":"[Solved] Find all text formatted with given color - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"datePublished":"2022-09-30T14:40:53+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-find-all-text-formatted-with-given-color\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] Find all text formatted with given color"}]},{"@type":"WebSite","@id":"https:\/\/jassweb.com\/solved\/#website","url":"https:\/\/jassweb.com\/solved\/","name":"JassWeb","description":"Build High-quality Websites","publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/jassweb.com\/solved\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/jassweb.com\/solved\/#organization","name":"Jass Web","url":"https:\/\/jassweb.com\/solved\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/","url":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","contentUrl":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","width":693,"height":132,"caption":"Jass Web"},"image":{"@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31","name":"Kirat","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/","url":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750","caption":"Kirat"},"sameAs":["http:\/\/jassweb.com"],"url":"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/"}]}},"_links":{"self":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/12458","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/comments?post=12458"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/12458\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=12458"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=12458"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=12458"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}