objSelection.Find.Forward = True\nobjSelection.Find.Format = True\nobjSelection.Find.Font.Color = wdColorRed\n<\/PRE>\nWhat does all this mean? Well, to begin with, setting the Forward<\/B> property to True tells the script to search forward through the document; in other words, start searching at the beginning of the document and continue on through the end of the document. Setting the Format <\/B>property to True tells the script that we want to search for formatting in addition to (or, in this case, instead of) text. Finally, we specify which<\/I> formatting we\u2019re interested in: fonts that have a color equal to the constant wdColorRed (Font.Color<\/B>).<\/P>\n
At this point we\u2019re ready to start searching. To that end, the first thing we do is set up a Do While loop that continues to run as long as True is equal to True. (That sounds like an endless loop, but don\u2019t worry: we\u2019ll show you a way out in a minute.) Inside that loop we then use the following command to start the search process and ferret out the first instance of red text:<\/P>
objSelection.Find.Execute\n<\/PRE>\nSo how will we know if the Find object actually finds any red text? That\u2019s easy; in that case, the value of the Found<\/B> property will be True:<\/P>If objSelection.Find.Found Then\n<\/PRE>\nIf the Found property is<\/I> equal to True then the found text (that is, the red text) will automatically be selected; in turn, all we have to do to report what we found is to echo back the Text<\/B> property of our Selection object:<\/P>Wscript.Echo objSelection.Text\n<\/PRE>\nAnd then we simply loop around, call the Execute<\/B> method, and then search for the next instance of our target text. This process continues until the Found property is no longer True, which can mean only one thing: there\u2019s no more red text left to find. When that happens we simply call the Exit Do<\/B> statement and exit our not-so-endless loop:<\/P>Exit Do\n<\/PRE>\nAs you just saw, this script merely echoes back the found text. In his email, though, GH asked how he could go about extracting this text and adding it to a brand-new Word document. Here\u2019s a revised script that can do just that:<\/P>
Const wdColorRed = 255<\/p>\nSet objWord = CreateObject(“Word.Application”)\nobjWord.Visible = True<\/p>\n
Set objDoc = objWord.Documents.Open(“C:\\Scripts\\Test.doc”)\nSet objSelection = objWord.Selection<\/p>\n
Set objDoc2 = objWord.Documents.Add()\nSet objSelection2 = objWord.Selection<\/p>\n
objSelection.Find.Forward = True\nobjSelection.Find.Format = True\nobjSelection.Find.Font.Color = wdColorRed<\/p>\n
Do While True\n objSelection.Find.Execute\n If objSelection.Find.Found Then\n strText = strText & objSelection.Text & vbCrLf\n Else\n Exit Do\n End If\nLoop<\/p>\n
objSelection2.TypeText strText\n<\/PRE>\n
So what\u2019s the difference between this script and the first script we showed you? Well, for one thing, this script features two<\/I> Word documents: C:\\Scripts\\Test.doc (with an object reference of objDoc) and a new document created using the Add<\/B> method (with an object reference of objDoc2):<\/P>Set objDoc2 = objWord.Documents.Add()\n<\/PRE>\nIn addition, this time around we don\u2019t echo back the text as we find it; instead, we store all the found text in a variable named strText (tacking a carriage return-linefeed onto the end of each segment):<\/P>
strText = strText & objSelection.Text & vbCrLf\n<\/PRE>\nAnd then, last but surely not least, after we\u2019ve finished searching Test.doc we use the TypeText<\/B> method to add all the found text to our second document:<\/P>objSelection2.TypeText strText\n<\/PRE>\nAnd there you have it.<\/P>\n
As for the ECM, well, the Scripting Guy who writes this column is already learning way more about ECMs than he ever wanted to know (starting with the fact that ECM is apparently short for Electronic Control Module<\/I>). For example, Volkswagen Passats can\u2019t be hot-wired; you have to start them with the key fob because the fob sends a signal to the ECM that says, \u201cIt\u2019s OK; go ahead and start the car.\u201d Unfortunately, though, the ECM will sometimes malfunction and refuse to start the car even though you have<\/I> the key fob. (And yes, this unnecessary layer of security does<\/I> remind us of something. But we\u2019re not going to say what.) At other times the ECM can malfunction and apply a \u201cvirtual speed governor\u201d that limits the car to a top speed of 5 miles an hour. Needless to say, that\u2019s bad.<\/P>\n
Well, unless you live in Seattle. With the traffic we have around here, you rarely reach a top speed of 5 miles an hour anyway. <\/P>\n
At any rate, we\u2019ll keep you posted about this \u2026 interesting \u2026 new development. And remember, if you do<\/I> want to send us $2,000 go right ahead. Just make sure you address the envelope to The Scripting Guy Who Writes That Column and not<\/I> to The Scripting Editor. Thanks!<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I have a huge document that features occasional lines printed in red. How can I extract just the lines that are printed in red?— GH Hey, GH. To begin with, the Scripting Guy who writes this column would like to say just one thing: never mind. In yesterday\u2019s column the Scripting Guy […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[84,49,3,5],"class_list":["post-64573","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-microsoft-word","tag-office","tag-scripting-guy","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! I have a huge document that features occasional lines printed in red. How can I extract just the lines that are printed in red?— GH Hey, GH. To begin with, the Scripting Guy who writes this column would like to say just one thing: never mind. In yesterday\u2019s column the Scripting Guy […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64573","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=64573"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64573\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=64573"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=64573"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=64573"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n