Insertar tabla en word desde Visual Basic 2010

08/01/2011 - 16:41 por iancito | Informe spam
¡ Hola !
Estoy haciendo una aplicación, donde he de insertar varias tablas en word, el problema que se me plantea, es que quiero insertarla por ejemplo en el centimetro 8 del margen izquierdo, he intentado con:

.Selection.TypeText(Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & )
.ActiveDocument.Tables.Add(Range:=.Selection.Range, NumRows:=3, NumColumns:=1, DefaultTableBehavior:=1, AutoFitBehavior:=1)
Y sigue insertandola en el margen izquierdo del documento:
También:
With .Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(8)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With

¿Alguna idea?
Muchas gracias

Preguntas similare

Leer las respuestas

#1 Ignacio
18/01/2011 - 14:10 | Informe spam
¡Hola, Iancito!

La forma correcta de situar la tabla a 8 cm del margen izquierdo es:
Selection.Tables(1).Rows.LeftIndent = CentimetersToPoints(8)
para lo cual debes tener seleccionada la tabla.

Espero que te sirva de algo.
Un saludo,
Ignacio.
Respuesta Responder a este mensaje
#2 iancito
19/01/2011 - 09:11 | Informe spam
iancito escribió el 08/01/2011 16:41 :
¡ Hola !
Estoy haciendo una aplicación, donde he de insertar varias tablas en
word, el problema que se me plantea, es que quiero insertarla por ejemplo en el
centimetro 8 del margen izquierdo, he intentado con:

.Selection.TypeText(Text:=vbTab & vbTab & vbTab & vbTab & vbTab
& vbTab & )
.ActiveDocument.Tables.Add(Range:=.Selection.Range, NumRows:=3, NumColumns:=1,
DefaultTableBehavior:=1, AutoFitBehavior:=1)
Y sigue insertandola en el margen izquierdo del documento:
También:
With .Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(8)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With

¿Alguna idea?
Muchas gracias


Muchas gracias Ignacio.

Voy a probarlo
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida