Word Section 问题

hxhgxy

Word里面有没有像Excel里给单元格区域定义名称那样的功能，给每个插入的节定义名称。这样做的目的是方便保护其中的某几个节，选择在某个节之后插入或者删除节。谢谢！

守柔

WORD中的书签可与EXCEL中的插入/名称/定义相妨。

WORD中插入分节符后，可以在工具/保护/窗体/节中设置，其功能比较脆弱，说是保护窗体，其实严格意义上说，是保护除窗体（此处窗体相当于未受保护的单元格）以外本节以内的其它内容（相当于保护了的单元格），当然，一些结构、功能也受到相应保护。

我不太明白虎兄的意思，能更明确一下，想做什么吗？

hxhgxy

保护不能根据书签来设定啊。

比如说我的模板里有50个分节符，其中有30个是要保护的，其余的留给用户编辑。我希望快速设定那些要保护，现在按索引来勾选很不爽。

另外，我希望快速决定在那个节之后插入新的节，并重新设置保护。

我很累啊，现在这样做。

守柔

难得虎兄做客，小弟马上动手设计一个按照书签来设定保护节的代码，您耐心等待一会儿。

守柔

虎兄，我临时做了一个，可能不是太爽，你先用一下，请多提意见。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-2-23 11:41:30 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

'请在操作之前,使用插入/书签,选择指定书签进行定位(选定),或者 '直接选定需要保护的页面内容 Sub ProtectByBookMark() Dim StartRange As Long, EndRange As Long, MyRange1 As Range, MyRange2 As Range Dim Sec1 As Integer, Sec2 As Integer, I As Integer, ActEnd As Long, Pw As String On Error GoTo ErrHandle '启动错误处理程序 With Selection If .Type = wdSelectionIP Then Exit Sub '如果未选定则退出程序 StartRange = .Start '起点位置 ActEnd = ActiveDocument.Content.End '终止位置 EndRange = VBA.IIf(.End = ActEnd, ActEnd - 1, .End) End With With ActiveDocument '定义两个相当于光标位置 Set MyRange1 = .Range(StartRange, StartRange) Set MyRange2 = .Range(EndRange, EndRange) '分别取得"光标"位置所在节号 Sec1 = MyRange1.Information(wdActiveEndSectionNumber) Sec2 = MyRange2.Information(wdActiveEndSectionNumber) '如果文档中已有部分节保护了,则需要解除文档密码 ErrAgain: If .ProtectionType <> wdNoProtection Then Pw = InputBox("请输入文档解除密码!", "解除文档保护") .Unprotect Password:=Pw Else Pw = InputBox("请输入文档保护密码!", "保护文档窗体") End If For I = Sec1 To Sec2 .Sections(I).ProtectedForForms = True Next .Protect wdAllowOnlyFormFields, , Pw End With Exit Sub ErrHandle: GoTo ErrAgain End Sub '----------------------

hxhgxy

谢谢！我先用用，有什么新的要求我会再来请教的！