MSWord document via template

Hi All, I have a requirement from client, saying:

=========================================================

"DCR within TeamSite should have the ability to export content to a Word doc. This is necessary for the team to be able to share the Content that is created directly into TeamSite with various details, which require the content in document form instead of viewing through a Web browser. The user, who will most likely be non-technical, can read the document and understand exactly what they are reading. The documents created from the export will be shared with multiple non-technical users.

The content that would be exported should be MS Word document format and not a HTML format. The documents should just have standard characters (letters, numbers, etc.) and no HTML tags."

=========================================================

Though I got RTF::Writer to create Word Document, but I really wonder if I can pass DCR values in module itself?

Any other option is highly appreciated.

Ace
-------------------------------------
TS 6.1, Solaris 9

Find more posts tagged with

Comments

nipper

My gut feeling is that RTF::writer in a PT is the best way to go.

There are some XSLT solutions that will create word from XML, so that is another choice, you may try google, there are a lot of discussions on XML-> DOC out there.

HTH

Andy

acezone

Andy,

Thanks for Reply

How should i fetch value from DCR to display data in Word document using RTF::Writer.

Any suggestions..?

Ace

nipper

Andy,

Thanks for Reply

How should i fetch value from DCR to display data in Word document using RTF::Writer.

Any suggestions..?

Ace

Write a Perl based TPL. It is pretty easy.

Use TeamSite: Smiley Very Happy

CRParser to get the individual fields and insert the data into a perl variable with RTF::writer, finally output with iwpt_output or ostream or however you want to.

Here is one recent thread that talks about Perl templates http://devnet.interwoven.com/forums_vb/showthread.php?t=22282&forumid=13

acezone

Hi Andy,

Below is what you suggested me to do to write a perl based tpl as attached. I am unable to fit RTF::Writer module to extract the value in Doc file. Could you please tell me as how to implement RTF::Writer and where to use it to get the data displayed?

Thanks in Advance...

Ace

Adam Stoller

Hi Andy,

Below is what you suggested me to do to write a perl based tpl as attached. I am unable to fit RTF::Writer module to extract the value in Doc file. Could you please tell me as how to implement RTF::Writer and where to use it to get the data displayed?

Thanks in Advance...

Ace

First, I recommend getting rid of the iw_pt tag or at least making it an empty tag (as shown below) to avoid needing all that CDATA stuff:

<?xml version="1.0" encoding="ISO-8859-1"?>
<iw_pt/>
<iw_perl>
    ...
</iw_perl>

 All cats:
     current cat:

Second, you're opening a non-named-file for reading (huh?) and not verifying that you actually succeeded in opening it before you try to parse the contents (somewhat inefficiently)

           open STAT_REPO, "";
           my $stat_repo = TeamSite:CRparser->new()->parse(join('',(<STAT_REPO>)));
           close STAT_REPO;

I'd suggest something like:

           if (open(STAT_REPO, "<:utf8", [color=purple]$filename)){
               my $xml = do {local $/; <STAT_REPO>};
               close(STAT_REPO);[/color]
               my $stat_repo = TeamSite:CRparser->new()->parse($xml);
               ...
           }
           ...

Once you've got that cleared up - then I think you need to spend some time along with some trial-and-error command line scripts, reading the perldoc for RTF::Writer so that you can understand how to use it - it doesn't magically translate XML (the DCR) into RTF - you need to do some work to tell it how to format things (in RTF instead of HTML) and use either iwpt_dcr_value('dcr....') [within iw_perl] or <iw_value name="..."/> [outside of iw_perl] to plug in the data from the DCR.

acezone

First, I recommend getting rid of the iw_pt tag or at least making it an empty tag (as shown below) to avoid needing all that CDATA stuff:
<?xml version="1.0" encoding="ISO-8859-1"?>
<iw_pt/>
<iw_perl>
    ...
</iw_perl>

 All cats:
     current cat:  
Second, you're opening a non-named-file for reading (huh?) and not verifying that you actually succeeded in opening it before you try to parse the contents (somewhat inefficiently)
           open STAT_REPO, "";
           my $stat_repo = TeamSite:CRparser->new()->parse(join('',(<STAT_REPO>)));
           close STAT_REPO;
I'd suggest something like:
           if (open(STAT_REPO, "<:utf8", [color=purple]$filename)){
               my $xml = do {local $/; <STAT_REPO>};
               close(STAT_REPO);[/color]
               my $stat_repo = TeamSite:CRparser->new()->parse($xml);
               ...
           }
           ...
Once you've got that cleared up - then I think you need to spend some time along with some trial-and-error command line scripts, reading the perldoc for RTF::Writer so that you can understand how to use it - it doesn't magically translate XML (the DCR) into RTF - you need to do some work to tell it how to format things (in RTF instead of HTML) and use either iwpt_dcr_value('dcr....') [within iw_perl] or <iw_value name="..."/> [outside of iw_perl] to plug in the data from the DCR.

Okay Ghoti, I have done that, i m able to preview the data. But as a favour could you please provide me some inputs from your end in terms how to translate XML into RTF... as time is crucial...

Your inputs and comments will be highly appreciated....

Regards,
Ace

nipper

You should try this yourself. No one here will do it for your, you are being paid to do it, not us.

look at this link and try the samples provided. The start substituting your DCR data for the text. When that all works, add formatting.