word选择所有表格

1、竭诚为您提供优质文档 /双击可除第1页共 15 页word 选择所有表格篇一：批量操作word表格一、批量选择word表格subkonggs()dimmytableastableapplication.screenupdating=FalseForeachmytableinactivedocument.tablesmytable.Range.editors.addwdeditoreveryone nextactivedocument.selectalleditableRanges(wdeditoreveryone)activedocument.deletealleditableRanges(w

2、deditorever yone)application.screenupdating=trueendsub二、实现同时将一个word文档中的所有表格执行“自动调整一一根据窗口调整表格”操作第2页共 15 页subwww()dimodocasdocumentdimotableastablesetodoc=documents.open(d:testsr.doc)指定文件路径Foreachotableinodoc.tablesotable.autoFitbehavior(wdautoFitwindow)根据窗口调整内容nextmsgbox完成！”endsub三、word文档中选择所有表格假如wor

3、d文档中有多个表格，需要一次性同时选择做一些设置，该如何运用简便方法做到呢？方法如下：1.按alt+F11键，开启Vba程序窗口2.菜单栏-“插入”菜单宀“模块”，在其中放入如下代码。或者录制宏也可以。optionexplicitsubselectalltable()dimtemptableastable第3页共 15 页application.screenupdating=FalseForeachtemptableinactivedocument.tablestemptable.Range.editors.addwdeditoreveryonenextactivedocument.selec

4、talleditableRangeswdeditorevery oneactivedocument.deletealleditableRangeswdeditorevery oneapplication.screenupdating=trueendsub3.运行代码就可以选中所有表格了四、把所有表格则设置缩进为0,居中对齐subaa_no_indent_table表缩进为0()dimssastableaa_no_indent_table表缩进为0Foreachssinactivedocument.tablesss.Range.paragraphFormat.characterunitFirst

5、lineindent=0取消字符单位的首行缩进ss.Range.paragraphFormat.Firstlineindent=0取消取行缩进next endsub第4页共 15 页这个不用宏，直接用格式刷就能办到。弄好了一个格子的坐缩进，双击格式刷，刷其他的所有（拉黑）即可。下面的表格也带着刷子去操作一下就行了。篇二：wordVba全选文档内所有表格的代码sub全选所有表格（）全选所有表格macro dimtemptableastableapplication.screenupdating=False判断文档是否被保护tectiontype=wdall

6、owonlyFormFieldsthenmsgbox文档已保护，此时不能选中多个表格！exitsub endif删除所有可编辑的区域activedocument.deletealleditableRangeswdeditoreveryone添加可编辑区域第5页共 15 页Foreachtemptableinactivedocument.tablestemptable.Range.editors.addwdeditoreveryone next选中所有可编辑区域activedocument.selectalleditableRangeswdeditoreveryone删除所有可编辑的区域acti

7、vedocument.deletealleditableRangeswdeditoreveryoneapplication.screenupdating=trueendsub篇三：word中表格编辑技巧大全word中表格编辑等技巧设计斜线表头将插入点定位在单元格中，单击“表格-绘制斜线表头” 命令，出现对话框，单击“表头样式”下拉菜单选择一种样 式 （共有5种可选择） ， 分别填入“行标题”（右上角的项目）“列标题”（左下角的项目）和“数据标题”（中间格的项目）以及“字体大小”等，最后单击“确定”退出。删除斜线表 头的方法是，单击要删除的斜线表头，当周围出现选定标记 时，按del键即可删除该斜

8、线表头。自由修改斜线表头斜线表头绘制好后，如果改变字号，或者调整斜线位置，斜线表头便出现诸如字与字互相叠压或线条移动等不匹配 的情况，往往令许多人感到束手无策。其实，我们可利用word第6页共 15 页的绘图功能加以调整，具体作法是：1.选中该表头（其实表格斜线是由线条组合在一起的图形），使之周围出现8个控点；2.在“绘图工具栏”上单击“绘图”按钮， 在弹出的菜 单中选择“取消组合”命令，并在斜线表头所在的单元格之 外的区域单击（即取消选定状态）；3.这时表头中的线条和文字（其实是文本框）均成为独 立可调整状态，我们可以任意调整表头的线条和每一个文字 的位置，直到满意为止；4.按shift键，

9、依次选择每个线条和每个文字块；5.再次在“绘图工具栏”上单击“绘图”按钮，选择“组 合”。在上面第三步中，你还可能遇到另一种令人头疼的事情：那就是虽然可独立移动斜线位置，但就是移动不到准确的位 置，或者说误差非常大。这时，你可尝试如下的步骤：1.选中该表头；2.在“绘图工具栏”上单击“绘图”按钮，选择“绘图网格”，弹出“绘图网格”对话框（图2）；图23.在“绘图网格”对话框中将“水平间距”和“垂直间距”均调整成最小值，然后单击“确定”，表头中的内容便第7页共 15 页可任意调整大小、位置了。143把文字转换成表格选中需要转换的文字，单击“表格-转换-文本转换成 表格”命令，设置好需要转换的列数

10、、行数和套用的格式， 在“文字分隔位置”中选中文字分隔符（图3）,按“确定”按钮就可以把文字转换成表格。图3144把表格转换成文字选中表格，单击“表格-转换-表格转换成文本” 命令， 在打开的对话框中选好文字分隔符（图4）,单击“确定”按 钮即可。图41.4.5快速选定整张表格按“alt+5（数字键盘上的数字，且numlock键处于关 闭状态）”，就可以快速选定整张表格。1.4.6随心所欲调整单元格中的文字对齐方式对于单元格中的文字，你可以随意调整它的位置，上、 下、左、右、中间任意设定，设置的方法是：在单元格中右键单击，弹出快捷菜单，在“单元格对齐”子菜单中单击相 应的命令即可，共有9种设定

11、可供选择。第8页共 15 页1.4.7更方便地调整表格的位置这是在word中重新定位表格的一个捷径。单击“视图页面”命令，转换到页面视图模式，在页面视图中，把鼠 标指针放在表格的左上角直到出现移动柄（框中有一个4个头的箭头），点击移动柄，用它把表格拖动到一个新位置。148整体缩放表格将光标停留在表格内部，直到表格尺寸控点（一个小“口”）出现在表格右下角，将鼠标移至表格尺寸控点上， 待向左倾斜的双向箭头出现，沿需要的方向拖动即可整体缩 放表格。149使你的列标题可见当你在word中创建一个表格时，你可以利用列标题来描述每一列是什么信息。但如果表格很长，超过一页时，第 一页后面的页列标题将看不到， 这样你很难分辨每一列的主 题是什么。 这里将介绍一种使标题可见的技巧：