#! c:\perl\bin\perl

use strict;
use warnings;

use Win32::OLE;
my $file = $ARGV[0];
my $image = $ARGV[1];
my $count = $ARGV[2];

my $class = "Word.Application";
my $word_ref = Win32::OLE->new($class) || die ("Failed to launch Word 
+due to", Win32::OLE::LastError()); 

$word_ref->{'Visible'} = 1;

# Add the doc
my $doc = $word_ref->Documents->Add;

my ($obj_sel, $obj_shape);
for (my $i=0; $i < $count; $i++) {
    $obj_sel = $word_ref->Selection;
    $obj_shape = $doc->Shapes;
    # add image
    $obj_shape->AddPicture($image);

    # add page break
    add_pagebreak($obj_sel);    
}

# Save the file
$word_ref->ActiveDocument->SaveAs($file);

# destory objs
undef $obj_sel;
undef $obj_shape;

$word_ref->Quit();
# destory contructor for word app
undef $word_ref;
[download]

Hmmm... the Word 2007 Developer Reference is extensive...

After some experiments, I found that:

# Add the doc
my $doc = $word_ref->Documents->Add ;

my $obj_sel = $word_ref->Selection ;

for (1..$count) {
  $obj_sel->InlineShapes->AddPicture($image) ;
  $obj_sel->InsertBreak() ;
}
[download]

appeared to do the job.

I discovered this by using the "Record macro" function in Word, doing the operations to insert a picture followed by a page-break, and then translating to Perl...

...the reference documentation will tell you what the things recorded in the macro are doing. But it's hard to discover what you need to do what you want -- which is the advantage of the record macro trick.

Thanks, that worked :)

Off the top of my head (I'm on Linux, not Windows), something like:

$word_ref->Selection->EndKey(wdStory);
$word_ref->Selection->InsertBreak(wdPageBreak);
[download]

I'm sure you could super search or use Google to find an example, or check the link you have been given in the first reply to this question regards the Microsoft DOM documentation.

Martin