[Resuelto] Guardar en 2 destinos a la vez

Discute sobre la aplicación de hojas de cálculo
Responder
entarbol
Mensajes: 38
Registrado: Mié Jul 16, 2014 2:51 pm

[Resuelto] Guardar en 2 destinos a la vez

Mensaje por entarbol »

Me gustaría saber si hay alguna forma de que cada vez que se guarde el archivo, se guarde simultáneamente en un pen. Gracias
Última edición por entarbol el Lun May 22, 2023 7:47 pm, editado 1 vez en total.
OPENOFFICE 4.01 WINDOWS 8.1
Neftali R
Mensajes: 169
Registrado: Mar Jun 15, 2021 12:48 pm
Ubicación: Venezuela

Re: Guardar en 2 destinos a la vez

Mensaje por Neftali R »

Buen día,

No sé qué es un "pen", pero sé que hay extensiones que manejan copias de seguridad, yo personalmente no las uso, pero yo manejo un macro simple que hace una copia de seguridad al día de cada archivo que yo abra y modifique.

A ver si te sirve, eso sí, mi macro es para Libre Office, no debería haber problemas de incompatibilidad, pero es una posibilidad que no puede descartarse.

Tendrías que poner este macro en tu carpeta en un módulo de "Mis macros y diálogos" y después hacer que se ejecute con el evento o suceso de "Guardar documento".

El macro lo puedes asignar a algunos archivos específicos (yendo manualmente archivo por archivo y asignando el macro al suceso), o lo puedes asignar al programa y se aplica a todos los archivos, al menos así es en Libre Office.

Para acceder a "Mis macros y diálogos", debes ir a Herramientas>Macros>Organizar macros>BASIC...
Captura.PNG
Captura.PNG (104.01 KiB) Visto 1294 veces
De ahí vas a "Standard" y de "Standard" a un módulo y pegas el macro ahí.

Para asignar el macro a el suceso, vas a Herramientas>Personalizar>Sucesos y ahí buscas es suceso que más se adapte a tus necesidades.

Código: Seleccionar todo

Sub GuardarAutomatico
Dim sURL, sFecha As String, oDoc As Object
oDoc = ThisComponent
'Se obtiene el nombre del archivo que se está guardando.
sURL = Dir(oDoc .getURL,16)
'Se obtiene la fecha actual.
sFecha = Format(Now(), "ddmmyyyy")
'Se hace una ruta para guardar la copia automática.
sURL = ConvertToURL ("C:\Users\Ejemplo\Documents\Copias automaticas\"+sFecha+" "+sURL)
'Si no se ha creado un archivo ese día, se guarda una copia, si el archivo de esa ruta ya existe, no hace nada.
	If Dir(sURL) = "" Then oDoc.storeToRecoveryFile (sURL, Array())
End Sub
LibreOffice 7.2.6.2 | Windows 7 Ultimate
entarbol
Mensajes: 38
Registrado: Mié Jul 16, 2014 2:51 pm

Re: [Resuelto] Guardar en 2 destinos a la vez

Mensaje por entarbol »

Muchisimas gracias.
OPENOFFICE 4.01 WINDOWS 8.1
Responder