Sub InsertDictionaryPath ()
ActiveDocument.Hyperlinks.Add Anker: =Selection.Range, Adresse: = _
„http://dictionary.reference.com/“
Enden-Unterseeboot
VorInsertThesaurusPath ()
ActiveDocument.Hyperlinks.Add Anker: =Selection.Range, Adresse: = _
„http://thesaurus.com/“
Enden-Unterseeboot
|