vba | אירוע בוורד פיסקה חדשה

[פלורידה]

האם יש בוורד אירוע של "פיסקה חדשה" שיהיה טריגר להפעלת פקודת מאקרו?

[OdedDvir]

@פלורידה אין מובנה. אבל אפשר להתחכם ולהשתמש בטריק הבא:

Option Explicit

Private lastCount As Integer

Public Sub CheckForNewParagraph()
    Dim currentCount As Integer
    currentCount = ActiveDocument.Paragraphs.Count
    If currentCount > lastCount Then
        MsgBox "פיסקה חדשה נוצרה!"
    End If
    lastCount = currentCount
    RegisterEvent
End Sub

Private Sub Document_Open()
    lastCount = ActiveDocument.Paragraphs.Count
    RegisterEvent
End Sub

Private Sub RegisterEvent()
    Application.OnTime Now + TimeSerial(0, 0, 0.001), "CheckForNewParagraph"
End Sub