Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/jpa/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms word 如何将SAS中的值添加到文本框中的WORD书签?_Ms Word_Sas_Textbox_Dde - Fatal编程技术网

Ms word 如何将SAS中的值添加到文本框中的WORD书签?

Ms word 如何将SAS中的值添加到文本框中的WORD书签?,ms-word,sas,textbox,dde,Ms Word,Sas,Textbox,Dde,我试图让SAS在Word中插入一个值(通过DDE)。一切正常除非书签位于文本框中,否则它无法找到书签 我没有不使用文本框的选项,我正在填充其他人创建的模板 %macro quick_stats(ins_id); ** Open Word; options noxsync noxwait xmin; filename outdata dde 'winword|system' notab; %macro open_word; data _null_;

我试图让SAS在Word中插入一个值(通过DDE)。一切正常除非书签位于文本框中,否则它无法找到书签

我没有不使用文本框的选项,我正在填充其他人创建的模板

%macro quick_stats(ins_id);
    ** Open Word;
    options noxsync noxwait xmin;
    filename outdata dde 'winword|system' notab;

    %macro open_word;
        data _null_;
              length fid rc start stop time 8;
              fid=fopen('outdata','s');
              if (fid le 0) then do;
                    rc=system('start winword');
                    start=datetime();
                    stop=start+10;
                    do while (fid le 0);
                      fid=fopen('outdata','s');
                      time=datetime();
                      if (time ge stop) then fid=1;
                      end;
                    end;
              rc=fclose(fid);
        run;
    %mend open_word;
    %open_word;

    **Open document;
    %macro opendoc;
        data _null_;
              cmd='[FileOpen.Name =' || '"' || "&out_directory.\&ins_id..docx" || '"' || ']';
              file outdata;
              put cmd;
        run;
    %mend;
    %opendoc;

    data _null_;
        set temp_sub;
        file outdata;

        put %unquote(%bquote('[EditGoto.Destination = "MyBookmark"]'));
        ** Insert value;
        cmd = '[Insert "' || MyValue || '"]';
        put cmd;

        file outdata;
        put '[FileSave]';
        put '[FileClose]';
        put '[FileExit]';
    run;
%mend quick_stats;

涉及到哪个版本的单词?在旧版本中,文本框内容不“可见”。该问题已在较新版本中得到纠正…@Cindymister我正在使用microsoft office 365 proplus(Word v1908,build 11929.20562)