Thank you very very much!
Tai Fei Pao
>>oWord = CREATEOBJECT("Word.Application")
>>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
>