获取Word文档特定部分中的段落

Question

我在查找 Word 中的特定部分时遇到问题。建议我尝试通过 Word 中的 VB 对象浏览器寻求帮助。我知道至少有 5 个标题“集”（即，如果您查看文档结构图，我会看到编号为 1、2、3、4、5...）。我不知道如何导航到第五个标题，最初我以为它是部分，但是当我查看部分时，我意识到几乎所有内容都在一个部分中，但以防万一有人正在寻找有关如何执行部分的信息，下面的内容似乎有效，因为我已经经历了编写它的麻烦。

my($document) = $Word->Documents->Open($input) || die("Unable to open document ", Win32::OLE->LastError());
my $section = $document->{Sections}->Item(1); # put section number you're looking for in here
$section_five_paragraphs = $section->{Range}->Paragraphs();
$enumerate = new Win32::OLE::Enum($section_five_paragraphs); 
  while (defined($paragraph = $enumerate->Next()))
  {
     print $paragraph->{Range}->{Text} . "\n";
  }

那么有人知道如何到达第五个标题区域，或者可以给我指出一些可能有帮助的东西吗？

Answer 1

如果我没有正确理解您，但您正在尝试在某个部分中查找第 5 个标题 1，请告诉我？如果是这种情况，尽管 Word 明确定义了节（您将其记为 $document->{Sections}->Item(1)），但它并没有明确定义具体的标题或一般样式。为此，您必须浏览所有样式以寻找感兴趣的样式。以下 VBA 代码（很抱歉没有编写 perl）就是这样做的，并且仅在特定部分中查找。

Sub FindHeading1()
    On Error GoTo MyErrorHandler

    Dim currentDocument As Document
    Set currentDocument = ActiveDocument

    Dim findRange As Range
    Set findRange = currentDocument.Sections(2).Range 'which section you want

    Dim endRange As Long
    endRange = findRange.end

    findRange.Find.ClearFormatting
    findRange.Find.Style = ActiveDocument.Styles("Heading 1")

    Dim headingCountFound As Long
    Do While findRange.Find.Execute(FindText:="")
        If findRange.End > endRange Then Exit Sub
        findRange.Select
        headingCountFound = headingCountFound + 1
        If headingCountFound = 3 Then 'which occurance you want
            MsgBox "Found."
            Exit Do
        End If

        DoEvents
    Loop

    Exit Sub

MyErrorHandler:
    MsgBox "FindHeading1" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description
End Sub