Scriptbox - Find your Script, VBScript VBScripts VB-Script VB-Scripts Scripting

Loading

:: { Category } ::

0-9


	Search Options: Search a Word Document for All the Words in Double Brackets Content of Search a Word Document for All the Words in Double Brackets.vbs MD5 Hash: C1AE6D097895FE5F7CA7417F07164981
	Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Open("C:\Scripts\Test.doc") Set objSelection = objWord.Selection objSelection.Find.Forward = True objSelection.Find.MatchWildcards = True objSelection.Find.Text = "\[\[*\]\]" Do While True objSelection.Find.Execute If objSelection.Find.Found Then strWord = objSelection.Text strWord = Replace(strWord, "[[", "") strWord = Replace(strWord, "]]", "") Wscript.Echo strWord Else Exit Do End If Loop

© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at ::