word选择所有表格

竭诚为您提供优质文档/双击可除

word选择所有表格

篇一：批量操作word表格

一、批量选择word表格

subkonggs()

dimmytableastableapplication.screenupdating=False Foreachmytableinactivedocument.tables

mytable.Range.editors.addwdeditoreveryone

next

activedocument.selectalleditableRanges(wdeditorever yone)

activedocument.deletealleditableRanges(wdeditorever yone)

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

subse

lectalltable()

dimtemptableastable

application.screenupdating=False

Foreachtemptableinactivedocument.tables

temptable.Range.editors.addwdeditoreveryone

next

activedocument.selectalleditableRangeswdeditorevery one

activedocument.deletealleditableRangeswdeditorevery one

application.screenupdating=true

endsub

3.运行代码就可以选中所有表格了

四、把所有表格则设置缩进为0，居中对齐

subaa_no_indent_table表缩进为0()

dimssastableaa_no_indent_table表缩进为0

Foreachssinactivedocument.tables

ss.Range.paragraphFormat.characterunitFirstlineinde nt=0取消字符单位的首行缩进

ss.Range.paragraphFormat.Firstlineindent=0取消取行

缩进

next

endsub

这个不用宏，直接用格式刷就能办到。

弄好了一个格子的坐缩进，双击格式刷，刷其他的所有（拉黑）即可。下面的表格也带着刷子去操作一下就行了。

篇二：wordVba全选文档内所有表格的代码

sub全选所有表格()

全选所有表格macro

dimtemptableastable

application.screenupdating=False

判断文档是否被保护

ifactivedocument.protectiontype=wdallowonlyFormFiel dsthenmsgbox"文档已保护，此时不能选中多个表格！"

exitsub

endif

删除所有可编辑的区域

activedocument.deletealleditableRangeswdeditorevery one添加可编辑区域

Foreachtemptableinactivedocument.tables

temptable.Range.editors.addwdeditoreveryone

next

选中所有可编辑区域

activedocument.selectalleditableRangeswdeditorevery one删除所有可编辑的区域

activedocument.deletealleditableRangeswdeditorevery oneapplication.screenupdating=true

endsub

篇三：word中表格编辑技巧大全

word中表格编辑等技巧

设计斜线表头

将插入点定位在单元格中，单击“表格→绘制斜线表头”命令，出现对话框，单击“表头样式”下拉菜单选择一种样式（共有5种可选择），分别填入“行标题”（右上角的项目）、“列标题”（左下角的项目）和“数据标题”（中间格的项目）以及“字体大小”等，最后单击“确定”退出。删除斜线表头的方法是，单击要删除的斜线表头，当周围出现选定标记

时，按del键即可删除该斜线表头。自由修改斜线表头斜线表头绘制好后，如果改变字号，或者调整斜线位置，斜线表头便出现诸如字与字互相叠压或线条移动等不匹配

的情况，往往令许多人感到束手无策。其实，我们可利用word 的绘图功能加以调整，具体作法是:

1.选中该表头（其实表格斜线是由线条组合在一起的图形），使之周围出现8个控点;

2.在“绘图工具栏”上单击“绘图”按钮，在弹出的菜单中选择“取消组合”命令，并在斜线表头所在的单元格之外的区域单击（即取消选定状态）;

3.这时表头中的线条和文字（其实是文本框）均成为独立可调整状态，我们可以任意调整表头的线条和每一个文字的位置，直到满意为止;

4.按shift键，依次选择每个线条和每个文字块;

5.再次在“绘图工具栏”上单击“绘图”按钮，选择“组合”。

在上面第三步中，你还可能遇到另一种令人头疼的事情:那就是虽然可独立移动斜线位置，但就是移动不到准确的位置，或者说误差非常大。这时，你可尝试如下的步骤:

1.选中该表头;

2.在“绘图工具栏”上单击“绘图”按钮，选择“绘图网格”，弹出“绘图网格”对话框（图2）;