限制对 Word 表格的编辑

Question

再会，

希望有人可以帮助...

我正在使用功能非常有限的内部软件生成 Word 文档。 幸运的是，我可以使用这个软件调用宏，但不幸的是，我对创建它们不太了解......

我正在生成的文档具有系统中生成的结果表。 用户需要能够添加到文档但不能更改任何现有表。 我发现我可以做到这一点，但可以使用以下内容锁定整个文档：

myDoc.Protect wdAllowOnlyReading

怎么只能对桌子这样做？

我的计划是 select 一切，然后

Selection.Editors.Add wdEditorEveryone

但我不知道如何 select 除了表格中的文本之外的所有文本。

我还可以将所有其他文本括在括号中，例如 {}，然后在这些括号之间使文本可编辑？

谢谢！ 任何帮助将不胜感激！

Answer 1

多亏了评论，我能够相当容易地使用控件来做到这一点：谢谢 Ike 和 Charles :)

这就是我最终得到的（我认为可能有一些额外的东西不需要但有效:)：

Sub LOCKTABLES()

Dim doc As Document
Set doc = ActiveDocument

Dim intCount As Integer
intCount = doc.Tables.Count

Dim iTable As Integer
For iTable = 1 To intCount
    Dim source_Table_Range As Range
    Set source_Table_Range = doc.Tables(iTable).Range
    source_Table_Range.Select
    source_Table_Range.ContentControls.Add (wdContentControlGroup)
    Selection.ParentContentControl.LockContentControl = True
Next
 If ActiveDocument.Saved = False Then ActiveDocument.Save

End Sub