TRY oWord = GetObject(,"Word.Application") CATCH oWord = CREATEOBJECT("Word.Application") ENDTRY oWord.Documents.Add() WITH oWord.ActiveDocument .Hyperlinks.Add(oWord.Selection.Range, "http://www.levelextreme.com/","", "", "Your Text To Display of Hyperlink") ENDWITH oWord.Visible = .t. ..... && Your code here oWord.DisplayAlerts = 0 oWord.Close(0) oWord.Quit() oWord = NULL RELEASE oWord