Dim MyWord As New Word.application
With MyWord
.Visible = True ' imposta false
.Documents.Add
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Selection.InlineShapes.AddPicture App.Path & "\Logo_ayy.jpg"
.Selection.TypeText "" & vbCrLf & vbCrLf
.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Selection.Font.Bold = wdToggle
.Selection.Font.Size = 16
.Selection.TypeText Text3.Text & " " & Date & vbCrLf & vbCrLf
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Selection.Font.Bold = wdToggle
.Selection.Font.Size = 26
.Selection.TypeText "" & vbCrLf
.Selection.Font.Underline = False
.Selection.TypeText "COMMESSA " & Text2.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.Selection.Font.Size = 65
.Selection.Font.Emboss = True
.Selection.TypeText ricorda & vbCrLf & vbCrLf
.Selection.Font.Size = 65
.Selection.TypeText Text1.Text & vbCrLf & vbCrLf