$Word->Documents->open( $source_doc ) or die "Unable to open $source_doc ", Win32::OLE->LastError(); my $text = $Word->ActiveDocument->Content->Text; $Word->ActiveDocument->Close; $Word->Documents->open( $dest_doc ) or die "Unable to open $dest_doc ", Win32::OLE->LastError(); $Word->ActiveDocument->Content->InsertAfter({ Text => $text }); $Word->ActiveDocument->Close;