>oWP = CreateObject("WordPerfect.PerfectScript") >With oWP > .AppMaximize > .FileNew() > fnstr="" > for z=1 to fcount() > fnstr=fnstr+field(z) > if z<fcount() > fnstr=fnstr+(";") > endif > next > .MergeCode(78,fnstr) && Field Names > for z=1 to fcount() > fmac=field(z) > fval=transform(&fmac) > .type(fval) > if z<fcount() > .MergeCode(10) && EndField > else > .MergeCode(13) && EndRecord > endif > next > .FileSave(addbs(datapath)+"plus4a.dat",4,1) > .CloseNoSave(0) > .MergeRun(2,addbs(datapath)+"plus4a.wpd",2,addbs(datapath)+"plus4a.dat",1) > .PosDocTop() > wc=messagebox("Choose OK when done with WordPerfect") > .Quit >endwith >oWP="" >release oWP