Sub 表格處理()
? ? '功能：光標在表格中處理當前表格；否則處理所有表格！
? ? Application.ScreenUpdating = False ?'關(guān)閉屏幕刷新
? ? Application.DisplayAlerts = False ?'關(guān)閉提示
? ? On Error Resume Next ?'忽略錯誤
? ? '***************************************************************************
? ? Dim mytable As Table, i As Long
? ? If Selection.Information(wdWithInTable) = True Then i = 1
? ? For Each mytable In ActiveDocument.Tables
? ? ? ? If i = 1 Then Set mytable = Selection.Tables(1)
? ? ? ? With mytable
? ? ? ? ? ? '取消底色
? ? ? ? ? ? .Shading.ForegroundPatternColor = wdColorAutomatic
? ? ? ? ? ? .Shading.BackgroundPatternColor = wdColorAutomatic
? ? ? ? ? ? Options.DefaultHighlightColorIndex = wdNoHighlight
? ? ? ? ? ? .Range.HighlightColorIndex = wdNoHighlight
? ? ? ? ? ? .Style = "表格主題"
? ? ? ? ? ??
? ? ? ? ? ? '單元格邊距
? ? ? ? ? ? .TopPadding = PixelsToPoints(0, True) '設(shè)置上邊距為0
? ? ? ? ? ? .BottomPadding = PixelsToPoints(0, True) '設(shè)置下邊距為0
? ? ? ? ? ? .LeftPadding = PixelsToPoints(0, True) ?'設(shè)置左邊距為0
? ? ? ? ? ? .RightPadding = PixelsToPoints(0, True) '設(shè)置右邊距為0
? ? ? ? ? ? .Spacing = PixelsToPoints(0, True) '允許單元格間距為0
? ? ? ? ? ? .AllowPageBreaks = True '允許斷頁
? ? ? ? ? ? '.AllowAutoFit = True '允許自動重調(diào)尺寸
? ? ? ? ? ??
? ? ? ? ? ? '設(shè)置邊框
? ? ? ? ? ? .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
? ? ? ? ? ? .Borders(wdBorderRight).LineStyle = wdLineStyleNone
? ? ? ? ? ? .Borders(wdBorderTop).LineStyle = wdLineStyleThinThickMedGap
? ? ? ? ? ? .Borders(wdBorderTop).LineWidth = wdLineWidth225pt
? ? ? ? ? ? .Borders(wdBorderBottom).LineStyle = wdLineStyleThickThinMedGap
? ? ? ? ? ? .Borders(wdBorderBottom).LineWidth = wdLineWidth225pt
? ? ? ? ? ??
? ? ? ? ? ? With .Rows
? ? ? ? ? ? ? ? .WrapAroundText = False '取消文字環(huán)繞
? ? ? ? ? ? ? ? .Alignment = wdAlignRowCenter '表水平居中 ?wdAlignRowLeft '左對齊
? ? ? ? ? ? ? ? .AllowBreakAcrossPages = False '不允許行斷頁
? ? ? ? ? ? ? ? .HeightRule = wdRowHeightExactly '行高設(shè)為最小值 ? wdRowHeightAuto '行高設(shè)為自動
? ? ? ? ? ? ? ? .Height = CentimetersToPoints(0) '上面縮進量為0
? ? ? ? ? ? ? ? .LeftIndent = CentimetersToPoints(0) '左面縮進量為0
? ? ? ? ? ? End With
? ? ? ? ? ??
? ? ? ? ? ? With .Range
? ? ? ? ? ? ? ? With .Font '字體格式
? ? ? ? ? ? ? ? ? ? .Name = "宋體"
? ? ? ? ? ? ? ? ? ? .Name = "Times New Roman"
? ? ? ? ? ? ? ? ? ? .Color = wdColorAutomatic '自動字體顏色
? ? ? ? ? ? ? ? ? ? .Size = 12
? ? ? ? ? ? ? ? ? ? .Kerning = 0
? ? ? ? ? ? ? ? ? ? .DisableCharacterSpaceGrid = True
? ? ? ? ? ? ? ? End With
? ? ? ? ? ? ? ??
? ? ? ? ? ? ? ? With .ParagraphFormat '段落格式
? ? ? ? ? ? ? ? ? ? .CharacterUnitFirstLineIndent = 0 '取消首行縮進
? ? ? ? ? ? ? ? ? ? .FirstLineIndent = CentimetersToPoints(0) '取消首行縮進
? ? ? ? ? ? ? ? ? ? .LineSpacingRule = wdLineSpaceSingle '單倍行距 ?wdLineSpaceExactly '行距固定值
? ? ? ? ? ? ? ? ? ? '.LineSpacing = 20 '設(shè)置行間距為20磅，配合行距固定值
? ? ? ? ? ? ? ? ? ? .Alignment = wdAlignParagraphCenter '單元格水平居中
? ? ? ? ? ? ? ? ? ? .AutoAdjustRightIndent = False
? ? ? ? ? ? ? ? ? ? .DisableLineHeightGrid = True
? ? ? ? ? ? ? ? End With
? ? ? ? ? ? ? ??
? ? ? ? ? ? ? ? .Cells.VerticalAlignment = wdCellAlignVerticalCenter ?'單元格垂直居中
? ? ? ? ? ? ? ??
? ? ? ? ? ? End With
? ? ? ? ? ??
? ? ? ? ? ? '設(shè)置首行格式
? ? ? ? ? ? .Cell(1, 1).Select ' 選中第一個單元格
? ? ? ? ? ? With Selection
? ? ? ? ? ? ? ? .SelectRow '選中當前行
? ? ? ? ? ? ? ? Selection.Rows.HeadingFormat = wdToggle '自動標題行重復(fù)
? ? ? ? ? ? ? ? .Range.Font.Bold = True '表頭加粗黑體
? ? ? ? ? ? ? ? .Shading.ForegroundPatternColor = wdColorAutomatic '首行自動顏色
? ? ? ? ? ? ? ? .Shading.BackgroundPatternColor = -603923969 '首行底紋填充
? ? ? ? ? ? End With
? ? ? ? ? ??
? ? ? ? ? ? '自動調(diào)整表格
? ? ? ? ? ? .Columns.PreferredWidthType = wdPreferredWidthAuto
? ? ? ? ? ? .AutoFitBehavior (wdAutoFitContent) '根據(jù)內(nèi)容調(diào)整表格
? ? ? ? ? ? .AutoFitBehavior (wdAutoFitWindow) '根據(jù)窗口調(diào)整表格
? ? ? ? ? ??
? ? ? ? End With
? ? ? ??
? ? ? ? If i = 1 Then Exit For
? ? Next
? ? '***************************************************************************
? ? Err.Clear: On Error GoTo 0 '恢復(fù)錯誤捕捉
? ? Application.DisplayAlerts = True ?'開啟提示
? ? Application.ScreenUpdating = True ? '開啟屏幕刷新
End Sub

總結(jié)

以上是生活随笔為你收集整理的word vba设置表格样式的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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