Word searches for all doc documents at the specified location

Dim ADOc as String, Psdoc as Document

On Error Resume Next

ChDrive "C" to set the current drive letter

ChDir "c:documents and Settingsmy documentstemp" into the specified directory

ADOc = Dir ("*.doc")

application.screenupdating = False

Do While ADOc <> "" will return "" If it is a folder or if there is no such file.

' MsgBox ADOc

Set Psdoc = Documents.Open (ADOc) ' opens the specified document

Psdoc.protect Type:=wdallowonlyformfields, password:= "Password"

Psdoc.close True

ADOc = Dir ()

Loop

application.screenupdating = True

When you use it, place the code like above in a macro to use.