韩国伦理电影好看的

Logo 全站主图
VBA选择WORD多个表格、操作编辑区域的代码

Admin | 2013-12-23 9:10:15 | TrackRecord: 311 Times | Tag标签:Word教程 打印本页

您当前所处的位置是:〖美女AV 〗→【文章页】

韩国伦理电影好看的 本站提供经典的Excel公式函数实例,Word排版技巧,PPT教程;同时更兼有Flash,PowerPoint,数据库等技术文章。

  选择多个文档的代码  

  Sub SelectAllTables()

  Dim tempTable As Table

  Application.ScreenUpdating = False

  '判断文档是否被保护

  If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

        MsgBox "文档已保护,此时不能选中多个表格!"

        Exit Sub

  End If

  删除所有可编辑的区域

  ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

  添加可编辑区域

  For Each tempTable In ActiveDocument.Tables

   tempTable.Range.Editors.Add wdEditorEveryone

  Next

  选中所有可编辑区域

  ActiveDocument.SelectAllEditableRanges wdEditorEveryone

  删除所有可编辑的区域

  ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

  Application.ScreenUpdating = True


EmailNumber

本站仅与内容具备一定的实用价值的原创网站交换友情链接,力争为大众做出更优质的服务!
All Rights Reserved版权所有 本站备案信息:滇ICP备11001339号-2 站长AV视频 方式 Email:韩国伦理电影好看的

韩国伦理电影好看的