Links in Word per AppleScript in den Text des Links zu verwandeln

[SilentCry]

Hallo Freunde,
ich bräuchte in der Firma öfter diese Funktion:
Ein Autor hat in einem Wordfile einen Link platziert: Lieber Kunde, siehe hier:"Weitere Informationen"
Wir haben immer das Problem, dass die Links verschwinden wenn wir es in das AbgabePDF verwandeln. Also würden wir eben gerne stehen haben:
Lieber Kunde, siehe hier: http://www.mactech.com/vba-transition-guide/index-toc.html

Das kann in einem Dokument einige Male vorkommen. Wir haben eine Möglichkeit, die Links zu entfernen:

tell application "Microsoft Word"

     repeat with i from (count (get every field of active document)) to 1 by -1

          set oField to item i of (get every field of active document)

          unlink oField

     end repeat

end tell

Aber dann steht da: Lieber Kunde, siehe hier: Weitere Informationen
Kein Link UND keine URL, der Kunde kann damit also NICHTS anfangen.
Wie also ersetzen wir "Weitere Informationen" gegen die URL? Und zwar für jeden Link individuell, es kommen mehrere solche Links vor, die natürlich auf verschiedene Ziele zeigen.

Vielen Dank!

 

[SilentCry]

Gelöst.

tell application "Microsoft Word"
	activate
	set allTexts to {}
	set allLinks to every hyperlink object of active document
	
	repeat with theLink in allLinks
		set theText to hyperlink address of theLink
		set text to display of theLink to theText
		
	end repeat
	repeat with i from (count (get every field of active document)) to 1 by -1
		
		set oField to item i of (get every field of active document)
		unlink oField
	end repeat
end tell