Il codice che uso è questo
Dim Wrd As Word.Application, Doc As Word.Document
Dim i As Integer
On Error Resume Next 'gestione errori step by step
Set Wrd = GetObject(, "Word.Application")
If Err.Number = 429 Then ' se word era chiuso...
Set Wrd = CreateObject("Word.Application")
End If
On Error GoTo 0 'ripristina la segnalazione degli errori
Wrd.Visible = True
Wrd.Activate
Set Doc = Wrd.Documents.Open(DLookup("path_ric", "tbl_variabili"))
Dim mydb As Database
Set mydb = CurrentDb()
Dim percorso As String
percorso = mydb.name
Wrd.ActiveDocument.MailMerge.OpenDataSource name:= _
percorso _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=percorso;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Je" _
, SQLStatement:="SELECT * FROM `qry_antiriciclaggio`", SQLStatement1 _
:="", SubType:=wdMergeSubTypeAccess
Wrd.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
Wrd.ActiveDocument.Save
With Wrd.ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
Wrd.Windows("DOCUMENTAZIONE").Activate
Wrd.ActiveDocument.Save
Wrd.ActiveDocument.Close
Wrd.Windows("Lettere tipo1").Activate
Wrd.ActiveDocument.PrintPreview
Set Doc = Nothing
Set Wrd = Nothing
In rosso l'errore...che riporto con una immagine
https://dl-web.dropbox.com/get/Scree...rGSKE2ooG43waA
poi mi appare una msgbox che mi dice "Impossibile trovare il file "c:\users\cesare\documents.mdb""....non capisco dove prenda questo indirizzo visto che il "percorso" che io gli passo è "C:\Users\Cesare\Documents\Database1.accdb" ovviamente controllato con la finestra variabili locali.
https://dl-web.dropbox.com/get/Scree...0fycPaTfrHrUnA