Search and replace links in MS Word

Working with Word Links.ahk

;*******************************************************
; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses.  They're structured in a way to make learning AHK EASY
; Right now you can  get a coupon code here: https://the-Automator.com/Learn
;*******************************************************
OldString:="src=old"
NewString:="src=new"
;*******************************************************
;~ doc.ActiveDocument.Hyperlinks.Add(oWord.Selection.Range, Address,"","",TextToDisplay) ;what I started from
doc:=ComObjActive("Word.Application") ;Connect to open Word file
loop, % doc.ActiveDocument.Hyperlinks.count {
	oldLink:=doc.ActiveDocument.Hyperlinks[a_index].Address ; the original address
	doc.ActiveDocument.Hyperlinks[a_index].Address :=StrReplace(oldLink,OldString,NewString)
}
MsgBox % "performed " doc.ActiveDocument.Hyperlinks.count " replacements"