关键词:表格 表格中内容 居中对齐栏目:Word技能编按:本文主要为大家介绍Word文档使用VBA代码批量居中对齐表格及表格中内容的方法一起来看看吧!哈喽,大家好!今天要跟大家分享的案例是一位同学咨询关于文档中表格及表格中内容批量居中对齐的问题。
![](http://ldjg88.com/zb_users/upload/2024/05/20240526090700171668562012178.png)
因为小伙伴源文件保密,为了给大家演示,我随机模拟了一些文字和表格混搭的内容作为演示案例如下图:
![](http://ldjg88.com/zb_users/upload/2024/05/20240526090701171668562145348.png)
选中表格,按Ctrl+E快捷键,依次点击【布局】-【水平居中】,重复操作至文档中所有表格设置结束。如下图:
![](http://ldjg88.com/zb_users/upload/2024/05/20240526090701171668562156979.gif)
如果没有更高效的办法,那么上面的常规办法就是大家完成任务最好的方法但今天我要跟大家分享的是更高效的方法:使用VBA代码来解决一、用VBA代码批量居中对齐表格及表格中内容1.在【开发工具】选项卡中找到【Visual Basic】按钮进入VBE编辑器,插入一个模块,进入编辑区域粘贴表格居中对齐代码并运行。
![](http://ldjg88.com/zb_users/upload/2024/05/20240526090702171668562270125.gif)
以下横线中为表格居中对齐代码:___________________________________________________Sub 表格居中对齐() Dim biaoge As Table
For Each biaoge In ActiveDocument.Tables biaoge.Rows.Alignment = wdAlignRowCenter Next biaoge
Set biaoge = NothingEnd Sub___________________________________________________代码解析:Table是表格对象的意思,Rows代表表格中的所有行。
Rows集合的Alignment属性用于设置整个表格在页面中的对齐方式(wdAlignRowCenter是居中对齐;wdAlignRowLeft是左对齐;wdAlignRowRight是右对齐)代码的灵魂是在于For Each循环,这个是批量处理表格的核心部分。
2.设置完表格全部居中对齐后,接着将表格中所有的文字全部设置水平居中。在刚刚的模块代码区域再粘贴表格内容文字居中对齐代码并运行。
![](http://ldjg88.com/zb_users/upload/2024/05/20240526090702171668562299141.gif)
以下横线中为表格内容文字居中对齐代码:___________________________________________________Sub 表格内容文字居中对齐() Dim biaoge As Table
For Each biaoge In ActiveDocument.Tables biaoge.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
biaoge.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter Next biaogeEnd Sub___________________________________________________
这些代码并不需要死记硬背,会录制宏即可,请大家继续往后看。二、录制宏初次接触的小伙伴可能对宏比较陌生,不知道什么是宏,接下来,一起录制一个宏看看。
![](http://ldjg88.com/zb_users/upload/2024/05/20240526090703171668562392609.gif)
按照常规的操作录制出宏代码后会发现其中的代码和刚刚设置的代码几乎是一样的,如下图:
![](http://ldjg88.com/zb_users/upload/2024/05/20240526090703171668562362819.png)
也就是说,掌握了录制宏就可以把一些操作转换成代码,同时结合VBA中的循环和对象来提升工作效率好了,以上就是今天跟大家分享的内容,感谢大家耐心看完,希望大家能够喜欢,别忘了分享哦~本期教程就到这里,我们下期再见!。
![](http://ldjg88.com/zb_users/upload/2024/05/20240526090703171668562390679.png)
6套课程,均为1元限时秒杀,永久学习,只需扫海报二维码,进入课程页面抢购即可,有任何问题,请添加老师微信:blwjymx咨询。
![](http://ldjg88.com/zb_users/upload/2024/05/20240523173319171645679920659.png)
如果觉得文章有用,请点亮“在看”哦~
![](http://ldjg88.com/zb_users/upload/2024/05/20240526090704171668562473101.webp)
发表评论:
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。