Sub InsertDictionaryPath ()
ActiveDocument.Hyperlinks.Add Kotwica: =Selection.Range, Adres: = _
"http://dictionary.reference.com/"
Końcówka Okręt podwodny
Okręt podwodny InsertThesaurusPath ()
ActiveDocument.Hyperlinks.Add Kotwica: =Selection.Range, Adres: = _
"http://thesaurus.com/"
Końcówka Okręt podwodny
|