code to facilitate opening locked documents

[gils usenet acct]

I am seeking code to the "open a file" dialog with a password already in
normal.dot and a variable for file name.

I assume it would be something like:

' in an open Word file, type 5 letters of the file name to be opened,
then set it as the variable "Xname"

Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend

Dim Xname As String

Xname = Selection.Text

Documents.Open FileName:="Xname", ConfirmConversions:= _

False, ReadOnly:=False, AddToRecentFiles:=False,
PasswordDocument:="myPassword123412341241234", _

PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _

WritePasswordTemplate:="", Format:=wdOpenFormatAuto

I am seeking faster file opening.

tia

Gil