Hi all, Do anyone know how to recover the function of "ODS RTF"? I just wanted to compile several RTF files and performed DDE function. However, the program of "ODS RTF" function is no longer work (I need RTF files with the header, the footer, and some RTF texts, like figure below) after performing DDE function unsuccessfully!!!! Here are my codes: " /*CODE for compiling RTF files*/ %MACRO try_comrtf(path); filename dirlist pipe "dir ""&path."" /b "; data dirlist1 ; infile dirlist length=reclen ; input filename $varying1024. reclen ; if scan(filename,2,'.') in ('doc' 'rtf'); path="&path."; filename=strip(path)||'\'||strip(filename); run; proc sql noprint; select count(*) into:n from dirlist1; select filename into:file1-:file%cmpres(&n) from dirlist1; quit; %put &n.; %let rc=%sysfunc(system(start winword)); data _null_; x=sleep(5); run; filename word DDE 'Winword|System'; data _null_; file word; put '[FileOpen .Name = "' "&file1" '"]'; %do i=2 %to &n; put '[EndOfDocument]'; put '[InsertBreak .Type = 2]'; put '[InsertFile .Name ="' "&&file&i." '" ]'; %end; put '[FileSaveAs .Name="master", .format=6]'; put '[FileSave]'; put '[FileCloseAll]'; put '[FileExit]'; run; %mend; %try_comrtf(path= D:\XXX_WORK\SAS_Practice\Try macro\Out); /*CODE for RTF*/ options nonumber; ODS RTF FILE ="D:\XXX_WORK\SAS_Practice\Try_Output\doc1.rtf" style=journal; ods escapechar='@'; title1 height=12pt font="Times New Roman" j=left "CRF version: " j=center "Personal Try" j=right "Protocol version: No.00000"; title2 height=12pt font="Times New Roman" bold j=center "Table 1"; title3 height=12pt font="Times New Roman" j=left "Summary of Age" j=right "@{thispage} of @{lastpage}"; footnote1 height=10pt font="Times New Roman" j=right "Page: @{lastpage}"; PROC REPORT data = CTI_PORT_A_ALL NOWD style(report)=[background=white just=left font=(Times, 12pt) color=black] style(header)=[background=white just=left font=(Times, 12pt) color=black] style(column)=[background=white just=left font=(Times, 12pt) color=black] style(lines)=[background=white just=left font=(Times, 12pt) color=black]; column order varnam class output ; define order/ order noprint; compute after/style=[just=l]; LINE "SD=standard deviation; CI=confidence interval"; ENDCOMP; RUN; ODS RTF CLOSE; " Could anyone help me to solve the big problem!!?? Thank you so much!!
... View more