Dim objword As New Word.ApplicationClass
                objword = CreateObject("Word.Application")
                objword.Visible = True  
                objword.Documents.Open(filename)              ' apro il mio sorgente filename è una path   ' qui  ho il farfallio
                objword.Activate()  
                objword.ActiveWindow.Selection.MoveDown(, 8)                       'compilo
                objword.ActiveWindow.Selection.TypeText(Text:=CStr(Now.Date))
                objword.ActiveWindow.Selection.MoveDown(, 4)
                objword.ActiveWindow.Selection.TypeText(Text:=TxtEmail.Text)
                objword.ActiveWindow.Selection.MoveDown(, 2)
                objword.ActiveWindow.Selection.EndKey()
                objword.ActiveWindow.Selection.TypeText(Text:=TxtLegale.Text)
                objword.ActiveDocument.SaveAs("C:\DocumentiGECO\Richieste\" & TxtPtCod.Text.Trim & "_RichiestaDocumentazione.rtf") 'salvo
                objword.Documents.Close()
                objword.Quit()
                FrmGeco.GecoProgBar.Value = FrmGeco.GecoProgBar.Maximum * 40 / 100   ' una prog per far vedere che qualcosa fa..
                Me.Refresh()   ' messo per tornare sull'applicazione e proseguire con l'invio in email