Sub CreaFileWordConTabella() Dim objWordApp As Object Dim objDoc As Object Dim objTable As Object Dim numRows As Integer Dim numCols As Integer Dim r As Integer Dim c As Integer Dim numero As Integer ' Crea un nuovo oggetto Word alcuni comandi sono ripetuti a scopo didattico Set objWordApp = CreateObject("Word.Application") objWordApp.Visible = True ' Mostra Word ' Crea un nuovo documento Set objDoc = objWordApp.Documents.Add ' Imposta il numero di righe e colonne per la tabella numRows = 18 numCols = 4 ' Crea una nuova tabella nel documento Word Set objTable = objDoc.Tables.Add(objDoc.Range, numRows, numCols) ' Imposta i bordi della tabella objTable.Borders.Enable = True ' Inserisci numeri all'inizio di ogni riga ed etichette di colonna numero = 7 objTable.Cell(1, 1).Range.Text = Date objTable.Cell(1, 2).Range.Text = "ENTRATE" objTable.Cell(1, 3).Range.Text = "USCITE" objTable.Cell(1, 4).Range.Text = "TOTALE" objTable.Cell(1, 1).Range.ParagraphFormat.Alignment = 1 ' 1 corrisponde all'allineamento al centro objTable.Cell(1, 2).Range.ParagraphFormat.Alignment = 1 ' 1 corrisponde all'allineamento al centro objTable.Cell(1, 3).Range.ParagraphFormat.Alignment = 1 ' 1 corrisponde all'allineamento al centro objTable.Cell(1, 4).Range.ParagraphFormat.Alignment = 1 ' 1 corrisponde all'allineamento al centro For r = 2 To numRows numero = numero + 1 ' Inserisci il numero all'inizio della riga objTable.Cell(r, 1).Range.Text = "Ore " & numero & "." ' Inserisci altri dati nella riga (se necessario) ' For c = 2 To numCols ' Puoi inserire altri dati qui, se necessario ' objTable.cell(r, c).Range.Text = "Dato " & r & "-" & c 'Next c Next r End Sub