===========================

Sub 遍歷表格設(shè)定樣式()For Each aTable In ActiveDocument.TablesWith aTableWith .Shading.Texture = wdTextureNone.ForegroundPatternColor = wdColorAutomatic.BackgroundPatternColor = wdColorAutomaticEnd WithWith .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderRight).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderTop).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderVertical).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050pt.Color = wdColorAutomaticEnd With.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone.Borders.Shadow = FalseEnd WithWith Options.DefaultBorderLineStyle = wdLineStyleSingle.DefaultBorderLineWidth = wdLineWidth050pt.DefaultBorderColor = wdColorAutomaticEnd WithNext aTable End Sub

===========================

'遍歷表格的操作Dim aTable As Table'第一種實(shí)現(xiàn)方式，根據(jù)索引遍歷表格，特定單元格賦值內(nèi)容For i = 1 To ActiveDocument.Tables.CountSet aTable = ActiveDocument.Tables.Item(i)With aTable.Cell(2, 1).Range.Text = "123"End WithNext'第二種實(shí)現(xiàn)方式For Each aTable In ActiveDocument.TablesWith aTable.Cell(2, 1).Range.Text = "123"End WithNext

===========================

'判斷表格列標(biāo)題，針對不同標(biāo)題列設(shè)置不同樣式 With aTableFor i = 1 To .Columns.CountIf InStr(.Cell(1, i).Range.Text, "序號(hào)") Or _InStr(.Cell(1, i).Range.Text, "數(shù)量") Or _InStr(.Cell(1, i).Range.Text, "單位") Then(Code代碼段)End IfNext End With

===========================

'表格樣式設(shè)置代碼匯總 With aTable'將預(yù)定義外觀應(yīng)用于表格。' .AutoFormat Format:=wdTableFormatColorful2' .AutoFormat applyborders:=True' .AutoFormat ApplyShading:=True' .AutoFormat ApplyFont:=True' .AutoFormat ApplyColor:=True' .AutoFormat ApplyHeadingRows:=True' .AutoFormat ApplyLastRow:=True' .AutoFormat ApplyFirstColumn:=True' .AutoFormat ApplyLastColumn:=True' .AutoFormat AutoFit:=True'應(yīng)用用戶定義的樣式，但保留用戶直接應(yīng)用的所有格式。' .ApplyStyleDirectFormatting StyleName:="樣式1"'調(diào)整行列的樣式，必須使用Select的方法，先選中再設(shè)置樣式'調(diào)整首行的對齊方式' .Rows(1).Select' With Selection' .ParagraphFormat.Alignment = wdAlignParagraphCenter' End With'調(diào)整各列的對齊方式' .Columns(3).Select' With Selection' .ParagraphFormat.Alignment = wdAlignParagraphCenter' End With' .Columns(4).Select' With Selection' .ParagraphFormat.Alignment = wdAlignParagraphCenter' End With'操作單元格內(nèi)容賦值' .Cell(1, 1).Range.Text = "hello"End With

===========================

===========================

===========================

===========================

===========================

===========================

===========================

===========================

===========================

===========================

===========================

===========================

===========================

===========================

?

總結(jié)

以上是生活随笔為你收集整理的Word VBA-表格操作汇总的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。