loWord= CREATEOBJECT('Word.Application') loWord.Documents.Add loWord.Documents(1).Range.InsertAfter('firstword') loWord.Documents(1).Words(1).Underline = .t. loWord.Documents(1).Range.InsertAfter(SPACE(1)+ 'secondword') loWord.Documents(1).Words(2).Underline = .f. loWord.Documents(1).Range.InsertAfter(SPACE(1)+ 'thirdword') loWord.Documents(1).Paragraphs.Add loWord.Documents(1).Range.InsertAfter('firstword@SecPara') loWord.Documents(1).Words(5).Underline = .t. && Paragraph itself is counted as word?! Do not know why loWord.Documents(1).Range.InsertAfter(SPACE(1)+ 'secondword') loWord.Documents(1).Words(6).Underline = .f. loWord.Documents(1).Range.InsertAfter(SPACE(1)+ 'thirdword') loWord.Documents(1).Paragraphs.Add loWord.Visible = .t.HTH
Make solutions, not programs!