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

有沒有辦法使用VBA只讀Microsoft Word 2003文檔中的段落？使用VBA（Microsoft Word 2003）只讀文本段落

2009-01-05 joe

我認爲你只能通過選擇而不是被保護的段落來做到這一點。

下面是一個示例宏，它選擇一段文本，使其能夠進行編輯，然後鎖定文檔的其餘部分。您可以使用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

來源

2009-01-05 19:01:11 adilei

替代選擇下面的方法您可能能夠通過投擲待保護的文本到文本形式和保護，要做到這一點。顯然有點毛病。

來源

2009-01-05 19:18:13

上面的答案會留下可編輯區域的黃色突出顯示。

一種替代方法是添加此代碼的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

來源

2016-08-18 06:55:45 joecps526

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

回答

相關問題