Word VBA Project 求助问题

wdpfox · 发表于 2022-10-19 16:11

想用VBA 代码操作Word 中加密的Project项目，网上查到的Excel代码：

Sub test()

Dim pah$, twb As Workbook

pah = ThisWorkbook.Path

Set twb = Workbooks.Open(pah & "test.xlsm")

Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute

Application.SendKeys "1"

Application.SendKeys "2"

Application.SendKeys "3" & "{ENTER}"

Application.SendKeys "{Esc}"

DoEvents

End Sub

相当于打开输入密码的对话框，用SendKeys发送相应的“按键”进去。

这段代码如何能在Word中实现？有请高手帮忙，谢谢！

wdpfox · 发表于 2022-10-21 15:17

自己顶一下，期望更多老师看到伸出援手

vbee · 发表于 2022-10-21 18:18

Sub test()
Dim pah$, doc As Document
pah = ActiveDocument.Path
Set doc = Documents.Open(pah & "\Test.docm")
Application.VBE.CommandBars(1).Controls("工具(T)").Controls("Project 属性(&E)...").Execute
SendKeys "1"
SendKeys "2"
SendKeys "3" & "{ENTER}"
SendKeys "{Esc}"
DoEvents
End Sub

复制代码

wdpfox · 发表于 2022-10-22 14:21

vbee 发表于 2022-10-21 18:18

先谢，周一上班后调试反馈。

wdpfox · 发表于 2022-10-23 18:31

vbee 发表于 2022-10-21 18:18

要先在word中打开test.docm吗？

vbee · 发表于 2022-10-24 12:58

本帖最后由 vbee 于 2022-10-25 13:44 编辑

已知密码去除WORD工程锁定

wdpfox · 发表于 2022-10-25 10:07

vbee 发表于 2022-10-24 12:58
运行时会自动打开同目录下的TEST文件
Set doc = Documents.Open(pah & "\Test.docm")

请老师看看，如何实现我已知密码的去除：

wdpfox · 发表于 2022-10-25 22:59

vbee 发表于 2022-10-24 12:58
已知密码去除WORD工程锁定

先谢，明天调试

wdpfox · 发表于 2022-10-26 09:24

本帖最后由 wdpfox 于 2022-10-26 16:20 编辑

vbee 发表于 2022-10-24 12:58
已知密码去除WORD工程锁定

感谢老师帮忙，收下了！
测试发现，在输入密码句出现问题。

代码放在word模板中了。

系统win10,office2019

		自动登录	找回密码
密码			免费注册