vba - 在定义段落的表中查找字符串的宏

Question

我有定义结构的 MS Word 文档：

• 我使用 3 级编号的项目标题：

5 标题1

5.1 标题2

5.1.1 标题3

. . .

5.1.7 标题3

• 在第 5.X.7 项中，我有我的实验结果表
• “X”可以从 1 开始到大约 20

我需要在所有项目“5.X.7”中搜索带有结果的表格。

知道如何在项目“5.X.7”的第一个表中选择第一行、第一列吗？

Answer 1

由于您是新手，即使 StackOverflow 不是免费的编码服务......尝试这样的事情来帮助您入门。

Sub FindTables()
    Dim doc As Word.Document, rng As Word.Range, hRng As Word.Range
    Dim splitStr() As String, tbl As Word.Table
    Set doc = ActiveDocument
    Set rng = doc.Content
    With rng.Find
        .ClearFormatting
        .Format = True
        .Forward = True
        .Style = doc.Styles("Heading 3").NameLocal
        .Text = ""
        .Wrap = wdFindStop
        .Execute
        Do While .found = True
            splitStr = Split(rng.ListParagraphs(1).Range.ListFormat.ListString, ".")
            If splitStr(0) = 5 And splitStr(2) = 7 Then
                Set hRng = rng.Bookmarks("\HeadingLevel").Range
                If hRng.Tables.Count > 0 Then
                    Set tbl = hRng.Tables(1).Range
                    'do something with the table
                End If
                rng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            Else
                rng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            End If
        .Execute
        Loop
    End With
End Sub