Gigastur

Servicios informáticos

615 654 407
info@gigastur.com

  • Inicio
  • Servicios
    • Asistencia a domicilio
    • Reparación de ordenadores
    • Mantenimiento para empresas
    • Diseño web y hosting
  • Precios
    • Mantenimiento para empresas
    • Diseño web
    • Asistencia a domicilio
    • Reparaciones en tienda
    • Bonos de mantenimiento
    • Alojamiento web
  • Trabajos realizados
  • Contacto
  • Blog
    • Comandos Linux
    • Comandos Windows
    • MySQL
    • Laravel
    • Steam
    • Herramientas Sysadmin

Libreoffice: macro para documentos legales para abogados

17/09/2019 por Igor García Deja un comentario

Recientemente hicimos la migración de Microsoft Office a LibreOffice en un despacho de abogados y nos encontramos con que utilizaban una macro para dar formato a sus documentos.

Lo que hacía esta macro era:

  • Aumenta el margen superior a 5 cm
  • Aumenta el margen inferior a 3,5 cm
  • Para las páginas impares, fija el margen izquierdo a 3,5 cm y el derecho en 1,5 cm
  • Para las páginas pares, fija el margen izquiero a 1,5 cm y el derecho a 3,5 cm

Para lograr esto con LibreOffice programamos esta macro, que podéis instalar de la siguiente manera:

Abre LibreOffice Writer y navega hasta Herramientas, macros, editar.

En la ventana que aparece pegamos este código, justo después de sub Main y antes de end sub:

Dim oViewCursor     'Current view cursor
Dim oStyle          'Current page style
oViewCursor = ThisComponent.CurrentController.getViewCursor()
' page style name
Dim  pageStyle as String
pageStyle = oViewCursor.PageStyleName
' get page style object
oStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName(pageStyle)
' set margins 
'   .5" = 1270 (.5 * 2540)
oStyle.BottomMargin = 3500
oStyle.LeftMargin = 3500
oStyle.RightMargin = 1500
oStyle.TopMargin = 5000
'  oStyle.MIRRORED = True
oStyle.PageStyleLayout = com.sun.star.style.PageStyleLayout.MIRRORED 'Diseño REFLEJADO
' set orientation
oStyle.IsLandscape = True  
' swap page dimensions
'temp = oStyle.Width
'oStyle.Width = oStyle.Height
'oStyle.Height = temp

Guardamos los cambios

Ahora podemos dar formato al documento accediendo a Herramientas, macros, ejecutar macro. Seleccionar mis macros, Standard, Module 1 y doble clic sobre Main, como aparece en la imagen:

LibreOffice Macros

Así dará el formato deseado al documento. OJO, porque este formato no se puede deshacer con Ctrl + Z, tendrás que salir sin guardar los cambios si no quieres conservarlo.

Para facilitar el acceso a la macro también podemos poner un botón que la ejecute en la barra de herramientas así:

  • Menú ver, barras de herramientas, personalizar.
  • Pestaña barras de herramientas, seleccionamos categoría macros y abajo mis macros.
  • Seleccionamos Main y pulsamos el botón con la flecha a la derecha.
  • Aceptamos los cambios y ya podremos ejecutar la macro tan solo haciendo clic en el botón main de la barra de herramientas.

Como curiosidad, dejamos a continuación la macro de Microsoft Word en la que nos hemos basado:

Sub Macro()
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(5)
        .BottomMargin = CentimetersToPoints(3.5)
        .LeftMargin = CentimetersToPoints(3.5)
        .RightMargin = CentimetersToPoints(1.5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = True
    End With
End Sub

Categorías: software

Deja una respuesta Cancelar la respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Categorías

Enlaces

  • Abode PDF Reader
  • Actualizar a Windows 10
  • Anti Ransomware
  • Aviso de cookies
  • Browser Diet
  • Buenas practicas Ransomware
  • BuiltWith
  • cdlibre
  • Chocolatey
  • CIDR Calculator
  • Consulta numero móvil
  • Cual es mi IP
  • Descarga de DLL
  • Descarga de OCX
  • Descarga de RPM
  • Descarga de Windows y Office
  • Descarga de Windows y Office
  • DistroTest
  • Dumo
  • explainshell
  • File-extensions
  • FileHippo
  • Flash Player
  • Geolocalización Multi IP
  • HDDScan
  • htaccesstools
  • Ip Location
  • Kaspersky
  • LinuxServer.io
  • Máquinas Virtuales OSBoxes
  • Microsoft Doc
  • ms-vnext: Windows y Office
  • Ninite
  • Nirsoft
  • Open Source Alternatives
  • Patch My PC
  • PC decrapifier
  • PCI Lookup
  • PCI-IDS
  • pcidatabase
  • PCIids
  • Port Listener
  • Portable Freeware
  • Router Passwords
  • Saber tipografía de una foto
  • Shodan
  • Ssega
  • Sumo
  • Sysinternals
  • SystemRescueCd
  • Test de velocidad
  • The eye
  • Virustotal
  • Windows ISO
  • Windows Mini
  • WizTree
  • You Get Signal

Contacto

  • 615 654 407
  • info@gigastur.com

Entradas recientes

  • Backups: Borg VS Restic
  • Errores en WordPress tras actualizar
  • Activar teclado PS/2 en Windows 10
  • Desactivar apertura de Microsoft Edge al acceder a Internet Explorer
  • Importar y exportar contraseñas en Mozilla Firefox

Control remoto

  • Control remoto Windows
  • Control remoto MAC
  • Versión completa Windows
  • Servicio Windows
  • Control remoto XP
  • Servicio XP

Aviso legal | Política de privacidad | Política de cookies

Utilizamos cookies para ofrecerte la mejor experiencia en nuestra web.

Puedes aprender más sobre qué cookies utilizamos o desactivarlas en los ajustes.

Gigastur
Powered by  GDPR Cookie Compliance
Resumen de privacidad

Esta web utiliza cookies para que podamos ofrecerte la mejor experiencia de usuario posible. La información de las cookies se almacena en tu navegador y realiza funciones tales como reconocerte cuando vuelves a nuestra web o ayudar a nuestro equipo a comprender qué secciones de la web encuentras más interesantes y útiles.

Cookies estrictamente necesarias

Las cookies estrictamente necesarias tiene que activarse siempre para que podamos guardar tus preferencias de ajustes de cookies.

Si desactivas esta cookie no podremos guardar tus preferencias. Esto significa que cada vez que visites esta web tendrás que activar o desactivar las cookies de nuevo.

Cookies de terceros

Esta web utiliza Google Analytics para recopilar información anónima tal como el número de visitantes del sitio, o las páginas más populares.

Dejar esta cookie activa nos permite mejorar nuestra web.

¡Por favor, activa primero las cookies estrictamente necesarias para que podamos guardar tus preferencias!