Search the Community

Hi all, I've been trying to get Mass Spammer's fine example of _WordDocAddLink to hyperlink all occurances of [2011] EWHC 2244 (COP) in the target document - this works fine when I know there are 2 occurances but is there some object variable I need to use in order to do this? I've looked at word macros and found : Selection.Find.Execute Replace:=wdReplaceAll but Replace:=wdReplaceAll doesn't work or isn't recognised as a replacement for Execute in my script below - is it something to do with Range? There must be a way to specify all occurances. #include <Word.au3> #AutoIt3Wrapper_UseX64 = n $cite = "[2011] EWHC 2244 (COP)" ;"C:\Users\Joe\Documents\AutoIt_code\getter\processing" ;"C:\Documents and Settings\joe.ury\My Documents\AutoIt_code\getter\processing\test.doc" $oWordApp = _WordAttach ("C:\Users\Joe\Documents\AutoIt_code\getter\processing\test.rtf") $oDoc = _WordDocGetCollection ($oWordApp, 0) ;MsgBox(0, "Document Count", $oDoc) $oSelect = $oDoc.Application.Selection $oFind = $oSelect.Find For $x = 1 to 2 With $oFind .Text = $cite .Forward = True .Wrap = 1 .Execute EndWith _WordDocAddLink ($oDoc, $oSelect.Range, "[url="http://www..bongo.org/ew/cases/EWHC/COP/2011/2244.html"]http://www.bongo.org/ew/cases/EWHC/COP/2011/2244.html[/url]", "", "BAILII Link" & @CRLF, $cite) ;EndIf $oLinks = _WordDocLinkGetCollection ($oDoc) ;If _WordDocFindReplace($oDoc, $cite) = 1 Then ExitLoop Next ConsoleWrite("Link Count " & @extended & @LF)