obligada > comp.lenguajes.* > comp.lenguajes.visual-basic

Mi Nombre (04-10-2010, 10:05)
Hola a todos. Trabajo habitualmente con VB6 y de vez en cuando me toca
abrir documentos de Word donde relleno datos en tablas. He estado
investigando una cosa que me hace falta, pero que no consigo hacer. Se
trata de poder seleccionar una tabla, copiarla y pegarla en cierta
posición del documento y posteriormente rellenarla (esto lo tendría
que hacer una o varias veces). ¿Me podeis dar alguna pista a ver como
se podría hacer? Un saludo y gracias.
Mi Nombre (04-10-2010, 12:41)
Hola a todos de nuevo. Me respondo a mi mismo porque he encontrado
algo que me sirve. Lo pongo aquí por si alguien se puede aprovechar (o
por si me puede sugerir algo mejor).

.ActiveDocument.Tables(10).Select
.Selection.Copy
.ActiveDocument.Tables(12).Select
.Selection.Collapse Direction:=wdCollapseEnd
.Selection.InsertBreak Type:=wdPageBreak
.Selection.Paste

.ActiveDocument.Tables(11).Select
.Selection.Copy
.ActiveDocument.Tables(13).Select
.Selection.Collapse Direction:=wdCollapseEnd
.Selection.Text = vbCrLf
.Selection.Collapse Direction:=wdCollapseEnd
.Selection.Paste

.ActiveDocument.Tables(12).Select
.Selection.Copy
.ActiveDocument.Tables(14).Select
.Selection.Collapse Direction:=wdCollapseEnd
.Selection.Text = vbCrLf
.Selection.Collapse Direction:=wdCollapseEnd
.Selection.Paste

Esto lo tengo que refinar, pero bueno. Un saludo.
Temas Similares