2,503
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
techgopher 2004-09-22
- 打赏
- 举报
你要把其他无需保护的节设置一下再保护文档。
Selection.InsertBreak Type:=wdSectionBreakContinuous
Selection.InlineShapes.addpicture "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Blue hills.jpg"
Selection.InsertBreak Type:=wdSectionBreakContinuous
ActiveDocument.Sections(1).ProtectedForForms = False
ActiveDocument.Sections(2).ProtectedForForms = True
ActiveDocument.Sections(3).ProtectedForForms = False
ActiveDocument.Protect wdAllowOnlyFormFields, Password:="password"
Selection.InsertBreak Type:=wdSectionBreakContinuous
Selection.InlineShapes.addpicture "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Blue hills.jpg"
Selection.InsertBreak Type:=wdSectionBreakContinuous
ActiveDocument.Sections(1).ProtectedForForms = False
ActiveDocument.Sections(2).ProtectedForForms = True
ActiveDocument.Sections(3).ProtectedForForms = False
ActiveDocument.Protect wdAllowOnlyFormFields, Password:="password"
flyintosky555 2004-09-21
- 打赏
- 举报
楼上的代码倒是可以，不过把整个文档都保护了，不能进行其他操作了
techgopher 2004-09-21
- 打赏
- 举报
Selection.InsertBreak Type:=wdSectionBreakContinuous
Selection.InlineShapes.addpicture "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Blue hills.jpg"
Selection.InsertBreak Type:=wdSectionBreakContinuous
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Sections(1).ProtectedForForms = True
ActiveDocument.Protect wdAllowOnlyFormFields, Password:="password"
Selection.InlineShapes.addpicture "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Blue hills.jpg"
Selection.InsertBreak Type:=wdSectionBreakContinuous
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Sections(1).ProtectedForForms = True
ActiveDocument.Protect wdAllowOnlyFormFields, Password:="password"
flyintosky555 2004-09-21
- 打赏
- 举报
ActiveDocument.Protect wdAllowOnlyFormFields, Password:="password"
这句把整个文档保护了，我已经试过了
这句把整个文档保护了，我已经试过了
techgopher 2004-09-21
- 打赏
- 举报
你自己再调一调，不应该是整个文档都保护了的。
techgopher 2004-09-20
- 打赏
- 举报
文档保护。在图片前后插入分节符，然后对该节实行窗体保护。
jam021 2004-09-20
- 打赏
- 举报
关注,帮顶
flyintosky555 2004-09-20
- 打赏
- 举报
请给出代码啊，拜托
flyintosky555 2004-09-19
- 打赏
- 举报
?
