如何設(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 ’無底底紋
.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如何快速對(duì)齊ABCD選項(xiàng)? word試卷批量對(duì)齊ABCD的技巧
在平時(shí)使用word排版過程中，有時(shí)候我們遇到abcd選擇題選項(xiàng)上下不對(duì)齊怎么辦，非常亂，但是我們又需要對(duì)齊的效果，我們應(yīng)該怎么辦呢？2025-12-05怎樣把豎著的ABCD調(diào)整為橫一排? word選擇題abcd調(diào)整為一行顯示的技巧
選擇題abcd是豎著排列的，很占空間，想要橫排排列，該怎么操作呢？下面我們就來看看詳細(xì)教程2025-12-05自動(dòng)更正功能快速提高工作效率! word巧妙利用自動(dòng)更正功能快速錄入長(zhǎng)文
在Word中輸入內(nèi)容時(shí)，你是否曾為頻繁輸入公司名字等長(zhǎng)文本而煩惱？但有了Word的文本自動(dòng)更正功能，這一切變得簡(jiǎn)單起來,你只需輸入“萬達(dá)”等簡(jiǎn)短詞匯，系統(tǒng)便能自動(dòng)為你補(bǔ)2025-11-01deepseek復(fù)制粘貼亂碼咋辦? word粘貼出現(xiàn)很多Markdown格式標(biāo)記符號(hào)解決
你有沒有遇到過，用 DeepSeek 生成的文字，復(fù)制后粘貼，總會(huì)出現(xiàn)一堆奇怪的符號(hào)，比如“*#-”，還得一個(gè)一個(gè)刪，特別麻煩，下面我們就來看看解決辦法2025-08-19論文交叉引用多個(gè)文獻(xiàn)怎么辦? word交叉引用多篇連續(xù)文獻(xiàn)的技巧
通過word文檔連續(xù)交叉引用多個(gè)參考文獻(xiàn)，具體分為引用連續(xù)文獻(xiàn)和不連續(xù)文獻(xiàn)兩種情況，該怎么操作呢？下面我們就來看看詳細(xì)教程2025-06-28word怎么單獨(dú)導(dǎo)出一頁? word導(dǎo)出部分頁的技巧
在編輯Word文檔時(shí)，有時(shí)我們只需要導(dǎo)出其中的部分頁面，而不是整個(gè)文檔，下面將介紹如何在Word中導(dǎo)出部分頁面2025-04-14問卷星怎么轉(zhuǎn)換成word文檔? 問卷星問卷調(diào)查導(dǎo)出成word的技巧
在日常工作中，我們經(jīng)常需要將問卷星上的問卷內(nèi)容導(dǎo)出為Word格式，以便整理和分析數(shù)據(jù)，以下是三種簡(jiǎn)單的操作方法2025-04-14word文檔一整頁怎么截屏? word文檔截圖截一張全的圖片技巧
在Word文檔中想將一整頁截屏下來，可以通過使用鍵盤中的Print Screen鍵和Word自帶的截屏功能等多種方法截圖，詳細(xì)如下2025-04-14word開發(fā)工具怎么調(diào)出來? word工具欄添加開發(fā)工具的教程
許多用戶在使用Word時(shí)，可能會(huì)發(fā)現(xiàn)菜單欄中缺少了“開發(fā)者工具”這一重要選項(xiàng)，這無疑限制了Word的某些高級(jí)功能應(yīng)用，詳細(xì)請(qǐng)看下文介紹2025-04-14Word文本框中的數(shù)字和英文字母如何進(jìn)行豎排? word文檔排版技巧
用Word進(jìn)行排版成為我們辦公中的主要方式，偶爾我們也可能會(huì)讓文字豎著排版，讓文字豎著排版我們都知道怎么操作，但是如何讓英文字母和數(shù)字也縱向顯示呢？詳細(xì)請(qǐng)看下文介紹2025-03-25
