Office Document Property Resetter (Reseteador de propiedades de archivos de Office)

NeoEGM — Mon, 10 Aug 2009 18:37:19 +0000

Este es un programa que hice hace dos años para solucionar un problema que tenía un amigo mío. Él tenía en su trabajo un grupo de archivos de Word y Excel creados en diferentes computadoras y quería limpiar sus propiedades para que no mostraran el Autor/Tïtulo/Tema/etc. que estaban configurados…

Este habría sido un problema simple de resolver si hubieran sido unos pocos archivos… Podrían haberse limpiado manualmente…

Pero había muchísimos!

Así que… Hice este programa

Es muy fácil de usar… Simplemente tenés que elegir la carpeta en la que están localizados los archivos (busca en subdirectorios también) y presionar Start…

No se puede cancelar mientras está trabajando… Así que, si son muchos archivos, el proceso podría tomar un tiempo considerable… Recomiendo ejecutarlo en un momento en el que se pueda dejar de utilizar la computadora…

Una vez que terminó, se puede ver un resumen de lo realizado…

En este caso fueron sólo dos archivos…

Y eso es todo… Las propiedades van a estar limpias…

Office Document Property Resetter está liberado bajo la licencia GNU GPL v3 (attached)…

Ha sido probado con Office 2003 y Office 2007…

Ahora, finalmente, los links de descarga…

Office Document Property Resetter v1.0

Descargar Código Fuente v1.0

Para recompilar a partir del código fuente, vas a tener que copiar los siguientes archivos a la carpeta “Office Document Property Resetter\Office 2003“:

C:\Program Files\Common Files\Microsoft Shared\Office11\MSO.DLL
C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB
C:\Program Files\Microsoft Office\Office11\MSWord.olb
C:\Program Files\Microsoft Office\Office11\excel.exe

Esas rutas son de una instalación de Office 2003… Recomiendo usar esos archivos en vez de los de una instalación de Office 2007 (o posterior) ya que estos últimos harían el programa inutilizable en computadoras que tengan una versión anterior…

Nota: Las rutas provienen de una instalación de Windows en inglés, así que pueden no ser completamente válidas en el caso de tener instalado el sistema operativo en otro idioma. En el caso de no encontrarlas, se puede buscar los archivos por su nombre para hallarlos.

En vez de copiar los archivos, podrías también localizar la siguiente sección de código en el archivo “Office Document Property ResetterDlg.h“:

//#import "C:\Program Files\Common Files\Microsoft Shared\Office11\MSO.DLL"
#import "Office 2003\MSO.DLL" \
	no_namespace \
	rename("SearchPath", "SearchPathMSO") \
	rename("RGB", "RGBMSO")

//#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
#import "Office 2003\VBE6EXT.OLB" \
	no_namespace

//#import "C:\Program Files\Microsoft Office\Office11\MSWord.olb"
#import "Office 2003\MSWord.olb" \
	rename("FindText","FindTextWord")  \
	rename("ReplaceText","ReplaceTextWord")  \
	rename("ExitWindows","ExitWindowsWord")  \
	rename("RGB","RGBWord")  \
	no_dual_interfaces

//#import "C:\Program Files\Microsoft Office\Office11\excel.exe"
#import "Office 2003\excel.exe" \
	exclude("IFont")	\
	exclude("IPicture")	\
	rename("ReplaceText","ReplaceTextXLS")  \
	rename("RGB","RGBXLS")  \
	rename("DialogBox","DialogBoxXLS")  \
	rename("CopyFile","CopyFileXLS")  \
	no_dual_interfaces

