=========================================================================
Date:         Fri, 19 Jul 2002 14:25:22 -0400
Reply-To:     Quentin McMullen <QuentinMcMullen@WESTAT.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Quentin McMullen <QuentinMcMullen@WESTAT.COM>
Subject:      Re: DDE writing to Word document footer
Comments: To: "Delaney, Kevin P." <khd8@cdc.gov>
Content-Type: text/plain; charset="iso-8859-1"

Thanks Kevin,

That does what I'm looking for.  Indeed, I received a private reply from
Kilo Volt, confirming that you cannot use a bookmark to write to a
header/footer, and then suggesting the same method:

> From: KV
> The following is from an old posting by Darrell Edgley:

>>  PUT '[ViewHeader]' ;
>>  PUT '[FormatFont .Points = "20", .Font = "Ariel"]' ;
>>  PUT '[CenterPara]' ;
>>  PUT '[Insert "This is a header"]' ;
>>  PUT '[GoToHeaderFooter]' ;
>>  PUT '[Insert "Footnote: xxxx"]' ;
>>  PUT '[CloseViewHeaderFooter]' ;
>
> Works fine ... Check out the entire posting at www.sas-l.com:
> Date:         Wed, 9 Apr 1997 12:32:51 +0100
> Reply-To:     Darrell Edgley <Darrell_Edgley@SANDWICH.PFIZER.COM>
> Sender:       "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU>
> From:         Darrell Edgley <Darrell_Edgley@SANDWICH.PFIZER.COM>
> Subject:      Re: SAS output conversion to WORD document ? (with DDE)

> -----Original Message-----
> From: Delaney, Kevin P. [mailto:khd8@cdc.gov]
> Sent: Friday, July 19, 2002 2:04 PM
> To: Quentin McMullen; 'sas-l@listserv.uga.edu'
> Subject: RE: DDE writing to Word document footer
>
>
> Quentin,
>
> Although I couldn't get DDE to write to the bookmark "Sometext" in the
> footnote either, my playing did uncover:
>
> filename wordsys  dde "winword|system";
> data null;
> file wordsys;
> put '[FileNewDefault]';
> put '[ViewFooter]';
> put '[Insert "spent many long hours contemplating the Camembert."]';
> put '[FileSaveAs .Name = "' "c:\&desk.playout.doc" '"]';
> *put '[Fileclose]';*if done;
> run;
>
> Which seems to do what you want??
>
>
> I would expect there is at least one KiloVolt of input on the subject
> lurking somewhere in the wings...
>
> Kevin Delaney
> KDelaney@cdc.gov
>
>
>
>  -----Original Message-----
> From:         Quentin McMullen [mailto:QuentinMcMullen@WESTAT.COM]
> Sent: Friday, July 19, 2002 11:09 AM
> Subject:      DDE writing to Word document footer
>
> Hi folks,
>
> Since rumor has it that PowerPoint is not willing to listen
> to DDE commands,
> I'm getting my feet wet trying to export some graphs to Word 97.
>
> Below code, cobbled together with help from archives,
> attempts to write some
> text to the footer of a word doc.  If I comment out the [ViewFooter]
> command, it works fine, and the second data step writes text
> to the main
> document.  But when I uncomment it, I still can't write to
> the footer.  When
> I look at the document in word, I can see the bookmark is
> there, but I can't
> seem to write to it.  I must be missing something simple...
>
> filename wordsys  dde "winword|system";
> filename wordbkmk dde "winword|c:\junk\playout.doc!sometext" notab
> lrecl=1024;
>
> data _null_;
>   file wordsys;
>   put '[FileNewDefault]';
>   put '[ViewFooter]';
>   put '[EditBookmark.Name="sometext",.Add]';
>   put '[FileSaveAs .Name = "' "c:\junk\playout.doc" '"]';
> run;
>
> data _null_;
>   file wordbkmk;
>   put 'spent many long hours contemplating the Camembert.';
> run;
>
> Kind Regards,
> --Quentin