竭诚为您提供优质文档/双击可除
word选中所有表格

  篇一：wordVba全选文档内所有表格的代码
  sub全选所有表格()
 
  全选所有表格macro
 
  dimtemptableastable
  application.screenupdating=False
  判断文档是否被保护
  ifactivedocument.protectiontype=wdallowonlyFormFieldsthenmsgbox"文档已保护，此时不能选中多个表格！"
  exitsub
  endif
  删除所有可编辑的区域
  activedocument.deletealleditableRangeswdeditoreveryone添加可编辑区域
  Foreachtemptableinactivedocument.tables
  temptable.Range.editors.addwdeditoreveryone
  next
  选中所有可编辑区域
  activedocument.selectalleditableRangeswdeditoreveryone删除所有可编辑的区域
  activedocument.deletealleditableRangeswdeditoreveryoneapplication.screenupdating=true
  endsub
  篇二：批量操作word表格
  一、批量选择word表格
  subkonggs()
  dimmytableastableapplication.screenupdating=False
  Foreachmytableinactivedocument.tables
  mytable.Range.editors.addwdeditoreveryone
  next
  activedocument.selectalleditableRanges(wdeditoreveryone)
  activedocument.deletealleditableRanges(wdeditoreveryone)
html居中标签代码  application.screenupdating=true
  endsub
  二、实现同时将一个word文档中的所有表格执行“自动调整——根据窗口调整表格”操作
  subwww()
  dimodocasdocument
  dimotableastable
  setodoc=documents.open("d:\test\sr.doc")指定文件路径
  Foreachotableinodoc.tables
  otable.autoFitbehavior(wdautoFitwindow)根据窗口调整内容
  next
  msgbox"完成！"
  endsub
  三、word文档中选择所有表格
  假如word文档中有多个表格，需要一次性同时选择做一些设置，该如何运用简便方法做到呢？
  方法如下：
  1.按alt+F11键，开启Vba程序窗口
  2.菜单栏→“插入”菜单→“模块”，在其中放入如下代码。或者录制宏也可以。optionexplicit
  subselectalltable()
  dimtemptableastable
  application.screenupdating=False
  Foreachtemptableinactivedocument.tables
  temptable.Range.editors.addwdeditoreveryone
  next
  activedocument.selectalleditableRangeswdeditoreveryone
  activedocument.deletealleditableRangeswdeditoreveryone
  application.screenupdating=true
  endsub
  3.运行代码就可以选中所有表格了
  四、把所有表格则设置缩进为0，居中对齐
  subaa_no_indent_table表缩进为0()
  dimssastableaa_no_indent_ta 
ble表缩进为0
  Foreachssinactivedocument.tables
  ss.Range.paragraphFormat.characterunitFirstlineindent=0取消字符单位的首行缩进ss.Range.paragraphFormat.Firstlineindent=0取消取行缩进
  next
  endsub
  这个不用宏，直接用格式刷就能办到。
  弄好了一个格子的坐缩进，双击格式刷，刷其他的所有（拉黑）即可。下面的表格也带着
刷子去操作一下就行了。
  篇三：电子表格和word中如何勾选？
  如何在别人设计好的文档中的“□”内打上“”
  1、在word中：先打个“”，然后选中这个“”，点击“格式”，再点“中文版式”，再点“带圈字符”，弹出一个框，选择你需要的样式，点击确定，即可。
  2、在excel中：先在单元格中写“R”，然后选择“字体”：wingdiangs2，即可。
 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。