S
Senthil Murugan
Sir,
I had converted my SAS Program output (*.lst) into MS
WORD format. The following is the code in sas i have used
to convert. but the word shows the "unable to debug the
Error". so how to recover this Error?
-----------------------------------------------------------
Options noxwait xsync;
FILENAME msw DDE 'winword|SYSTEM' LRECL = 1024 ;
DATA _null_ ;
length cmd $200;
file msw;
*---create a new Word document ---*;
PUT '[ToolsMacro.Name
= "create_a_new_file", .Run]' ;
*---build the insert file command string --
-*;
cmd='[InsertFile.Name:= "'||"©from"||'"]';
*---issue the insert file command ---*;
PUT cmd;
*---remove the first page break character -
--*;
PUT '[ToolsMacro.Name
= "del_1st_page_break", .Run]' ;
*---check the embed font option ---*;
PUT '[ToolsMacro.Name
= "embed_font", .Run]' ;
*---select all text ,choose the SAS
monospaced 8pt font ---*;
PUT '[ToolsMacro.Name
= "change_to_sasfont", .Run]' ;
*---change page layout to landscape ---*;
PUT '[ToolsMacro.Name
= "change_to_landscape", .Run]' ;
*---change to standard margins ---*;
PUT '[ToolsMacro.Name
= "landscape_margins", .Run]' ;
*---build the save as command string ---*;
cmd='[FileSaveAs.Name:= "'||"©to"||'"]';
*---issue the save as command ---*;
PUT cmd;*---close the document ---*;
PUT '[DocClose 2]';
RUN ;
---------------------------------------------------------
I had converted my SAS Program output (*.lst) into MS
WORD format. The following is the code in sas i have used
to convert. but the word shows the "unable to debug the
Error". so how to recover this Error?
-----------------------------------------------------------
Options noxwait xsync;
FILENAME msw DDE 'winword|SYSTEM' LRECL = 1024 ;
DATA _null_ ;
length cmd $200;
file msw;
*---create a new Word document ---*;
PUT '[ToolsMacro.Name
= "create_a_new_file", .Run]' ;
*---build the insert file command string --
-*;
cmd='[InsertFile.Name:= "'||"©from"||'"]';
*---issue the insert file command ---*;
PUT cmd;
*---remove the first page break character -
--*;
PUT '[ToolsMacro.Name
= "del_1st_page_break", .Run]' ;
*---check the embed font option ---*;
PUT '[ToolsMacro.Name
= "embed_font", .Run]' ;
*---select all text ,choose the SAS
monospaced 8pt font ---*;
PUT '[ToolsMacro.Name
= "change_to_sasfont", .Run]' ;
*---change page layout to landscape ---*;
PUT '[ToolsMacro.Name
= "change_to_landscape", .Run]' ;
*---change to standard margins ---*;
PUT '[ToolsMacro.Name
= "landscape_margins", .Run]' ;
*---build the save as command string ---*;
cmd='[FileSaveAs.Name:= "'||"©to"||'"]';
*---issue the save as command ---*;
PUT cmd;*---close the document ---*;
PUT '[DocClose 2]';
RUN ;
---------------------------------------------------------