VB操作word，如何设置修改密码啊？

锯子

VB操作word，如何设置修改密码啊？

我设置了开启密码，但不能设置修改密码啊，我的程序代码是：

Dim wordapp As New Word.Application
Dim worddoc As New Word.Document
Private Sub Form_Load()
wordapp.Documents.Add App.Path + "\doc1.dot"
wordapp.Selection.GoTo wdGoToBookmark, , , "anfore"
wordapp.Selection.TypeText "anfore"
Set worddoc = wordapp.ActiveDocument
worddoc.SaveAs App.Path + "\result.doc", , , "anfore"
Set wordapp = Nothing
Set worddoc = Nothing
MsgBox "ok"
End
End Sub

帮帮修改一下，怎么设置修改密码。

或者发邮件给我，hjy2920@163.com

谢谢了！

如意

这种东东用录制宏，然后保存宏时给它存成自动宏的名称，这样不就轻松搞定了嘛，还用麻烦高手帮你编写呀。