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