如何从ACCESS里打开带密码的WORD文档

liwen

'创建Word对象
Set doc = CreateObject("word.application")
doc.Visible = True
'打开Word文件
doc.Documents.Open FileName:=CurrentProject.Path & "\测试.doc", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:=""