如何将ODS输出结果追加到一个已经存在的rtf文件中

shiyiming · 发表于 2004-11-3 02:52:36

通常再次利用ODS程序进行结果输出时需先关闭前一次ODS输出窗口，且需指定一个新的rtf文件名。哪位高手能指点一下
（1）如何省去每次都要先关闭ODS输出窗口的麻烦；
（2）能否将ODS输出结果追加到一个已经存在的rtf文件中，这样就可省去将多个rtf文件内容合并到一个WORD文件中合并的麻烦。在此先行致谢。

shiyiming · 发表于 2004-11-4 01:19:51

似乎只有ODS HTML有这个功能

shiyiming · 发表于 2004-11-7 21:48:05

多谢smartie。希望其他学友也能发表一些看法

shiyiming · 发表于 2004-11-7 22:35:50

我也曾就此问题研究了很久，似乎目前还没有可行的办法。

建议走迂回路线，在程序的顺序和编排上下点功夫，让所有的程序在一次ODS设置中运行。

我目前就是采用这样的做法。希望对你能有所帮助。

shiyiming · 发表于 2004-11-8 20:34:55

谢谢。看来，需要一些时日，相信会有好的解决方案

shiyiming · 发表于 2004-11-9 21:51:21

<a class="postlink" href="http://www2.sas.com/proceedings/sugi28/143-28.pdf">http://www2.sas.com/proceedings/sugi28/143-28.pdf</a>

shiyiming · 发表于 2005-2-2 15:00:14

用dde吧，能解决你的问题

shiyiming · 发表于 2005-4-5 10:48:13

最好高手大侠们能给举个例子，我常遇到想把两个表格合成一个的情况，不知能否在程序中实现？
拜托拜托拜托！
版主帮帮忙啊！

另外
好像关闭输出结果窗口的命令是
ods noresults；

shiyiming · 发表于 2005-4-11 08:37:17

[code:1a502]* make sample reports ;

ods rtf file='c:\sample1.rtf' ;

proc means data=sashelp.class ; run ;

ods rtf close ;

ods rtf file='c:\sample2.rtf' ;

proc print data=sashelp.class ; run ;

ods rtf close ;

* Make a sample graph ;

filename out 'c:\test.png' ;

goptions device=png gsfname=out ;

proc gchart data=sashelp.class ;

  hbar age ;

run ;

filename out ;

* Microsoft Word must already be running ;

filename word dde 'MSWORD|system' ;

* send DDE commands to MS WORD to combine files and create a new one ;

data _null_ ;

  file word ;

  put '[FileNew .Template = "normal.dot", .NewTemplate = 0]' ;

  put '[toggleportrait]' ;

  put '[ViewZoom .TwoPages]' ;

  put '[ViewFooter]' ;

  put '[FormatFont .Points=10, .Font="Arial", .Bold=1]' ;

  put '[FormatParagraph .Alignment=1]' ;

  put '[Insert "页脚"]' ;

  put '[ViewFooter]' ;

  put '[ViewHeader]' ;

  put '[Insert "页眉"]' ;

  put '[ViewHeader]' ;

  put '[InsertPicture .name="C:\test.png"]' ;

  put '[WordLeft]' ;

  put '[SelectCurWord]' ;

  put '[FormatPicture .scalex=150, .scaley=150]' ;

  put '[WordRight]' ;

  put '[insertpagebreak]' ;

  put '[InsertFile .name="C:\sample1.rtf"]' ;

  put '[InsertFile .name="C:\sample2.rtf"]' ;

  put '[FileSaveAs .name="c:\test.doc"]' ;

  put '[FileClose]' ;

run ;[/code:1a502]

shiyiming · 发表于 2005-7-10 22:01:21

妙极! 可大大节省文档合并时间!

		自动登录	找回密码
密码			立即注册

如何将ODS输出结果追加到一个已经存在的rtf文件中