Moverse y editar tablas dococumento word desde VB
Hola,
quiero hacer unos informes y para ello utilizaré una plantilla de word con muchas tablas, quiero desde VB ir llenandolas.
He encontrado un método pero creo que es muy rudimentario y gasta muchos recursos, lo he empezado a implementar de la siguiente forma:
Dim CeldaEdicion As Cell
Set CeldaEdicion = Midoc.Tables(1).Cell(Row:=1, Column:=2)
CeldaEdicion.Range.InsertAfter "EXP1"
Set CeldaEdicion = Nothing
Set CeldaEdicion = Midoc.Tables(1).Cell(Row:=2, Column:=2)
CeldaEdicion.Range.InsertAfter "93.377.53.11"
Set CeldaEdicion = Nothing
Set CeldaEdicion = Midoc.Tables(2).Cell(Row:=1, Column:=1)
CeldaEdicion.Range.InsertAfter "segunda tabla 1/1"
Set CeldaEdicion = Nothing
Saben alguna otra forma de hacerlo sin tener que utilizar la variable tipo Cell? Es un documento de una solicitud y tiene como 100 o 120 campos (hago el informe en formato word)
Además, solo se utilizar el método "InsertAfter" y no puedo cambiar de fuente en la misma celda. Me gustaria saber si existe otra forma de hacerlo.
Un saludo y muchas gracias
quiero hacer unos informes y para ello utilizaré una plantilla de word con muchas tablas, quiero desde VB ir llenandolas.
He encontrado un método pero creo que es muy rudimentario y gasta muchos recursos, lo he empezado a implementar de la siguiente forma:
Dim CeldaEdicion As Cell
Set CeldaEdicion = Midoc.Tables(1).Cell(Row:=1, Column:=2)
CeldaEdicion.Range.InsertAfter "EXP1"
Set CeldaEdicion = Nothing
Set CeldaEdicion = Midoc.Tables(1).Cell(Row:=2, Column:=2)
CeldaEdicion.Range.InsertAfter "93.377.53.11"
Set CeldaEdicion = Nothing
Set CeldaEdicion = Midoc.Tables(2).Cell(Row:=1, Column:=1)
CeldaEdicion.Range.InsertAfter "segunda tabla 1/1"
Set CeldaEdicion = Nothing
Saben alguna otra forma de hacerlo sin tener que utilizar la variable tipo Cell? Es un documento de una solicitud y tiene como 100 o 120 campos (hago el informe en formato word)
Además, solo se utilizar el método "InsertAfter" y no puedo cambiar de fuente en la misma celda. Me gustaria saber si existe otra forma de hacerlo.
Un saludo y muchas gracias
