Word或WPS中批量设置表格样式的宏

软件测试大叔

已于 2023-07-12 18:51:08 修改

阅读量2.5k

点赞数 1

文章标签： word wps

于 2023-04-11 16:55:46 首次发布

本文链接：https://blog.csdn.net/light2081/article/details/130088147

版权

在编写word文档的过程中，有时候会使用很多的表格，执行如下宏，批量设置全部表格的样式

Sub 批量设置表格样式()
'
' 批量设置表格样式 Macro
'
 
On Error Resume Next
 
Dim t As Table
 
For Each t In ActiveDocument.Tables
 
't.AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格
't.AutoFitBehavior (wdAutoFitWindow)  '根据窗口自动调整表格
t.AutoFitBehavior (wdAutoFitFixed) '固定列宽
 
 
 
t.Select
 
Selection.Cells.DistributeWidth
 
Selection.Columns.PreferredWidthType = wdPreferredWidthPoints
 
Selection.Columns(1).PreferredWidth = CentimetersToPoints(2.5) '第1列宽度值（单位：厘米），可自行修改
 
't.Rows.First.Select
'Selection.Font.Bold = -1 '首行字体加粗 0 不加粗
't.Rows.First.Cells.Shading.BackgroundPatternColor = wdColorWhite '首行背景色

t.Columns.First.Select
Selection.Font.Bold = -1 '首列字体加粗
t.Columns.First.Cells.Shading.BackgroundPatternColor = wdColorGray30 '首列背景色

 
Next
 
Selection.HomeKey Unit:=wdStory
End Sub