Найти абзацы word vba

Sub Макрос()

    Dim rng As Range, Found(1 To 3) As Boolean
    Dim var, i As Long

            ‘1. Отключение монитора (может это ускорит макрос и не будет мерцать).
    Application.ScreenUpdating = False

        ‘2. Поиск в основной части файла.
    MyFind ActiveDocument.Range(0, 0), Found(1)

        ‘2. Поиск в страничных сносках.
    If ActiveDocument.Footnotes.Count <> 0 Then
        Set rng = ActiveDocument.StoryRanges(wdFootnotesStory)
        rng.Collapse Direction:=wdCollapseStart
        MyFind rng, Found(2)
    End If

        ‘3. Поиск в концевых сносках.
    If ActiveDocument.Endnotes.Count <> 0 Then
        Set rng = ActiveDocument.StoryRanges(wdEndnotesStory)
        rng.Collapse Direction:=wdCollapseStart
        MyFind rng, Found(3)
    End If

        ‘4. Включение монитора.
    Application.ScreenUpdating = True

        ‘5. Сообщение.
    If Found(1) = True Then
        var = «в основном тексте» & vbCr
    End If
    If Found(2) = True Then
        var = var & «в страничных сносках» & vbCr
    End If
    If Found(3) = True Then
        var = var & «в концевых сносках»
    End If
    If var <> «» Then
        MsgBox «Найдено здесь:» & vbCr & vbCr & var, vbInformation
    Else
        MsgBox «Не найдено.», vbInformation
    End If

    End Sub

Sub MyFind(find_rng As Range, Found As Boolean)

        Dim find As find

            ‘1. Создание объекта для поиска.
    Set find = find_rng.find

        ‘2. Настройка поиска.
    find.text = «@mail.ru»
    find.Wrap = wdFindStop

        ‘3. Поиск и замена.
    Do While find.Execute = True
        ‘ Закраска абзаца.
        find_rng.Paragraphs(1).Range.Shading.BackgroundPatternColor = 65535
        ‘ Смещение невидимого курсора вправо от найденного абзаца, чтобы поиск
            ‘ начался после найденного абзаца, а не в найденном фрагменте.
        find_rng.SetRange find_rng.Paragraphs(1).Range.End, find_rng.Paragraphs(1).Range.End
        ‘ Пометка, что было найдено.
        Found = True
    Loop

    End Sub

[свернуть]

Добрый день.
Как в VBA Word достать номера абзацов? (отмечено красным на скрине)
У меня есть код, который обрабатывает таблицы в Word’e и берёт последний абзац перед каждой таблицей. Есть необходимость достать номер тоже.
Код:

Sub KPI()
Dim wd As New Document
Set wd = ActiveDocument
tc = wd.Tables.Count
ReDim mas(1 To tc, 1 To 10)
For i = 1 To tc
    If i = 1 Then
        Set ps = wd.Range(0, wd.Tables(1).Range.Start - 1).Paragraphs
    Else
        Set ps = wd.Range(wd.Tables(i - 1).Range.End, wd.Tables(i).Range.Start - 1).Paragraphs
    End If
    For lp = ps.Count To 1 Step -1
        If Len(ps(lp)) > 5 Then
            mas(i, 1) = CleanString(ps(lp))
            Exit For
        End If
    Next
    For k = 1 To wd.Tables(i).Rows.Count
        mas(i, k + 1) = CleanString(wd.Tables(i).Cell(k, 2).Range)
    Next
Next
Set xl = CreateObject("Excel.Application")
xl.Visible = True
With xl.Workbooks.Add.Sheets(1)
    .Cells(1).Resize(tc, 10).Value = mas
    With .UsedRange
        .ColumnWidth = 27
        .Columns(2).ColumnWidth = 72
        .Columns(6).ColumnWidth = 72
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
End With
Set xl = Nothing
End Sub