Hola. Tengo un datagrid y quiero pasar todos los datos a un word. Mi problema es que quiero poner la cabecera a mi gusto predefinida en el documento word porque si no me muestra nom_cliente, apellidoscliente....
Y también necesito sumar los valores de el campo importe para que al final del documento word se muestre la suma de los importes de todos los campos.

Muestro el documento word de la siguiente manera:

On Error GoTo ErrSub

'Variable de tipo Word Aplication
Dim o_Word As Word.Application
'Variable de objeto para hacer referencia al documento
Dim Documento As Word.Document

'Variable de tipo tabla para poder hacer _
referencia a la tabla dentro del Word
Dim Parrafo As Table


'La f es para referenciar a las filas y la _
C para las columnas de la tabla de Word
Dim F As Long
Dim C As Integer
Dim dato As Variant

'nuevo objeto de tipo Word Application
Set o_Word = New Word.Application

'hacemos visible el documento
o_Word.Visible = True

'Añadimos un Nuevo documento de word
Set Documento = o_Word.Documents.Add

'creamos una tabla dentro del documento
Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), _
DataGridreparacion.ApproxCount + 1, DataGridreparacion.Columns.Count)

For C = 0 To DataGridreparacion.Columns.Count - 1
DataGridreparacion.Row = 0
' Agregar las columnas
Parrafo.Cell(1, C + 1).Range.InsertAfter DataGridreparacion.Columns(C).Caption

' recorre las filas de la columna actual
For F = 0 To DataGridreparacion.ApproxCount - 1
' almacena el dato de la celda del datagrid de la columna actual
dato = DataGridreparacion.Columns(C).CellValue(DataGridre paracion.GetBookmark(F))
' agrega el dato a la celda de la tabla
Parrafo.Cell(F + 2, C + 1).Range.InsertAfter dato

Next F

Next C

'descargamos los objetos creados
Set o_Word = Nothing
Set Documento = Nothing
Set Parrafo = Nothing

Exit Sub

ErrSub:

MsgBox Err.Description, vbCritical
On Error Resume Next
Set Parrafo = Nothing
Set Documento = Nothing
Set o_Word = Nothing