VBA Excel creare un documento word contenente una tabella con righe di colore alternato

Questo esempio di codice, illustra una tecnica di come creare un nuovo documento word contenente una tabella con la colorazione alternate delle righe.

In questo esempio di codice VBA in Microsoft Excel, occorre aggiungere i riferimenti (strumenti->riferimenti) di Microsoft Word 12.0 object library nell'editor VBA per interragire con Microsoft Word 2007.

FAtto ciò la funzione qui di seguito, illustra questa tecnica.

Sub CreaTabellaWord()
Dim ObjWord As New Word.Application
Dim ObjDoc As Word.Document
Dim ObjTable As Word.Table
Dim IntRiga As Integer
Dim IntColonna As Integer
On Error GoTo errore

Set ObjDoc = ObjWord.Documents.Add
Set ObjTable = ObjDoc.Tables.Add(ObjDoc.Range, 3, 5) 'tabella composta da 3 righe e 5 colonne
With ObjTable
For IntRiga = 1 To 3
For IntColonna = 1 To 5
.Cell(IntRiga, IntColonna).Range.InsertAfter "Riga: " & IntRiga & ", Colonna: " & IntColonna
If (IntRiga Mod 2 = 0) Then
.Cell(IntRiga, IntColonna).Range.Shading.BackgroundPatternColor = wdColorBlue
Else
.Cell(IntRiga, IntColonna).Range.Shading.BackgroundPatternColor = wdColorAqua
End If
Next IntColonna
Next IntRiga
.Columns.AutoFit
ObjWord.Visible = True
End With
Set ObjTable = Nothing
Set ObjDoc = Nothing
Set ObjWord = Nothing
Exit Sub
errore:
MsgBox (Err.Description)

End Sub

Tramite la parola download potete scaricare il file excel di esempio utilizzato.

Download