מיזוג דואר מטבלת אקסס

[ארי]

@OdedDvir אמר במיזוג דואר מטבלת אקסס:

אם יש צורך לקשר את הוורד באופן דינמי, הכי פשוט הוא לפתוח את הוורד בלי לקשר לבסיס הנתונים, ולשמור אותו כך (רק עם הסימניות של השדות). לאחר מכן הקוד יוכל לעבוד כצפוי.

מיזוג דואר תמיד זה דינאמי. לא?
איך אני מכניס רק סימניות בלי לקשר לקובץ אקסס, כשאני לא בוחר קובץ למיזוג השורת כותרת נראית כך:

אין אפשרות להכניס שדות למיזוג.
תודה רבה!

עריכה: אני מצרף כאן את קבצי האקסס והוורד, תודה.
מינהל_האוכלוסין.doc
‏‏למיזוג - עותק.accdb

[OdedDvir]

@ארי אמר במיזוג דואר מטבלת אקסס:

מיזוג דואר תמיד זה דינאמי. לא?

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

אין אפשרות להכניס שדות למיזוג.

נכון. בהתחלה אתה באמת צריך לקשר למקור הנתונים, למקם את השדות ולשמור. אחר כך פתח את הקובץ שוב, ובדיאלוג ששואל האם ברצונך לקשר למקור הנתונים, בחר לא. ושמור את הקובץ.

[ארי]

אני לא מצליח
@OdedDvir אני לא אוהב לבקש קודים, כי אני אוהב ללמוד לבד. אבל במקרה זה אולי יש מצב לדוגמת קוד בבקשה?
ממש תודה על הכל!

[OdedDvir]

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

[ארי]

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

[OdedDvir]

@ארי אתה בטוח ששמרת את השינויים בטבלת המקור באקסס לפני פתיחת הוורד?

[ארי]

@OdedDvir למיטב זכרוני כן.
אני יבדוק מחר שוב.

[ארי]

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

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
 
objWord.PrintOut , , , , , , , , , , , , "C:\Users\1\מכתב.doc"
 
objWord.Quit

וזו התוצאה (דוגמא מתוך הקובץ PDF):

[OdedDvir]

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

באקסס תוסיף את הפונקציה הציבורית הבאה:

Public Sub PrintDocument(templateFileName As String, sourceTable As String, sql As String)
    Dim wordApp As New Word.Application
    
    wordApp.Documents.Open fileName:=templateFileName, ReadOnly:=True
    
    With wordApp.ActiveDocument.MailMerge
        .OpenDataSource _
            Name:=Application.CurrentProject.Path & "\" & Application.CurrentProject.Name, _
            LinkToSource:=False, _
            Connection:="TABLE " & sourceTable, _
            SQLStatement:=sql
        .Destination = wdSendToPrinter
        
        .Execute
    End With
 
    wordApp.Quit False
    Set wordApp = Nothing
End Sub

הפונקציה מצפה לשלושה פרמטרים:

1. שם קובץ הוורד למיזוג
2. טבלת מקור הנתונים
3. שאילתת SQL
   הפונקציה מריצה את מיזוג הדואר, ופולטת את המסמך הממוזג למדפסת ברירת המחדל.

קריאה לדוגמא:

PrintDocument Application.CurrentProject.Path & "\" & "מינהל_האוכלוסין.doc", "מכתב", "SELECT * FROM [מכתב]"

[ארי]

@OdedDvir עובד!
תודה רבה!!!