使用SAS DDE将Word文件保存为DOCX

Question

filename sas2word dde 'winword|system';

 %macro setupWd(outfile);
   options noxsync noxwait xmin;

   /* Open Blank Word Document */
   data _null_; 
     length fid rc start stop time 8;
     fid=fopen('sas2word','s');
     if (fid le 0) then do;
        rc=system('start winword');
        start=datetime();
        stop=start+1;
     do while (fid le 0);
        fid=fopen('sas2word','s');
        time=datetime();
        if (time ge stop) then fid=1;
        end;
     end;
     rc=fclose(fid);
   run;

   /* Save to given location */
   data _null_; 
     file sas2word;
     put '[FileSaveAs.Name="' "&outfile" '",.Format=0]';
   run;
%mend setupWd;

%setupWd(outfile = M:\SAS\Output\MacroTest.doc)

%setupWd(outfile = M:\SAS\Output\MacroTest.docx)

Answer 1

不使用格式选项重写保存位：

data _null_; 
   file sas2word;
   put '[FileSaveAs.Name="' "&outfile" '"]';
run;

Alos中，格式的选项（如果有人想知道的话）是：

Format = 0: .doc
Format = 1: .dot
Format = 2: .txt

获取.docx的唯一方法是将其放在文件路径名中，而不指定格式