none
Problème de publipostage d'un document Word RRS feed

  • Question

  • Bonjour,

    J'ai un programme (VB.NET) qui permet de faire du publipostage dans Word. Chez tous mes clients, tout fonctionne parfaitement, sauf chez un client.

    En gros, les clients créent un document Word (en-tête, pied de page, logo de la société...)et chez ce client, toutes les images qu'il a lui même mises dans son document disparaissent et il a un message au lieu de l'image qui dit que l'image ne peut pas être trouvée.

    Le client peut choisir plusieurs documents et ils sont tous affichés un à la suite de l'autre

    Mon principe de mailmerge est le suivant :

     

    Est-ce que quelqu'un a déjà eu ce problème, auriez-vous une idée de ce que je peux faire pour résoudre ce problème?
    Comme un seul client a le problème (et sur un seul ordinateur, l'autre fonctionne parfaitement), je ne sais pas quoi faire.

     

    Merci
    Marc

    Avec NewDoc = aWord.Documents.Add

     TempDoc = aWord.Documents.Open(.Tag) ' LE .Tag est en fait le nom ddu document source
                                    If bo_First Then
                                        NewDoc.PageSetup.LeftMargin = TempDoc.PageSetup.LeftMargin
                                        NewDoc.PageSetup.RightMargin = TempDoc.PageSetup.RightMargin
                                        NewDoc.PageSetup.TopMargin = TempDoc.PageSetup.TopMargin
                                        NewDoc.PageSetup.BottomMargin = TempDoc.PageSetup.BottomMargin
                                        bo_First = False
                                    End If

                                    With TempDoc.MailMerge
                                        .MainDocumentType = 0 'Word.WdMailMergeMainDocType.wdFormLetters

                                        .OpenDataSource(Name:=AllWinUser.PathRes & "res.odc", LinkToSource:=True, AddToRecentFiles:=False, SQLStatement:="Select  * from [tb_custcorrespPrj]      Where  si_PrjID =" & si_PrjID.ToString, Connection:=str_Con.ToString)
                                        '                                                SQLStatement:="SELECT * FROM [tb_custcorrespPrj] where si_prjid=" & CStr(si_PrjID), Connection:=str_Con


                                        '                                                .OpenDataSource(Name:=AllWinUser.PathRes & "res.odc", LinkToSource:=True, AddToRecentFiles:=False, SQLStatement:="Select  * from [tb_custcorrespPrj]      Where  si_PrjID =" & si_PrjID.ToString, Connection:=str_Con.ToString)
                               

                                        .SuppressBlankLines = True
                                        With .DataSource
                                            .FirstRecord = 1 'Word.WdMailMergeDefaultRecord.wdDefaultFirstRecord
                                            .LastRecord = -16 'Word.WdMailMergeDefaultRecord.wdDefaultLastRecord
                                        End With
                                        .Execute()
                                    End With

                                    aWord.ActiveDocument.SaveAs(AllWinUser.PathTemp & "a.tmp")
                                    aWord.ActiveDocument.Close(False)

                                    TempDoc.Close(False)

                                    NewDoc.Activate()

                                    aWord.Selection.InsertFile(FileName:=AllWinUser.PathTemp & "a.tmp", Range:=String.Empty, ConfirmConversions:=False, Link:=False, Attachment:=False)

                                    Kill(AllWinUser.PathTemp & "a.tmp")

     

    jeudi 22 septembre 2011 11:51