{"id":67213,"date":"2006-05-31T09:24:00","date_gmt":"2006-05-31T09:24:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2006\/05\/31\/how-can-i-search-a-word-document-for-all-the-words-in-double-brackets\/"},"modified":"2006-05-31T09:24:00","modified_gmt":"2006-05-31T09:24:00","slug":"how-can-i-search-a-word-document-for-all-the-words-in-double-brackets","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-search-a-word-document-for-all-the-words-in-double-brackets\/","title":{"rendered":"How Can I Search a Word Document for All the Words in Double Brackets?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! How can I search a Word document for all the words in double brackets? For example, I need to find words like this: [[failed]]. I then need to save the words I find to a text file.

— PP<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, PP. You know, one thing that seems to be true of the Scripting Guys is a willingness to do something even when they have no idea what it is they\u2019re doing. Put new molding in the family room? Come on, you just saw some wood and nail it to the wall, right? New tile in the kitchen? Piece of cake. Search a Word document for words in square brackets? Hey, how hard could something like that<\/I> be?<\/P>\n

In our defense, in most cases we come up with a finished product that looks reasonably good. New molding? Looks nice; just don\u2019t look in the garbage can and count the number of pieces that were cut in the wrong place. Kitchen floor? That looks great \u2026 as long as you don\u2019t take a look under the refrigerator, mind you. A script that searches a document for words in square brackets? As long as you\u2019re willing to overlook all the false starts we ran into, well, then it wasn\u2019t so bad after all:<\/P>

Set objWord = CreateObject(“Word.Application”)\nobjWord.Visible = True<\/p>\n
Set objDoc = objWord.Documents.Open(“C:\\Scripts\\Test.doc”)\nSet objSelection = objWord.Selection<\/p>\n
objSelection.Find.Forward = True\nobjSelection.Find.MatchWildcards = True\nobjSelection.Find.Text = “\\[\\[*\\]\\]”<\/p>\n
Do While True\n    objSelection.Find.Execute\n    If objSelection.Find.Found Then\n        strWord = objSelection.Text\n        strWord = Replace(strWord, “[[“, “”)\n        strWord = Replace(strWord, “]]”, “”)\n        Wscript.Echo strWord\n    Else\n        Exit Do\n    End If\nLoop\n<\/PRE>\n
Admittedly, parts of this script are a little odd-looking, most notably the line where we specify our search text. With that in mind, let\u2019s walk you through the code and see if we can explain how it works.<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. That\u2019s a good point: we do<\/I> walk through the code in each and every Hey, Scripting Guy!<\/I> column, don\u2019t we? We just thought that saying<\/I> we were going to do that would somehow make today\u2019s column sound special.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
The script starts out in fairly-straightforward fashion: we simply create an instance of the Word.Application<\/B> object and then set the Visible<\/B> property to True. That gives us a running instance of Word that we can see on screen. We use the Open<\/B> method to open the file C:\\Scripts\\Test.doc, then create an instance of the Word Selection<\/B> object.<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. You\u2019re lost already<\/I>? Don\u2019t worry about it: if you\u2019ve never written a script that interacts with Microsoft Word we wouldn\u2019t expect that first paragraph to make much sense. For more information on scripting Microsoft Word take a peek at our Office Space Archive<\/B><\/A>. And, while you\u2019re there, you might want to check out this article<\/B><\/A>, which explains how to find and replace text in a Word document.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
As it turns out, the Selection object (which, when created without any additional parameters, simply positions the cursor at the very beginning of the document) has a child object named Find<\/B>. As you might expect, the Find object is used for finding text in a Word document. Before we can use the Find object, however, we need to configure three important properties, something we do here:<\/P>
objSelection.Find.Forward = True\nobjSelection.Find.MatchWildcards = True\nobjSelection.Find.Text = “\\[\\[*\\]\\]”\n<\/PRE>\n
The first two properties – Forward <\/B>and MatchWildcards<\/B> – are relatively easy to figure out. The Forward<\/B> property, when True, tells the script to search the document from the current cursor position to the end of the document. We want to do that because the cursor is currently positioned at the start of the document. If the cursor was at the end of the document we\u2019d probably set the Forward property to False, which would cause us to search the document backwards, from the current cursor position to the beginning of the document. MatchWildcards? That\u2019s even easier: MacthWildcards simply tells the script that we\u2019re going to use a wildcard character in our search.<\/P>\n
Why<\/I> are we going to use a wildcard character in our search? Well, we\u2019re looking for anything that begins with a pair of square brackets ([[<\/B>) and then ends with a pair of square brackets (]]<\/B>). To do that we can use the asterisk to represent any character or set of characters. Looking for something that starts with two brackets, has some character or set of characters in the middle, and then ends with two brackets? Then you want to search for something like this:<\/P>
[[*]]\n<\/PRE>\n
Of course, what you want to do and what Word will let you do aren\u2019t always the same thing. For example, when it comes to doing a wildcard search, the bracket symbols are reserved characters. If you try using [[*]] in a wildcard search you\u2019ll get back an \u201cinvalid range\u201d error. <\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. This is true even if you aren\u2019t using a script. In Word click Edit<\/B> and then click Find<\/B>. When the Find and Replace dialog box appears, type [[*]]<\/B> in the Find what<\/B> box, then click More<\/B> and select Use wildcards<\/B>. Now click Find Next<\/B> and see what happens.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
Because the brackets are reserved characters, we need to \u201cescape\u201d them by preceding each character with a \\. That\u2019s why the value of the Text<\/B> property (the text we want to search for) looks so odd:<\/P>
objSelection.Find.Text = “\\[\\[*\\]\\]”\n<\/PRE>\n
Believe it or not, that really is<\/I> the text we\u2019re searching for; we simply had to precede each of the four bracket symbols with a \\. Strange but true.<\/P>\n
Now we\u2019re ready to start searching, a task we perform inside a Do While loop:<\/P>
Do While True\n    objSelection.Find.Execute\n    If objSelection.Find.Found Then\n        strWord = objSelection.Text\n        strWord = Replace(strWord, “[[“, “”)\n        strWord = Replace(strWord, “]]”, “”)\n        Wscript.Echo strWord\n    Else\n        Exit Do\n    End If\nLoop\n<\/PRE>\n
You might have noticed the syntax for the Do While loop: Do While True. In essence that means, \u201cContinue looping as long as True equals True.\u201d That sounds like a problem waiting to happen: with the possible exception of politics, doesn\u2019t True always<\/I> equal True? And, if so, doesn\u2019t that mean this script will run forever without stopping? Yes, it does. <\/P>\n
Well, unless we add a line of code that we\u2019ll discuss in a moment. <\/P>\n
Inside the loop we start out by calling the Execute<\/B> method; that causes the script to search our document for the first instance of the target text. The script begins searching and stops the first time it finds an instance of the text. On top of that, if the search is successful then the value of the Found <\/B>property will be True. That\u2019s what we\u2019re checking here:<\/P>
If objSelection.Find.Found Then\n<\/PRE>\n
But what if we\u2019ve reached the end of the document and no instance of the target text can be found? In that case, the Found property will be False, and we use the Exit Do<\/B> command to exit the Do While loop. That\u2019s how we manage to get out of our loop: True is still equal to True, but the Exit Do command will automatically take you out of the loop. Period.<\/P>\n
On the other hand, suppose we do<\/I> find the target text? In that case, Word will automatically move the selection to the text that was just found. Because of that, we can get the value of the new selection just by checking the value of the Selection object\u2019s Text<\/B> property:<\/P>
strWord = objSelection.Text\n<\/PRE>\n
What does that mean? Let\u2019s assume that Word has found this item:<\/P>
[[failed]]\n<\/PRE>\n
In that case, the word [[failed]]<\/B> will (for our purposes) be highlighted, and the value of the Text property will be whatever happens to be highlighted. In other words, the Text property will equal this:<\/P>
[[failed]]\n<\/PRE>\n
Of course, ideally we\u2019d like to get rid of the surrounding brackets and pick out just the word failed<\/I>. Fortunately that\u2019s easy to do. After storing the value of the Text property in the variable strWord we can use the VBScript Replace<\/B> function to replace the four bracket symbols ([[ and ]]) with, well, nothing. That\u2019s what we do with these two lines of code:<\/P>
strWord = Replace(strWord, “[[“, “”)\nstrWord = Replace(strWord, “]]”, “”)\n<\/PRE>\n
To keep the script simple, we then do nothing more than echo back the value of strWord. Admittedly, PP, you wanted to write any words that were found to a text file. For more information on doing that, check out the Microsoft Windows 2000 Scripting Guide<\/B><\/A>. (And, of course, the Hey, Scripting Guy! archive<\/B><\/A> has plenty of sample scripts that show you how to write data to a text file.)<\/P>\n
As we noted, the script will find the first instance of the target text and then stop. But what if there are more words enclosed in square brackets? We\u2019ve already thought of that: that\u2019s why we\u2019re using the Do While loop. After finding the first instance the script loops around, calls the Execute method and starts the whole process all over again. That continues until the script reaches the end of the document. At that point the Found property will be False, and we exit the loop.<\/P>\n
As for the Scripting Guys, with another challenge successfully tackled it\u2019s time to move on to the next project: putting a basketball court in the backyard. Have we ever actually poured<\/I> concrete before? Do you even have to ask?<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I search a Word document for all the words in double brackets? For example, I need to find words like this: [[failed]]. I then need to save the words I find to a text file.— PP Hey, PP. You know, one thing that seems to be true of the Scripting […]<\/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-67213","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! How can I search a Word document for all the words in double brackets? For example, I need to find words like this: [[failed]]. I then need to save the words I find to a text file.— PP Hey, PP. You know, one thing that seems to be true of the Scripting […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67213","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=67213"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67213\/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=67213"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=67213"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=67213"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}