מיזוג דואר מאקסס

[ארי]

שלום וברכה.
יש לי קוד למיזוג דואר לקובץ וורד קיים, ומיד פעם קופצה לי ההודעה הזו:

למה זה קורה?

הקוד שלי הוא:

Public Function PrintDocument(FileName As String)
On Error Resume Next
Dim wordApp As New Word.Application
Dim sXlsFile As String

sXlsFile = CurrentProject.Path & "\XlsFile.xlsx"

wordApp.Documents.Open FileName:=FileName, ReadOnly:=True
If Err <> 0 Then MsgBox "התרחשה שגיאה בפתיחת הוורד", vbOKOnly + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading: Exit Function

On Error GoTo 1
With wordApp.ActiveDocument.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource _
        Name:=sXlsFile, _
        SQLStatement:="select * from [Tbl]"
    .Destination = wdSendToPrinter
    .ViewMailMergeFieldCodes = 9999998
    .ShowWizard InitialState:=6, ShowDataStep:=False, ShowTemplateStep:=False
    .SuppressBlankLines = True
    .Execute
End With

1:
wordApp.Quit False
Set wordApp = Nothing
End Function

תודה!

[clickone]

@ארי יש לך מאקרו בתוך הוורד שאתה ממזג?
בנוסף, איזו שאילתא אתה ממזג? יש שם גישה לפונקציה בקוד?

[ארי]

@clickone אין מאקרו בוורד.
ואני ממזג קובץ אקסל שייוצא מאקסס (בקוד לפני).
תודה.

[clickone]

@ארי
זה קורה לך בכל המסמכי וורד או במסמך מסויים?

[ארי]

@clickone בכל המסמכים.
לפעמיים הוא עובד טוב, ולפעמיים מקפיץ את זה.
רק אחרי שלוחצים לו שיהפוך מאקרו ללא זמין הוא מדפיס את הקובץ כמו שצריך.

[clickone]

@ארי אתה יכול לבדוק במחשב אחר אם יש את אותה הבעיה?
(אני זוכר שבעבר הרחוק התנהגות כזו שויכה לוירוס במחשב, אבל אני לא זוכר בדיוק מה היה)

[ארי]

@clickone אנסה.
תודה.