如何使用perl检查ms字中的超链接？

Question

我想使用perl在MS word doc中搜索超链接。有没有办法找到MS Word doc中的超链接？

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";
    }