Sub אא_חוברת_מיזוג_מאקסל()

    Dim i As Integer
    
    If MsgBox("זכרת לעשות 'הצג תצוגה מקדימה של תוצאות'?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbNo Then Exit Sub
    
    With ActiveDocument.MailMerge.DataSource
        If MsgBox("ידפיס " & .RecordCount & " רשומות. מאשר?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then
            .ActiveRecord = wdFirstRecord
            For i = 1 To .RecordCount
                Application.PrintOut
                .ActiveRecord = wdNextRecord
            Next
            MsgBox "הדפסת בהצלחה " & .RecordCount & " רשומות", vbMsgBoxRight + vbMsgBoxRtlReading
        End If
    End With

End Sub

Sub אא_חוברת_מיזוג_מוורד()
    
    Dim i As Integer
    Dim lngCountOfPrint As Long
    Dim lngCountOfPrintTest As Long

    lngCountOfPrint = InputBox("הקש את מספר הרשומות בקובץ!")
    lngCountOfPrintTest = InputBox("הקש שוב את מספר הרשומות בקובץ!")
    
    If lngCountOfPrint <> lngCountOfPrintTest Then MsgBox "המספרים אינם תואמים!!!", vbMsgBoxRight + vbMsgBoxRtlReading: Exit Sub
    
    With ActiveDocument.MailMerge.DataSource
        If MsgBox("ידפיס " & lngCountOfPrint & " רשומות. מאשר?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then
            .ActiveRecord = wdFirstRecord
            For i = 1 To lngCountOfPrint
                 Application.PrintOut
                .ActiveRecord = wdNextRecord
            Next
            MsgBox "הדפסת בהצלחה " & lngCountOfPrint & " רשומות", vbMsgBoxRight + vbMsgBoxRtlReading
        End If
    End With

End Sub