Public Sub ListBasicReturnedObjects3()

Dim wdActDoc As Document
Dim oBkMrk As Bookmark
Dim StrData As String, StrSty As String, Sty As Style, strstylen As Integer
Dim StrStory As String
Dim gapBetween As Integer
Dim i As Long, j As Long, k As Long, bTabOK As Boolean, Rng As Range
Dim bldFont As Boolean, undline As Boolean, stkThru As Boolean, strHeader As String, Pos As Integer, newPos As Integer
Dim StrRecord As String
                                                  
Set wdActDoc = ActiveDocument
                                                  '15
strHeader = "Para No" & Space(5) & "Style" & Space(12) & "Alignment" & Space(2) & "Font Name" & Space(24) & "BookMark"

StrData = strHeader & vbCrLf

With wdActDoc
  For i = 1 To .Range.Paragraphs.Count
    With .Paragraphs(i)
          StrSty = .Style
          StrData = StrData & vbCr & Format(i, "#00#") & Space(8) & Mid(StrSty, 1, Len(StrSty))
                
       Set Sty = wdActDoc.Styles(StrSty)
             If Len(.Style) <= 11 Then
                StrData = StrData & Space(8) & .Alignment & Space(8) & .Range.Font.Name   
              Else
                StrData = StrData & Space(8) & .Alignment & Space(8) & .Range.Font.Name
             End If

What should be the code here in this loop if there is a book mark in the Para of Active document
BkMark-Para2 is the bookmark.name. As Para 2 was selected and Book mark name was given as BkMark-Para2
Please  see the quoted representation 
       
       
    End With
   Next
  TextBox1.Text = TextBox1.Text & StrData

End With

End Sub