vba - 如何使文档在 Visual Basic 中保持 View.ShadeEditableRanges 属性

Question

我是 Visual Basic 的新手，但我正在组合一个宏，让我可以快速为组织中的每个部门制作信头，然后保护页眉和页脚，以便用户仅编辑其信件的文本。但这会在他们键入的任何内容后面创建一个黄色背景。

此代码删除黄色背景：

ActiveWindow.View.ShadeEditableRanges = False

但是一旦文档关闭并重新打开，黄色阴影就会重新出现。这也不会让它留下来：

ActiveDocument.ActiveWindow.View.ShadeEditableRanges = False

我成功创建了每次打开文档时运行的宏：

Private Sub Document_Open()
ActiveDocument.ActiveWindow.View.ShadeEditableRanges = False
End Sub

这正确地删除了突出显示，但是，当然，它会导致大多数用户的安全警报。这对于也将分发给外部受众的文档是不可取的。

有没有办法让这个设置与文档保持一致？

score 0 · Accepted Answer

如果该属性在关闭和重新打开时丢失，我会在打开文档时进行设置。

Private Sub Document_Open()
    ActiveDocument.ActiveWindow.View.ShadeEditableRanges = False
End Sub

1 回答 1