Y reemplazarla con (notar el agregado de la barra invertida al final de las líneas de #import):

#import "C:\Program Files\Common Files\Microsoft Shared\Office11\MSO.DLL" \
	no_namespace \
	rename("SearchPath", "SearchPathMSO") \
	rename("RGB", "RGBMSO")

#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB" \
	no_namespace

#import "C:\Program Files\Microsoft Office\Office11\MSWord.olb" \
	rename("FindText","FindTextWord")  \
	rename("ReplaceText","ReplaceTextWord")  \
	rename("ExitWindows","ExitWindowsWord")  \
	rename("RGB","RGBWord")  \
	no_dual_interfaces

#import "C:\Program Files\Microsoft Office\Office11\excel.exe" \
	exclude("IFont")	\
	exclude("IPicture")	\
	rename("ReplaceText","ReplaceTextXLS")  \
	rename("RGB","RGBXLS")  \
	rename("DialogBox","DialogBoxXLS")  \
	rename("CopyFile","CopyFileXLS")  \
	no_dual_interfaces

Eso va a hacer que el compilador busque los archivos en su ubicación real… (No olvidar actualizar las rutas en el caso de que se tenga instalado el Office en una localización diferente)

Eso es todo… Que lo disfrutes!

Incoming search terms for the article:

Generador de contraseñas aleatorias para Excel

NeoEGM — Wed, 22 Jul 2009 17:42:22 +0000

Algunas veces quizás tengas que generar automáticamente diferentes contraseñas aleatorias. Esta podría ser una tarea muy simple si existiera una función de Excel tal como “RandomPassword”, así podrías escribir:

=RandomPassword(8)

Y obtener algo así como:

e8NwB9Bi

Bueno, esa es exáctamente la idea del Add-in (complemento) que hice…

Si no es esto lo que estás buscando, como alternativa, podés visitar el generador online de contraseñas aleatorias.

La sintáxis de la función es:

=RandomPassword(length, [uppercase = TRUE], [numbers = TRUE],
[lowercase = TRUE])

Así de simple… Acá están los links de descarga:

Add-in XLAM (Excel 2007)

Ejemplo XLSX (Excel 2007)

Add-in XLA (Excel 2003)

Ejemplo XLS (Excel 2003)

Si no sabés cómo podrías instalar un Add-in (complemento) de Excel, pronto voy a escribir un post al respecto, así que mantenete atento a las actualizaciones del sitio… Por ahora, te puedo dar los siguientes pasos:

1- Copiar la version correspondiente del add-in (XLA o XLAM) a C:\Archivos de Programa\Microsoft Office\OfficeXX\Library (donde XX es la versión de Office, siendo 12 para Office 2007)
2- Seguir las instrucciones dadas acá para Office 2003 or anterior, o ver los pasos de la primera parte de esta página para Office 2007.

El código está liberado bajo la licencia GNU GPL v3…

En el caso de que quieras ver el código de la función sin tener que mirar dentro del add-in:

Function RandomPassword(Length As Integer, Optional Upper As Boolean = True, Optional Number As Boolean = True, Optional Lower As Boolean = True)
    If Not Upper And Not Lower And Not Number Then
        RandomPassword = "";
        Exit Function
    End If

    Dim Ret As String
    Dim Num As Integer
    Dim Repeat As Boolean

    Randomize

    Chars = 26 * 2 + 10 '26 (a-z) + 26 (A-Z) + 10 (0-9)
        'a-z = 97-122
        'A-Z = 65-90
        '0-9 = 48-57

    For i = 1 To Length
        Repeat = False

        Num = Int(Chars * Rnd) 'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

        If Num &lt; 26 Then        'a-z
            If Lower Then
                Ret = Ret & Chr(Num + 97)
            Else
                Repeat = True
            End If
        ElseIf Num < 52 Then    'A-Z
            If Upper Then
                Ret = Ret & Chr(Num - 26 + 65)
            Else
                Repeat = True
            End If
        ElseIf Num < 62 Then    '0-9
            If Number Then
                Ret = Ret & Chr(Num - 52 + 48)
            Else
                Repeat = True
            End If
        End If

        If Repeat Then
            i = i - 1
        End If
    Next i

    RandomPassword = Ret
End Function

NeoEGM.com » MS Excel

Office Document Property Resetter (Reseteador de propiedades de archivos de Office)

Incoming search terms for the article:

Generador de contraseñas aleatorias para Excel

Incoming search terms for the article: