Re: Win32:: OLE MS Word Table

Looks like you are writing the wrong value to the HeadingFormat property:

#!/usr/bin/perl -w
use strict;

use Win32::OLE;
my ($t_row, $t_col) = (4,2);
my $word = Win32::OLE->CreateObject("Word.Application");
$word->{Visible} = 1;
my $doc = $word->Documents->Add;
my $table = $doc->Tables->Add($word->Selection->Range,$t_row, $t_col);
$table->Select();
$table->AutoFormat(3,1,1,1,1,1,0,1,0,1);

$word->Selection->MoveUp(5,4);
$table->Rows->{HeadingFormat} = -1;
1;
[download]

Looking it up after manually setting it in Word reveals that it is a -1 and not a 1. Also, from the interface, the property does not appear to be settable unless the selection (or the cursor position) is in/on one of the cells of the first row of the table.

Macros are only 1/2 of the problem with writing Office automation scripts because the stupid Macro Recorder stops you from doing very simple things like selecting cells, etc. You have to do the following:

Become familiar with the application's object model

Make educated guesses as to which properties some GUI property forms may be setting

Experiment to see if you are correct

Get used to the fact that M$Soft CHANGES things from version to version so today's Word 2000 script will likely BREAK in the future for no good/apparent reason

Celebrate Intellectual Diversity

Comment on Re: Win32:: OLE MS Word Table Download Code

Replies are listed 'Best First'.
Re^2: Win32:: OLE MS Word Table by dcutcher (Initiate) on Sep 22, 2005 at 17:11 UTC
Thanks for the help. I was able to set the heading row using your code. But, the heading row does not actually print or display on the second page. I modifed your code a bit to have the table span across two pages. Any ideas? `#!/usr/bin/perl -w use strict; use Win32::OLE; my ($t_row, $t_col) = (70,2); my $word = Win32::OLE->CreateObject("Word.Application"); $word->{Visible} = 1; my $doc = $word->Documents->Add; my $table = $doc->Tables->Add($word->Selection->Range,$t_row, $t_col); $table->Select(); $table->AutoFormat(3,1,1,1,1,1,0,1,0,1); $word->Selection->MoveUp(5,4); $table->Cell(1,1)->Range->{Text} = "heading1"; $table->Cell(1,2)->Range->{Text} = "heading2"; $table->Rows->{HeadingFormat} = -1;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Win32:: OLE MS Word Table
by dcutcher (Initiate) on Sep 22, 2005 at 17:11 UTC

#!/usr/bin/perl -w
use strict;

use Win32::OLE;
my ($t_row, $t_col) = (70,2);
my $word = Win32::OLE->CreateObject("Word.Application");
$word->{Visible} = 1;
my $doc = $word->Documents->Add;
my $table = $doc->Tables->Add($word->Selection->Range,$t_row, $t_col);
$table->Select();
$table->AutoFormat(3,1,1,1,1,1,0,1,0,1);
$word->Selection->MoveUp(5,4);
$table->Cell(1,1)->Range->{Text} = "heading1";
$table->Cell(1,2)->Range->{Text} = "heading2";
$table->Rows->{HeadingFormat} = -1;
[download]

[reply]
[d/l]