word文档中宏的使用（使用VBA批量修改表格样式） |
您所在的位置：网站首页 › word中批量修改表格 › word文档中宏的使用（使用VBA批量修改表格样式） |
word文档中宏的使用（使用VBA批量修改表格样式）
1. 找到工具栏中“视图-》宏”
 2. 选择“查看宏”
如图：
代码块： Sub 修改表格字体() ' ' 修改表格字体 宏 ' ' For i = 1 To ActiveDocument.Tables.Count Dim t As Table Set t = ActiveDocument.Tables(i) With t '断开活动文档的第1个表格的域的链接 .Range.Fields.Unlink '关于字体的各项设置，可以通过录制宏得到 ' Range.Font 属性 ' 返回或设置 Font 对象，该对象代表指定对象的字符格式 With .Range.Font .NameFarEast = "宋体" '中文字体 .NameAscii = "宋体" '西文字体 .Size = 10.5 '字号 End With With t.Rows(1) .Shading.BackgroundPatternColor = wdColorWhite '设置第一行的背景颜色为白色 End With End With Next i End Sub 5. “运行”，运行中有错误会提示文档有些较大的，运行时间教长，需要耐心等待~
注：本部分样式代码原文地址：使用宏设置word中的表格样式_Sheyueyu的博客-CSDN博客 Sub SetTableBorders() '遍历所有表格 For Each tbl In ActiveDocument.Tables '设置表格顶部和底部边框为1.5 tbl.Borders(wdBorderTop).LineStyle = wdLineStyleSingle tbl.Borders(wdBorderTop).LineWidth = wdLineWidth150pt tbl.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle tbl.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt '设置第二行的上下边框为0.75 tbl.Rows(2).Borders(wdBorderTop).LineStyle = wdLineStyleSingle tbl.Rows(2).Borders(wdBorderTop).LineWidth = wdLineWidth075pt tbl.Rows(2).Borders(wdBorderBottom).LineStyle = wdLineStyleSingle tbl.Rows(2).Borders(wdBorderBottom).LineWidth = wdLineWidth075pt '遍历表格中除了第一行和最后一行以外的其余行 For i = 3 To tbl.Rows.Count - 1 tbl.Rows(i).Borders(wdBorderTop).LineStyle = wdLineStyleNone tbl.Rows(i).Borders(wdBorderBottom).LineStyle = wdLineStyleNone Next i '设置第一行下的边框为0.75 tbl.Rows(1).Borders(wdBorderBottom).LineStyle = wdLineStyleSingle tbl.Rows(1).Borders(wdBorderBottom).LineWidth = wdLineWidth075pt '隐藏表格的列边框 For j = 1 To tbl.Columns.Count tbl.Columns(j).Borders(wdBorderLeft).LineStyle = wdLineStyleNone tbl.Columns(j).Borders(wdBorderRight).LineStyle = wdLineStyleNone Next j Next tbl End Sub
|
【本文地址】
今日新闻 |
推荐新闻 |