Thank you Mr. Pikman.

That´s what I needed.

c.x.

>
>It will be something like this:
>

>oWord=CREATEOBJECT('Word.Application')
>oWord.Documents.Add
>oWord.Visible=.t.
>oWord.documents(1).Content.InsertAfter('Some Text')
>oWord.documents(1).paragraphs(1).range.Font.name='Courier New'
>oWord.documents(1).paragraphs(1).range.Font.bold=.t.
>