请教一个perl调Win32::OLE给word插图配文字问题

qiao174463413

我在用perl调Win32::OLE给word写一行文字再插入一张图片，结果却是一行一行文字后再贴出所有图片，用的插入图片的方法是InlineShapes。

1. sub insert_picture {
   
2.   my $document = shift;
   
3.   my $file     = shift;
   
4.        
   
5.   my $picture =
   
6.     $document-> InlineShapes -> AddPicture (
   
7.       $file,
   
8.       0,
   
9.       1,
   
10. #     msoFalse, # link to file
    
11. #     msoTrue,  # save with document
    
12. #         $document ->Paragraphs(15)
    
13.           $document->ActiveWindow->Selection->{Range}
    
14.     );
    
15. 
    
16.   return $picture;
    
17. }
    

复制代码

我感觉是Range这块没设置，可是不知道这块应该怎么写，在线急等待回复，谢谢！

qiao174463413

已解决

哎 这年头还得靠自己。