Public Sub ApriDocumento()
Set appwd = CreateObject("Word.Application")
appwd.Visible = True
appwd.Documents.Open FileName:=App.Path & "\domanda.doc", ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto
appwd.ActiveDocument.SaveAs FileName:=App.Path & "\domanda.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Set appwd = Nothing
End Sub
Public Sub AssociaModello()
Dim appwd As Object
Dim i As Integer
'On Error Resume Next
Call inizvet
Set appwd = CreateObject("Word.Application")
appwd.Visible = True
appwd.Documents.Add Template:=App.Path & "\domanda.dot", NewTemplate:=False, DocumentType:=0
appwd.Selection.Find.ClearFormatting
appwd.Selection.Find.Replacement.ClearFormatting
For i = 0 To 18
With appwd.Selection.Find
.Text = a(i)
.Replacement.Text = Data3.Recordset.Fields(i).Value
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
appwd.Selection.Find.Execute Replace:=wdReplaceAll
Next
' appwd.ActiveDocument.SaveAs FileName:=App.Path & "\domanda.doc", FileFormat _
' :=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
' True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
' False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
' SaveAsAOCELetter:=False
Set appwd = Nothing
End Sub