Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 2 su 2

Automazione word

  1. #1
    CESABAS non è in linea Scribacchino
    Buongiorno a tutti, ho un foglio di word collegato ad una qry di access con tutti i campi collegati con i campi della qry.

    Avrei bisogno che al click di un pulsante si aprisse questo file word...ho visto che se non ricollego tramite codice il file word alla qry da cui prendere i dati, si apre semplicemente quel file, senza avere attiva la stampa unione.

    Ho provato il codice fornito direttamente da microsoft ma riscontro dei problemi.

    Voi cosa consigliate?? Utilizzare i segnalibri??
    Sinceramente nel mio caso non sarebbe la scelta migliore, perchè la qry mi permette anche di prendere i dati da più tabelle e non solo dalla form..dovrei trovare il modo di automatizzare il tutto

  2. #2
    CESABAS non è in linea Scribacchino
    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

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Automazione word
    Da Jocman nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 02-03-2017, 08:42
  2. automazione word
    Da margiu nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 08-11-2011, 21:07
  3. automazione access/word
    Da Chia nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 15-04-2009, 10:11
  4. Automazione Word
    Da Rob nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 28-01-2008, 19:37
  5. automazione word
    Da leogio nel forum Microsoft Word
    Risposte: 10
    Ultimo Post: 24-01-2008, 16:29