מיזוג דואר מאקסס
תכנות
7
פוסטים
2
כותבים
186
צפיות
2
עוקבים
-
שלום וברכה.
יש לי קוד למיזוג דואר לקובץ וורד קיים, ומיד פעם קופצה לי ההודעה הזו:
למה זה קורה?הקוד שלי הוא:
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
תודה!
-
שלום וברכה.
יש לי קוד למיזוג דואר לקובץ וורד קיים, ומיד פעם קופצה לי ההודעה הזו:
למה זה קורה?הקוד שלי הוא:
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 בכל המסמכים.
לפעמיים הוא עובד טוב, ולפעמיים מקפיץ את זה.
רק אחרי שלוחצים לו שיהפוך מאקרו ללא זמין הוא מדפיס את הקובץ כמו שצריך. -
@ארי אתה יכול לבדוק במחשב אחר אם יש את אותה הבעיה?
(אני זוכר שבעבר הרחוק התנהגות כזו שויכה לוירוס במחשב, אבל אני לא זוכר בדיוק מה היה)