使用VBA（Microsoft Word 2003）只读文本段落

Question

有没有办法使用VBA只读Microsoft Word 2003文档中的段落？

Answer 1

我认为你只能通过选择而不是被保护的段落来做到这一点。

下面是一个示例宏，它选择一段文本，使其能够进行编辑，然后锁定文档的其余部分。您可以使用IRM或密码保护，下面的宏使用后者。你应该更多的东西优雅

Selection.MoveLeft Unit:=wdCharacter, Count:=11, Extend:=wdExtend 
Selection.Editors.Add wdEditorEveryone 
ActiveDocument.protect Password:="password", NoReset:=False, Type:= _ 
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False 

Answer 2

替代选择下面的方法您可能能够通过投掷待保护的文本到文本形式和保护，要做到这一点。显然有点毛病。

Answer 3

上面的答案会留下可编辑区域的黄色突出显示。

一种替代方法是添加此代码的AutoOpen http://answers.microsoft.com/en-us/office/forum/office_2010-word/remove-highlighting-in-editable-areas-of-protected/bfe22585-c5d3-4c19-997f-092fc4aaaa7a

Sub AutoOpen() 
    ActiveWindow.View.ShadeEditableRanges = False 
End Sub 

在Word 2007（测试），更直接的方式是创建一个丰富的文本内容的控制和设置的属性。这将很容易使一个段落只读而不会产生任何亮点。

Sub LockContent() 

Dim objCC As ContentControl 
Set objCC = ActiveDocument.ContentControls.Add(Type:=wdContentControlRichText) 

With objCC 
    .Range.Text = "123123" 'Your text 
    .LockContentControl = True 
    .LockContents = True 
End With 

End Sub 

更多ContentControl.LockContentControl物业上 https://msdn.microsoft.com/en-us/library/office/ff835775.aspx

希望具有相同头疼此帮助任何人！ ：D