Sub AddIDsToParagraphs()
    Dim doc As Document
    Dim para As Paragraph
    Dim counter As Long
    Dim prefix As String
    
    ' הגדרות
    Set doc = ActiveDocument
    counter = 1
    prefix = "[ID:" ' הפורמט של המספר
    
    ' ייעול מהירות (מכבה את עדכון המסך בזמן הריצה)
    Application.ScreenUpdating = False
    
    ' לולאה שעוברת על כל הפסקאות במסמך
    For Each para In doc.Paragraphs
        ' בדיקה: האם הפסקה מכילה טקסט אמיתי? (יותר מתו אחד - כדי לדלג על שורות ריקות)
        If Len(Trim(para.Range.Text)) > 1 Then
            ' הוספת המספר בתחילת הפסקה
            para.Range.InsertBefore prefix & counter & "] "
            
            ' קידום המונה
            counter = counter + 1
        End If
    Next para
    
    ' החזרת עדכון המסך
    Application.ScreenUpdating = True
    
    ' הודעת סיום
    MsgBox "תהליך הסתיים בהצלחה! נוספו מזהים ל-" & (counter - 1) & " קטעים.", vbInformation
End Sub