本示例首先打开文档 Earnings.wps 并为其设置密码,然后关闭该文档。

Set myDoc = Documents _
    .Open(FileName:="C:\My Documents\Earnings.wps")
    myDoc.Password = "Kingsoft"
    myDoc.Close