oWord = createobject("word.basic") >with oWord >* Word.basic commands compatible to both versions > >oWord = createobject("Word.application") >with oWord >*VBA specific commands > with .wordbasic && Use its wordbasic object > * Word.basic commands compatible to both versionsNow for your original question, here is a sample that would find bold and convert to nonbold, red, 20 points, wingdings :
lcInfile = getfile("doc") >IF !empty(lcInfile) > > PUBLIC oWordDocument > *** set the LOCALEID to English > nlLocaleId=sys(3004) && Save local id > =sys(3006,1033) && We will be sending instructions in English > > oWordDocument=getobject("","word.basic") && Create word object > WITH oWordDocument > .appshow > .fileopen(lcInfile) && Open file > .StartOfDocument && Go to start > .EditFindClearFormatting && Start a find&replace > .EditFindFont(,,,,,,,,,,,,,,,,1) && Find bold >* Replace with 20 points, underline, red, wingdings, remove bold > .EditReplaceFont(20,1,6,,,,,,,,,,,,,"Wingdings",0) && Set replacement font > .EditReplace("","",0,,,,,,0,1,1,0) && Do replacement >* .editselectall > ENDWITH > Release oWordDocument > > **** Set the LocaleId to the previous value > =sys(3006,val(nlLocaleId)) >ENDIFThis word.basic code is compatible with word95&97.