Hola Francisco
Francisco F. escribió:
En la oficina tienen un documento de write compuesto por muchas tablas todas
seguidas.
Como han modificado el margen ahora tienen que mover todas las tablas unos
milimetros a la derecha, pero la unica forma que saben es una a una.
¿Existe alguna forma de mover los margenes de las tablas tanto el dcho como el
izdo todas de golpe?
lo más fácil es una macro. Aunque para los margenes izquierdo y derecho
tengas que cambiar algo más dependiendo de la orientación, si el ancho
es relativo, etc.
En el caso más simple, algo como esto puede funcionar:
Option Explicit
Sub Cambiar_formato_tabla
Dim iMargenSuperior&
Dim iMargenInferior&
Dim iMargenIzquierdo&
Dim iMargenDerecho&
'descomentar lo que quiera usar, AQUí y en bucle
iMargenSuperior = 0
iMargenInferior = 500 '= 0,50 cm
'iMargenIzquierdo =
'iMargenDerecho =
Dim oTablas as Object, n&, oTabla as Object
oTablas = ThisComponent.getTextTables()
For n = 0 To oTablas.getCount()-1
oTabla = oTablas.getByIndex(n)
oTabla.TopMargin = iMargenSuperior
oTabla.BottomMargin = iMargenInferior
'oTabla.LeftMargin = iMargenIzquierdo
'oTabla.RightMargin = iMargenDerecho
Next
End Sub
--
Ariel Constenla-Haile
La Plata, Argentina
[EMAIL PROTECTED]
[EMAIL PROTECTED]
http://www.arielconstenlahaile.com.ar/ooo/
"Aus der Kriegsschule des Lebens
- Was mich nicht umbringt,
macht mich härter."
Nietzsche Götzendämmerung, Sprüche und Pfeile, 8.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
