Newsgroup: it.comp.appl.access
Titolo: Operare su Word da Access

Ho scritto un programma in ACCESS e ora vorrei produrre delle stampe in
Word, però nella guida non riesco a trovare riferimenti per usare VBA di
Word, qualcuno saprebbe indicarmi dove posso trovare delle indicazioni su
come stampare da Access in Word?
Ciao e grazie
--
"Stupido è chi lo stupido fà signore!"

Ciao e grazie
esempio....
Private Sub perizia_Click()
If IsNull(Me.posizione) Or Me.posizione = "" Then
    Me.posizione.SetFocus
    MsgBox ("Specifica il percorso dove registrare la Perizia")
    Exit Sub
End If
Dim trovato, nomefile
trovato = ""
nomefile = Me.posizione & Me.numero.Value & Me.compagnia.[Column](1) &
".doc"
trovato = Dir(nomefile)
If trovato = "" Then
If IsNull(Me!numero) Or Me.numero = "" Then
    Exit Sub
End If
Dim acapp As Word.Application
Dim doc As Word.Document
Set acapp = New Word.Application
Set doc = acapp.Documents.Add
Dim db As Database
Set db = CurrentDb()
Dim rs As Recordset
Set rs = db.OpenRecordset("SELECT sinistro.*,
compagnia.descrizionecompagnia FROM sinistro LEFT JOIN compagnia ON
sinistro.compagnia = compagnia.compagnia where numero = " & Me.numero)
If rs.EOF Then
    rs.Close
    Set db = Nothing
    Exit Sub
End If
With acapp.Selection.Font
    .Bold = True
    .Name = "Tahoma"
    .Size = 14
    acapp.Selection.ParagraphFormat.Alignment =
wdAlignParagraphJustify
    ' un pollice equivale a 72 punti un pollice a 2.54 cm un cm a 28
punti
    Dim a
    For a = 1 To 17
        acapp.Selection.ParagraphFormat.TabStops.Add Position:=a *
28.35
    Next
    acapp.Selection.TypeText ("LI.DA.V.")
    .Bold = False
    .Size = 11
    acapp.Selection.TypeText (" - Perizie Assicurative" & vbCrLf)
    .Bold = True
    .Size = 12
    acapp.Selection.TypeText ("GESTIONE E LIQUIDAZIONE DANNI" &
vbCrLf)
    .Bold = False
    .Size = 11.5
    acapp.Selection.TypeText ("Sede di: 31021 MOGLIANO 
V.TO
 (TV) Via
XXIV Maggio, 29" & vbCrLf & "Tel. 041/5906510 r.a. Fax-Modem
041/5934119" & vbCrLf & "Sito WEB 
www.lidav.it
 E-Mail 
li...@lidav.com
"
& vbCrLf & vbCrLf & vbCrLf)
    .Bold = True
    .Size = 12
    .Name = "Times new roman"
    acapp.Selection.TypeText ("All'Agenzia di" & vbTab & vbTab &
vbTab)
    .Bold = False
    acapp.Selection.TypeText (rs![agenzia] & vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("COMPAGNIA" & vbTab & vbTab & ":" &
vbTab)
    acapp.Selection.TypeText (rs![descrizionecompagnia] & vbCrLf &
vbCrLf)
    acapp.Selection.TypeText ("POLIZZA N.°" & vbTab & vbTab & ":" &
vbTab)
    acapp.Selection.TypeText (rs![Polizza] & vbTab & vbTab & vbTab &
vbTab & vbTab & "RAMO " & rs![ramo] & vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("SINISTRO N.°" & vbTab & vbTab & ":" &
vbTab)
    acapp.Selection.TypeText (rs![sinistroagenzia] & vbTab & vbTab &
"DEL            " & "RAMO    ES." & rs![annoriferimento] & vbCrLf &
vbCrLf)
    acapp.Selection.TypeText ("DITTA ASSICURATA" & vbTab & ":" &
vbTab)
    .Bold = True
    acapp.Selection.TypeText (rs![assicurato] & vbCrLf & vbCrLf)
    .Bold = False
    acapp.Selection.TypeText ("In relazione al Vs. incarico del " &
rs![dataincarico] & ", si allega copia dell'atto di liquidazione
amichevole sottoscritto per:" & vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("£. " & rs![liquidato] & "      " &
vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("autorizzandovene il pagamento." &
vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("Padova, lì " & vbCrLf & vbCrLf)
    acapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    acapp.Selection.TypeText ("p. LIDAV s.a.s. " & vbCrLf)
    acapp.Selection.TypeText ("p.i. CARLOT " & vbCrLf)
    acapp.Selection.ParagraphFormat.Alignment =
wdAlignParagraphJustify
    acapp.Selection.InsertBreak wdPageBreak
    .Bold = True
    .Name = "Lucida sans"
    .Size = 12
    acapp.Selection.TypeText ("LI.DA.V." & vbCrLf)
    .Bold = False
    .Size = 9
    acapp.Selection.TypeText ("Perizie Assicurative" & vbCrLf)
    acapp.Selection.TypeText ("GESTIONE E LIQUIDAZIONE DANNI" & vbCrLf
& vbCrLf)
    .Size = 8
    .Color = wdColorBrightGreen
    acapp.Selection.TypeText ("Sede operativa di" & vbCrLf)
    acapp.Selection.TypeText ("Via XXIV Maggio, 29" & vbCrLf)
    acapp.Selection.TypeText ("31021 Mogliano Veneto (TV)" & vbCrLf)
    acapp.Selection.TypeText ("tel 041.5906510 r.a." & vbCrLf)
    acapp.Selection.TypeText ("fax 041.5934119-5906619" & vbCrLf)
    acapp.Selection.TypeText ("E-mail 
li...@lidav.com
" & vbCrLf)
    acapp.Selection.TypeText ("
http://www.lidav.it
" & vbCrLf)
    acapp.Selection.TypeText ("P.I. 03096270271" & vbCrLf)
    .Color = wdAuto
    .Name = "arial"
    .Size = 12
    acapp.Selection.TypeText (vbCrLf & vbCrLf)
    .Bold = True
    .Name = "courier"
    acapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    acapp.Selection.TypeText ("RELAZIONE DI PERIZIA DANNI - ")
    .Underline = wdUnderlineWords
    acapp.Selection.TypeText ("FURTO INCENDIO" & vbCrLf)
    .Underline = wdUnderlineNone
    .Bold = False
    acapp.Selection.TypeText (vbCrLf)
    acapp.Selection.ParagraphFormat.Alignment =
wdAlignParagraphJustify
    acapp.Selection.TypeText ("Agenzia" & vbTab & vbTab & vbTab &
rs![agenzia] & vbCrLf)
    acapp.Selection.TypeText ("Compagnia" & vbTab & vbTab &
rs![descrizionecompagnia] & vbCrLf)
    acapp.Selection.TypeText ("Polizza n." & vbTab & vbTab &
rs![Polizza] & vbCrLf)
    acapp.Selection.TypeText ("Mod. Polizza" & vbTab & vbCrLf)
    acapp.Selection.TypeText ("Sin. n." & vbTab & vbTab & vbTab &
rs![sinistroagenzia] & vbCrLf)
    acapp.Selection.TypeText ("del" & vbTab & vbTab & vbTab & vbTab &
vbCrLf)
    acapp.Selection.TypeText ("Premio pagato" & vbTab & vbCrLf)
    acapp.Selection.TypeText ("Denunciato" & vbTab & vbTab & vbCrLf)
    acapp.Selection.TypeText ("Liquidato" & vbTab & vbTab &
rs![liquidato] & vbCrLf)
    acapp.Selection.TypeText ("Accertato" & vbTab & vbTab & vbCrLf &
vbCrLf)
    .Name = "garamond"
    acapp.Selection.TypeText ("CONTRAENTE / ASSICURATO: ")
    .Bold = True
    acapp.Selection.TypeText (rs![assicurato] & vbCrLf)
    .Bold = False
    .Name = "courier"
    acapp.Selection.TypeText (vbCrLf & vbCrLf)
    acapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    acapp.Selection.TypeText ("p. LIDAV s.a.s. " & vbCrLf)
    acapp.Selection.TypeText ("p.i. CARLOT " & vbCrLf)
 
End With
doc.SaveAs nomefile
rs.Close
Set db = Nothing
doc.Close
Set doc = Nothing
acapp.Quit
Set acapp = Nothing
End If
Set acapp = New Word.Application
Set doc = acapp.Documents.Open(nomefile)
acapp.Visible = True
End Sub
Saluti.
Emanuele.