如何使用perl檢查ms單詞中的超鏈接？

Question

我想用perl搜索MS word doc中的超鏈接。有什麼方法可以找出MS Word文檔中的超鏈接嗎？

Answer 1

我得到了解決，

my $Hyperlinks = $document->Hyperlinks(); 
    my $enumerate1 = new Win32::OLE::Enum($Hyperlinks); 
    my $count1 = $Hyperlinks->{Count}; 
    print " count1 --> $count1 \n"; 

    while(defined($Hyperlinks = $enumerate1->Next())) 
    { 
     my $text = $Hyperlinks->{Range}->{Text}; 
     print "text is $text \n"; 
    }