Sub AddBookmarksWithFirstFourCharsOfParagraphNumber()
    Dim para As Paragraph
    Dim bookmarkName As String
    Dim paragraphNum As Long
   
    ' Loop through each paragraph in the active document
    For Each para In ActiveDocument.Paragraphs
        ' Check if the paragraph is a list paragraph
        If para.Range.ListFormat.ListType <> WdListType.wdListNoNumbering Then
            ' Get the paragraph number and convert it to a string
            paragraphNum = para.Range.ListFormat.ListValue
            Dim paragraphNumStr As String
            paragraphNumStr = CStr(paragraphNum)
           
            ' Generate a bookmark name with the first four characters of the paragraph number
            bookmarkName = "Bookmark_" & Left(paragraphNumStr, 4)
           
            ' Add a bookmark to the paragraph
            ActiveDocument.Bookmarks.Add bookmarkName, para.Range
        End If
    Next para
End Sub