#DEFINE wdToggle 9999998 LOCAL loWord, loSelection, loDocument loWord = CREATEOBJECT("Word.Application") loWord.Visible = .T. loDocument = loWord.Documents.Add() loSelection = loWord.Selection loSelection.Font.Name= "lucida console" loSelection.Font.Size= "9" =STRTOFILE(CHRTRAN(FILETOSTR("M.txt"),CHR(26),''),"M.txt")') =STRTOFILE(CHRTRAN(FILETOSTR("M.txt"),"PAGE","^M PAGE"),"M.txt")') && doesn't work loSelection.TypeText(FILETOSTR("M.txt") )