请教替换锁定文字窗体域文本内容的代码?

hlrong

请教在VBA中如何替换掉锁定了的文字窗体域中的文本内容?

hlrong

看来，文字窗体域在锁定状态下用VBA替换文本是不行的了，不过替换目的无非是既要保留书签，又要把书签内的文本换成需要的文本，于是改变一下思路，先解锁，在选择书签时就只选择书签内的文本，这样就不会替换掉书签标记，换好文本后再加锁，从用户的效果上来说也是一样的。代码见下：

If ThisDocument.ProtectionType = wdAllowOnlyFormFields Then ThisDocument.Unprotect Set xx = ThisDocument.Bookmarks("书签1")

ThisDocument.Range(Start:=xx.Start + 12, End:=xx.End - 1).Text = "要替换的文本" ThisDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True