W2007. Selección tablas

11/03/2010 - 09:10 por Teletreks | Informe spam
Hola a todos y gracias por el tiempo dedicado al foro.

Mi pregunta es si se podría hacer una macro que permitiera:

a) seleccionar todas las tablas existentes en un documento de word

b) aplicar a las tablas seleccionada un formato (alineación celdas, anchura
columnas, ...) uniforme.

gracias todos y saludos
 

Leer las respuestas

#1 Ignacio
11/03/2010 - 11:32 | Informe spam
¡Hola, Teletreks!

Puedes formatear todas las tablas por código como en el siguiente
ejemplo:

Sub FormateaTablas()
Dim i As Integer

For i = 1 To ActiveDocument.Tables.Count 'Recorre todas las tablas
del documento actual
With ActiveDocument.Tables(i)
.Select
.Rows.Alignment = wdAlignRowCenter 'Centra la tabla
.PreferredWidthType = wdPreferredWidthPoints 'Ancho en
puntos
.PreferredWidth = CentimetersToPoints(12) 'Ancho del tabla
12 cm
.Columns(1).PreferredWidth = CentimetersToPoints(5) 'Ancho
de la 1ª columna 5 cm
.Columns(2).PreferredWidth = CentimetersToPoints(6) 'Ancho
de la 2ª columna 6 cm
Selection.ParagraphFormat.Alignment wdAlignParagraphCenter 'Alineación central de las columnas
End With
Next
End Sub

Ajústalo a tus necesitades.
Espero que te sirva de ayuda.

Un saludo,
Ignacio.

Preguntas similares