hmmm.

Well, I used the following code as a test table (pardon the pun). It was written a while ago for someone on one of the AS Win32 Perl Mailing lists, and I didn't receive any errors.

Machine is Win2K Advanced Server with AS Perl 5.6.1.629.

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
    
$Win32::OLE::Warn = 3; # Fail on errors

my $Word = Win32::OLE->GetActiveObject('Word.Application')
    || Win32::OLE->new('Word.Application', 'Quit');

$Word->{'Visible'} = 1;
$Word->Documents->Add || die("Unable to create document ", Win32::OLE-
+>LastError());
$MyRange = $Word->ActiveDocument->Content;
$country_name = "Unknown";  # I'll fill this in later
# add a table that is the header portion, 1 column by 1 row

$Word->ActiveDocument->Tables->Add({
   Range => $MyRange,
   NumRows => 1,
   NumColumns => 1,
});

$Word->Selection->{Style} = wdStyleHeading1;
$Word->Selection->TypeText ({ Text => "Hosts found in $country_name"})
+;

$Word->Selection->MoveRight({Count => 2});
$Word->Selection->TypeText ({ Text => "\n\n" });   #add another table 
+that is two lines below the first
$Word->Selection->MoveDown({Count => 2});

# add another table that contains the data
# collapse the range so the starting and ending points are equal

$MyRange->Collapse({Direction => wdCollapseEnd});

$Word->ActiveDocument->Tables->Add({ 
   Range => $MyRange, 
   NumRows => 1, 
   NumColumns => 4,
});
$Word->Selection->TypeText ({ Text => "end" });
print Win32::OLE->LastError();
my $Cell = $Word->ActiveDocument->Tables(2)->Cell(1,2)->Select();

$Word->Selection->TypeText ({ Text => "This is the new text"});

[download]

Update: Clean up - I removed a few lines that were unnecessary, and changed the ::Warn line to fail on errors.

C-.

In reply to Re: Re: Scripting MSWord - headers and tabels by cacharbe
in thread Scripting MSWord - headers and tabels by lostcause

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.