如何設(shè)置Word表格的VBA代碼
我要評(píng)論Dim i As Table， N As Integer
On Error Resume Next ’忽略錯(cuò)誤
Application.ScreenUpdating = False ’關(guān)閉屏幕更新
For Each i In ActiveDocument.Tables ’在表格中循環(huán)
With i
.Style = "列表型 4" ’將所有表格設(shè)置為"列表型4"的樣式
With .Borders ‘邊框
.InsideLineStyle = wdLineStyleSingle ’設(shè)置內(nèi)部邊框線條
End With
With .Rows(1).Borders(wdBorderBottom) ‘第一行的底邊框
.LineStyle = wdLineStyleDouble ‘雙線型
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
If .Rows.Count > 1 Then ’ 如果表格行數(shù)大于1
If Len(.Cell(2， 1).Range) <= 2 Then ’如果第二行第一列不為空
With .Rows(2).Shading ’設(shè)置底紋
.Texture = wdTextureNone ’無(wú)底底紋
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorGray125
End With
End If
End If
For N = 2 To .Columns.Count ’從第二列到最后一列
.Columns(N).Select ’單元格對(duì)齊方式為中部居中
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Next N
End With
Next i
Application.ScreenUpdating = True
以上的代碼功能為：表格集合中的循環(huán)與對(duì)單元格邊框的設(shè)置。
相關(guān)文章
word怎么單獨(dú)導(dǎo)出一頁(yè)? word導(dǎo)出部分頁(yè)的技巧
在編輯Word文檔時(shí)，有時(shí)我們只需要導(dǎo)出其中的部分頁(yè)面，而不是整個(gè)文檔，下面將介紹如何在Word中導(dǎo)出部分頁(yè)面2025-04-14問(wèn)卷星怎么轉(zhuǎn)換成word文檔? 問(wèn)卷星問(wèn)卷調(diào)查導(dǎo)出成word的技巧
在日常工作中，我們經(jīng)常需要將問(wèn)卷星上的問(wèn)卷內(nèi)容導(dǎo)出為Word格式，以便整理和分析數(shù)據(jù)，以下是三種簡(jiǎn)單的操作方法2025-04-14word文檔一整頁(yè)怎么截屏? word文檔截圖截一張全的圖片技巧
在Word文檔中想將一整頁(yè)截屏下來(lái)，可以通過(guò)使用鍵盤中的Print Screen鍵和Word自帶的截屏功能等多種方法截圖，詳細(xì)如下2025-04-14word開發(fā)工具怎么調(diào)出來(lái)? word工具欄添加開發(fā)工具的教程
許多用戶在使用Word時(shí)，可能會(huì)發(fā)現(xiàn)菜單欄中缺少了“開發(fā)者工具”這一重要選項(xiàng)，這無(wú)疑限制了Word的某些高級(jí)功能應(yīng)用，詳細(xì)請(qǐng)看下文介紹2025-04-14Word文本框中的數(shù)字和英文字母如何進(jìn)行豎排? word文檔排版技巧
用Word進(jìn)行排版成為我們辦公中的主要方式，偶爾我們也可能會(huì)讓文字豎著排版，讓文字豎著排版我們都知道怎么操作，但是如何讓英文字母和數(shù)字也縱向顯示呢？詳細(xì)請(qǐng)看下文介紹2025-03-25word文本框怎么對(duì)齊? word多個(gè)文本框快速批量對(duì)齊的技巧
word中有很多文本框，排列很亂，想要將所有文本框?qū)R，該怎么操作呢？下面我們就來(lái)看看詳細(xì)的教程2025-03-21word分欄后如何設(shè)置頁(yè)碼? Word同一頁(yè)分欄后的文本分別設(shè)置頁(yè)碼技巧
在使用Word進(jìn)行文檔排版時(shí)，經(jīng)常需要將文檔分欄，并且希望每欄都有不同的頁(yè)碼,這種效果在Word默認(rèn)的頁(yè)碼樣式中并不存在，需要通過(guò)手動(dòng)插入域來(lái)實(shí)現(xiàn)，以下是詳細(xì)步驟2025-03-13word多級(jí)列表怎么修改編號(hào)? Word多級(jí)列表各級(jí)編號(hào)格式批量修改技巧
編輯Word長(zhǎng)文檔時(shí)，為了讓文本之間具有層次性，編號(hào)的使用必不可少，那么，對(duì)于編號(hào)，你會(huì)使用了嗎？詳細(xì)如下2025-03-13Word頁(yè)面版式設(shè)置:Word創(chuàng)建多級(jí)列表常見問(wèn)題解決辦法
你是否在設(shè)置多級(jí)列表時(shí)遇到了編號(hào)問(wèn)題？今天來(lái)分享創(chuàng)建多級(jí)列表的常見問(wèn)題，別擔(dān)心，這里為你提供全面的解決方案2025-03-13word文檔怎么鎖定排版? 輕松鎖定你的精心布局防止排版錯(cuò)亂
在 Word 文檔中鎖定排版，防止他人隨意更改格式，可嘗試以下兩種方法，輕松鎖定你的精心布局，詳細(xì)如下文所屬2025-03-11
