Question

为什么在某些计算机上运行此代码时会得到"Error 6124: You are not allowed to edit this section because it is protected."？我的开发机器上没有它。书签与表单字段相关联。

Set objWordApp = CreateObject("Word.Application")
Set oDoc = objWordApp.Documents.Open(strDocPath)
oDoc.bookmarks("CustomerName").Select
objWordApp.selection = "Mr Smith"
oDoc.bookmarks("CustomerNumber").Select
objWordApp.selection = "0001"
oDoc.save
oDoc.Bookmarks("Comments").Select
oDoc.ActiveWindow.View = 1
objWordApp.WindowState = 0
objWordApp.Visible = True
oDoc.Activate
objWordApp.Activate

Answer 1

在受保护/受限制的文档中，您需要引用.FormFields而不是.Bookmarks。

而不是：

oDoc.Bookmarks("CustomerName").Select
objWordApp.selection = "Mr Smith"

使用：

oDoc.FormFields("CustomerName").Result = "Mr Smith"

Answer 2

打开相关文档。转到文件 - ＆gt;选项 - ＆gt;常规。取消选中“在阅读视图中打开电子邮件附件和其他不可编辑的文件”框

http://answers.microsoft.com/en-us/office/forum/office_2013_release-word/run-time-error-4605-in-word-2013-no-information/1ca02c04-5cea-484e-bd23-f4d18183c1b2?auth=1

Answer 3

我有同样的错误。需要一段时间来弄明白，但文件权限（在Windows中）设置为只读。

在Windows资源管理器中，右键单击该文件并选择属性。然后取消选中“常规”选项卡上的“只读”复选框。

Answer 4

我和原始海报有同样的问题。一个用户收到6124错误，而其他用户则没有。我尝试了上述建议，但没有解决问题。对我有用的是使用此MS article.

中的快速修复程序将Word重置为其原始设置

希望它对其他人有帮助！

Word自动化错误6124

4 个答案: