PasswordDocument = "123"
oWord = CreateObject("Word.Application")
With oWord
	.Documents.Open("e:\doc1",,,,PasswordDocument)
	.Visible = .T.
EndWith