1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
Sub InsertDictionaryPath () ActiveDocument.Hyperlinks.Add Anker: =Selection.Range, Adres: = _ „http://dictionary.reference.com/“ Sub van het eind Sub InsertThesaurusPath () ActiveDocument.Hyperlinks.Add Anker: =Selection.Range, Adres: = _ „http://thesaurus.com/“ Sub van het eind