Archivo

Posts Tagged ‘word’

Apuntes Office

Formularios en Word

Estos formularios permiten introducir datos en un documento y que éstos se repitan a lo largo del mismo sin necesidad del meterlos una y otra vez.

Hay que bajar el nivel de seguridad de las macros, esto se graba en la plantilla normal.dot por lo que sólo se hace una vez y es necesario para la ejecución de una macro a la apertura del documento;

  1. Haz clic en Herramientas -> Macro -> Seguridad.
  2. Activa la opción “Medio”, y acepta el cuadro de diálogo.

Partimos de la plantilla del documento hecha y terminada, es decir, sólo tenemos que insertar los campos donde se insertará el texto automáticamente.

Pulsamos Control + Inicio. para situarnos en la primera variable si existiera. (OJO para ver donde están los campos de petición y los de inserción pulsar ALT+F9)

Vamos situándonos donde queremos poner la/s variables del documento y pulsamos Control + F9 aparecerá un campo delimitado por llaves entre las cuales escribiremos:

  • { ASK slug “Nombre a mostrar” } y se pulsa F9
    Esto creará un cuadro de diálogo para asignar un valor a la variable “slug”, mostrando como titulo del diálogo “Nombre a mostrar” .

Luego situarse en las partes del documento donde vaya ese dato y pulse nuevamente Control + F9 donde se escribirá:

  •  { slug }
    Si pulsa F9, se sustituirá el valor que hayamos introducido en el diálogo anterior.

Hay que repetir este proceso con tantas variables como tenga el documento. Es independiente introducir los valores de todas las variables y luego las variables que viceversa o incluso combinando los procesos (como se ha explicado).

Para automatizar el proceso al abrir el fichero se hará lo siguiente:

Vamos al editor de VBA (Herramientas/Macro/Editor de VBA) y vamos explorador de proyectos donde se verá una estructura jerárquica parecida a la lista de carpetas del Explorador de Windows.

Se abre el objeto “Project (TuDocumento)” – Microsot Word Objetos – ThisDocument (doble click) y en el editor se pega el siguiente código:

Private Sub Document_Open()
   Selection.WholeStory
   Selection.Fields.Update
End Sub

Grabar y salir.

Abre nuevamente tu documento. Debería preguntar por el nombre de las variables y su valor.

OJO: Esta automatización da un error cuando se lanza con un formulario bloqueado (candadito en la barra de herramientas de formularios). Para proteger el formulario después de la automatización agregar estas líneas al script anterior:

If ActiveDocument.ProtectionType = wdNoProtection Then
   ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
   NoReset:=True
Else
   ActiveDocument.Unprotect Password:=""
End If

Extraído de:
http://www.compartir-tecnologias.es/como-repetir-campos-formularios-automaticamente-ayuda-205353932.html

http://support.microsoft.com/kb/191028/es

Password de un excel protegido:

Presiona ALT + F8 para acceder a las macros, le damos un nombre y crear.Una vez en el editor escribimos:

Sub breakit() 

Dim i As Integer, j As Integer, k As Integer 
Dim l As Integer, m As Integer, n As Integer 
On Error Resume Next 
For i = 65 To 66 
For j = 65 To 66 
For k = 65 To 66 
For l = 65 To 66 
For m = 65 To 66 
For i1 = 65 To 66 
For i2 = 65 To 66 
For i3 = 65 To 66 
For i4 = 65 To 66 
For i5 = 65 To 66 
For i6 = 65 To 66 
For n = 32 To 126 
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ 
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ 
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) 
If ActiveSheet.ProtectContents = False Then 
MsgBox "One usable password is " & Chr(i) & Chr(j) & _ 
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _ 
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) 
Exit Sub 
End If 
Next 
Next 
Next 
Next 
Next 
Next 
Next 
Next 
Next 
Next 
Next 
Next 
End Sub 
</pre>

Guardas y ejecutas el macro ( flechita de play en el VB ) tarda un poco pero al rato aparece una ventana con la clave interna de exel

Mas info:

http://www.hackplayers.com/2014/03/como-desproteger-un-excel-con-password.html
http://exceltrabajaporti.com/romper-contrasenas-de-excel-2007-y-2010-hacking-excel/

Anuncios
Categorías:Herramientas Etiquetas: , ,