Newsgroup: it.comp.appl.access
Titolo: dati da Access in Word

Ciao a tutti,
ho un grandissimo problema.
Voglio realizzare un archivo per la gestione di uno studio legale.
Vorrei fare in modo che dati quali cliente,controparte,autorità giudiziaria
etc. vengano automaticamente  importati in un documento word in modo che se
l'intestazione word è GIUDICE DI PACE DI .............. dopo il DI venga
inserito il record creato i n ACCESS. Si può fare e come???
Grazie



vedi questo esempio di automazione e poi vai su 
sitocomune.com
 per
altri
Function scrivi(Base As String)
If IsNull(Me.posizione) Or Me.posizione = "" Then
    Me.posizione.SetFocus
    MsgBox ("Specifica il percorso dove registrare la Perizia")
    Exit Function
End If
Dim trovato As String, NomeFile As String
trovato = ""
NomeFile = Me.posizione & Me.numero.Value & Me.compagnia.[Column](1) &
".doc"
trovato = Dir(NomeFile)
Dim Ap As Word.Application
Dim nuovo As Word.Document
If trovato = "" Then
    If IsNull(Me!numero) Or Me.numero = "" Then
        Exit Function
    End If
    Base = Application.CurrentProject.Path & "\" & Base & ".Doc"
    If Dir(Base) = "" Then
        MsgBox ("Non trovo il file di riferimento Base nella directory
del programma")
        Exit Function
    Else
        Set Ap = New Word.Application
        Set nuovo = Ap.Documents.Open(Base)
        nuovo.SaveAs NomeFile
        nuovo.Close
        Set nuovo = Ap.Documents.Open(NomeFile)
        On Error Resume Next
        If nuovo.Bookmarks.Exists("numero") = True Then
        nuovo.Bookmarks("numero").Select
        Ap.Selection.TypeText (Me.numero)
        End If
        If nuovo.Bookmarks.Exists("dataincarico") = True Then
        nuovo.Bookmarks("dataincarico").Select
        Ap.Selection.TypeText (Me.dataincarico)
        End If
        If nuovo.Bookmarks.Exists("agenzia") = True Then
        nuovo.Bookmarks("agenzia").Select
        Ap.Selection.TypeText (Me.agenzia)
        End If
        If nuovo.Bookmarks.Exists("annoriferimento") = True Then
        nuovo.Bookmarks("annoriferimento").Select
        Ap.Selection.TypeText (Me.annoriferimento)
        End If
        If nuovo.Bookmarks.Exists("sinistroagenzia") = True Then
        nuovo.Bookmarks("sinistroagenzia").Select
        Ap.Selection.TypeText (Me.sinistroagenzia)
        End If
        If nuovo.Bookmarks.Exists("compagnia") = True Then
        nuovo.Bookmarks("compagnia").Select
        Ap.Selection.TypeText (Me.compagnia.Column(1))
        End If
        If nuovo.Bookmarks.Exists("località") = True Then
        nuovo.Bookmarks("località").Select
        Ap.Selection.TypeText (Me.località)
        End If
        If nuovo.Bookmarks.Exists("assicurato") = True Then
        nuovo.Bookmarks("assicurato").Select
        Ap.Selection.TypeText (Me.assicurato)
        End If
        If nuovo.Bookmarks.Exists("danneggiato") = True Then
        nuovo.Bookmarks("danneggiato").Select
        Ap.Selection.TypeText (Me.danneggiato)
        End If
        If nuovo.Bookmarks.Exists("garanzia") = True Then
        nuovo.Bookmarks("garanzia").Select
        Ap.Selection.TypeText (Me.garanzia.Column(1))
        End If
        If nuovo.Bookmarks.Exists("fattura") = True Then
        nuovo.Bookmarks("fattura").Select
        Ap.Selection.TypeText (Me.fattura)
        End If
        If nuovo.Bookmarks.Exists("datafattura") = True Then
        nuovo.Bookmarks("datafattura").Select
        Ap.Selection.TypeText (Me.datafattura)
        End If
        If nuovo.Bookmarks.Exists("ditta") = True Then
        nuovo.Bookmarks("ditta").Select
        Ap.Selection.TypeText (Me.ditta.Column(1))
        End If
        If nuovo.Bookmarks.Exists("collaboratore") = True Then
        nuovo.Bookmarks("collaboratore").Select
        Ap.Selection.TypeText (Me.collaboratore)
        End If
        If nuovo.Bookmarks.Exists("ramo") = True Then
        nuovo.Bookmarks("ramo").Select
        Ap.Selection.TypeText (Me.ramo)
        End If
        If nuovo.Bookmarks.Exists("polizza") = True Then
        nuovo.Bookmarks("polizza").Select
        Ap.Selection.TypeText (Me.Polizza)
        End If
        If nuovo.Bookmarks.Exists("liquidato") = True Then
        nuovo.Bookmarks("liquidato").Select
        Ap.Selection.TypeText (Me.liquidato)
        End If
        If nuovo.Bookmarks.Exists("studio") = True Then
        nuovo.Bookmarks("studio").Select
        Ap.Selection.TypeText (Me.studio.Column(1))
        End If
        If nuovo.Bookmarks.Exists("valuta") = True Then
        nuovo.Bookmarks("valuta").Select
        Ap.Selection.TypeText (Me.valuta)
        End If
        If nuovo.Bookmarks.Exists("km") = True Then
        nuovo.Bookmarks("km").Select
        Ap.Selection.TypeText (Me.km)
        End If
        If nuovo.Bookmarks.Exists("situazione") = True Then
        nuovo.Bookmarks("situazione").Select
        Ap.Selection.TypeText (Me.situazione.Column(1))
        End If
        If nuovo.Bookmarks.Exists("codiceagenzia") = True Then
        nuovo.Bookmarks("codiceagenzia").Select
        Ap.Selection.TypeText (Me.codiceagenzia)
        End If
        If nuovo.Bookmarks.Exists("fatturato") = True Then
        nuovo.Bookmarks("fatturato").Select
        Ap.Selection.TypeText (Me.fatturato)
        End If
        nuovo.Close
        Ap.Quit
        Set Ap = Nothing
    End If
End If
Set Ap = New Word.Application
Set nuovo = Ap.Documents.Open(NomeFile)
Ap.Visible = True
End Function
Saluti.
Emanuele.