Aplicar una contraseña de solo lectura a 1000 documentos de word

hola, Juan !

... alguna forma de aplicar de una manera rapida mediante algun script una contrase#a
para que 1000 documentos de word aproximadamente, es decir que para poder modificarlos pidan una contrase#a.

1) copia/mueve/coloca/... tus documentos en una sola carpeta [o directorio 'comun']...
2) abre un documento nuevo
3) copia/pega/... las siguientes lineas en un modulo de codigo 'general'...

EN el proyecto de macros del documento 'nuevo' [vba en ms-word] ==Sub PonerClaveADocumentos()
Dim BuscarDonde As String, Clave As String, Archivo As String
BuscarDonde = '"pon aqui la ruta:\a la carpeta\comun\" ' <= NO olvides el '\' al final :))
Clave = "abc" ' <= pon aqui la clave de tu preferencia '
Archivo = Dir(BuscarDonde & "*.doc")
Application.ScreenUpdating = False
Do While Archivo <> ""
Documents.Open Archivo
With ActiveDocument
.WritePassword = Clave
.Save
.Close
End With
Archivo = Dir()
Loop
End Sub

-> OJO: se asume/espera/supone/... que los documentos NO tienen clave [originalmente] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.