最美情侣中文字幕电影,在线麻豆精品传媒,在线网站高清黄,久久黄色视频

歡迎光臨散文網(wǎng) 會(huì)員登陸 & 注冊(cè)

Word表格操作技巧:用VBA代碼批量居中對(duì)齊表格及表格中內(nèi)容

2023-05-17 10:56 作者:IT部落窩教育  | 我要投稿

編按:本文主要介紹了Word文檔使用VBA代碼批量居中對(duì)齊表格及表格中內(nèi)容的方法。一起來(lái)看看吧!

哈嘍,大家好!今天跟大家分享一個(gè)文檔中所有表格與表格內(nèi)容批量居中對(duì)齊的案例。

因?yàn)樾』锇樵次募C埽瑸榱私o大家演示,隨機(jī)模擬了一些文字和表格混搭的內(nèi)容作為演示案例如下圖:

選中表格,按Ctrl+E快捷鍵,依次點(diǎn)擊【布局】-【水平居中】,重復(fù)操作至文檔中所有表格設(shè)置結(jié)束。如下圖:

如果沒(méi)有更高效的辦法,那么上面的常規(guī)辦法就是大家完成任務(wù)最好的方法。但今天我要分享的是更高效的方法:使用VBA代碼來(lái)解決。

一、用VBA代碼批量居中對(duì)齊表格及表格中內(nèi)容

1.在【開(kāi)發(fā)工具】選項(xiàng)卡中找到【Visual?Basic】按鈕進(jìn)入VBE編輯器,插入一個(gè)模塊,進(jìn)入編輯區(qū)域粘貼表格居中對(duì)齊代碼并運(yùn)行。

以下橫線中為表格居中對(duì)齊代碼:

___________________________________________________

Sub 表格居中對(duì)齊()

????Dim biaoge As Table

????For Each biaoge In ActiveDocument.Tables

????????biaoge.Rows.Alignment = wdAlignRowCenter

????Next biaoge

????Set biaoge = Nothing

End Sub

___________________________________________________

代碼解析:Table是表格對(duì)象的意思,Rows代表表格中的所有行。Rows集合的Alignment屬性用于設(shè)置整個(gè)表格在頁(yè)面中的對(duì)齊方式。(wdAlignRowCenter是居中對(duì)齊;wdAlignRowLeft是左對(duì)齊;wdAlignRowRight是右對(duì)齊)代碼的靈魂是在于For?Each循環(huán),這個(gè)是批量處理表格的核心部分。

2.設(shè)置完表格全部居中對(duì)齊后,接著將表格中所有的文字全部設(shè)置水平居中。在剛剛的模塊代碼區(qū)域再粘貼表格內(nèi)容文字居中對(duì)齊代碼并運(yùn)行。

以下橫線中為表格內(nèi)容文字居中對(duì)齊代碼:

___________________________________________________

Sub 表格內(nèi)容文字居中對(duì)齊()

????Dim biaoge As Table

????For Each biaoge In ActiveDocument.Tables

????????biaoge.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

????????biaoge.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter

????Next biaoge

End Sub

___________________________________________________

這些代碼并不需要死記硬背,會(huì)錄制宏即可,請(qǐng)大家繼續(xù)往后看。

二、錄制宏

初次接觸的小伙伴可能對(duì)宏比較陌生,不知道什么是宏,接下來(lái),一起錄制一個(gè)宏看看。

按照常規(guī)的操作錄制出宏代碼后會(huì)發(fā)現(xiàn)其中的代碼和剛剛設(shè)置的代碼幾乎是一樣的,如下圖:

也就是說(shuō),掌握了錄制宏就可以把一些操作轉(zhuǎn)換成代碼,同時(shí)結(jié)合VBA中的循環(huán)和對(duì)象來(lái)提升工作效率。

好了,以上就是今天跟大家分享的內(nèi)容,感謝大家耐心看完,希望大家能夠喜歡,別忘了分享哦~

本期教程就到這里,我們下期再見(jiàn)!

做Word大神,快速提升工作效率,部落窩教育《Word極速貫通班》直播課全心為你!

學(xué)習(xí)交流請(qǐng)加微信:hclhclsc進(jìn)微信學(xué)習(xí)群。

?

相關(guān)推薦:

如何寫好一篇合格的請(qǐng)示

一鍵快速清除文本格式的Word技巧!

Word公文寫作①“會(huì)議通知”改稿案例解析

Word快速制作年會(huì)領(lǐng)導(dǎo)座位表

版權(quán)申明:

作者:花花;部落窩教育享有專有使用權(quán),若需轉(zhuǎn)載請(qǐng)聯(lián)系部落窩教育。


Word表格操作技巧:用VBA代碼批量居中對(duì)齊表格及表格中內(nèi)容的評(píng)論 (共 條)

分享到微博請(qǐng)遵守國(guó)家法律
漯河市| 南涧| 鄂伦春自治旗| 景东| 义马市| 惠水县| 汉源县| 化州市| 武陟县| 定远县| 东城区| 博乐市| 冕宁县| 瑞金市| 新安县| 固镇县| 吉水县| 十堰市| 凉城县| 中西区| 金门县| 台州市| 无锡市| 鞍山市| 千阳县| 常山县| 武鸣县| 东港市| 左贡县| 和龙市| 晋州市| 江永县| 怀来县| 原阳县| 遂溪县| 东莞市| 峨山| 高雄市| 本溪市| 朔州市| 湖北省|