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
>