请问怎么样能批量生成word文档

data tm;
input ID $ name $ @@;
cards;
ZP0001 张一
ZP0002 王二
ZP0003 李三
ZP0004 赵四
;
data tm1;
set tm;
length filename $ 10;
filename=strip(catt(ID,name));
run;
proc sql noprint;
select filename into :filename from tm1;
quit;


ods rtf file="C:\Documents and Settings\Administrator\桌面\&filename..rtf";
ods rtf close;
ods listing;