WORD宏设置批量修改全部表格格式
- 引言
- 1. 设置表格文字样式
- 2. 设置表格边框样式
- 3. 设置所有表格边框样式为075pt
- 4. 删除行
- 参考
引言
这两周已经彻底变为office工程师了，更准确一点应该是Word工程师，一篇文档动不动就成百上千页，表格图片也是上千个之多，一个个手动该那估计改到归西那天我也改不完，所以顺手梳理了一下宏关于表格字体与边框格式设置的用法，以备后续不时之需。
后面也可能会不定时更新。
1. 设置表格文字样式
// 设置所有文字样式和局部文字样式
Sub EditTablesFont()
'
' 设置所有的表格字体
'
'
For i = 1 To ActiveDocument.Tables.CountDim t As TableSet t = ActiveDocument.Tables(i)With t'断开活动文档的第1个表格的域的链接.Range.Fields.Unlink'关于字体的各项设置，可以通过录制宏得到
' Range.Font 属性
' 返回或设置 Font 对象，该对象代表指定对象的字符格式With .Range.Font.NameFarEast = "仿宋" '中文字体.NameAscii = "Times New Roman" '西文字体.Size = 10 '字号.Bold = False '字形 不加粗.Italic = False '字形 不是斜体号.ColorIndex = wdBlack '字体颜色.Underline = wdUnderlineNone '下划线 无.UnderlineColor = wdColorBlack '下划线 颜色.EmphasisMark = wdEmphasisMarkNone '着重号.StrikeThrough = False '删除线.DoubleStrikeThrough = False '双删除线.Superscript = False '字体格式 上标.Subscript = False '字体格式 下标.SmallCaps = False '小型大写字母 字母的形状和大写字母相同但尺寸较小.AllCaps = False '全部大写字母 如果为true 字母全部大写.Hidden = False '隐藏 如果设置为true，打印的时候看不到End WithWith t.Rows(1).Shading.BackgroundPatternColor = -654245991 '设置第一行的背景颜色为淡绿色With .Range.Font '设置第一行表头字体格式.NameFarEast = "黑体" '中文字体.NameAscii = "Times New Roman" '西文字体.Size = 10 '字号.Bold = False '字形 不加粗End WithEnd WithEnd With
Next iEnd Sub;
2. 设置表格边框样式
// 设置所有文字样式和局部文字样式
Sub EditTablesBorders()
'
' 设置所有的表格边框
'
''遍历所有表格For Each tbl In ActiveDocument.Tables'设置表格顶部和底部边框为1.5tbl.Borders(wdBorderTop).LineStyle = wdLineStyleSingletbl.Borders(wdBorderTop).LineWidth = wdLineWidth150pttbl.Borders(wdBorderBottom).LineStyle = wdLineStyleSingletbl.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt'设置第二行的上下边框为0.75tbl.Rows(2).Borders(wdBorderTop).LineStyle = wdLineStyleSingletbl.Rows(2).Borders(wdBorderTop).LineWidth = wdLineWidth075pttbl.Rows(2).Borders(wdBorderBottom).LineStyle = wdLineStyleSingletbl.Rows(2).Borders(wdBorderBottom).LineWidth = wdLineWidth075pt'遍历表格中除了第一行和最后一行以外的其余行For i = 3 To tbl.Rows.Count - 1tbl.Rows(i).Borders(wdBorderTop).LineStyle = wdLineStyleNonetbl.Rows(i).Borders(wdBorderBottom).LineStyle = wdLineStyleNoneNext i'设置第一行下的边框为0.75tbl.Rows(1).Borders(wdBorderBottom).LineStyle = wdLineStyleSingletbl.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 jNext tblEnd Sub
3. 设置所有表格边框样式为075pt
// 设置所有文字样式和局部文字样式
Sub EditTablesBorders2()
'
' 设置所有的表格边框
'
''遍历所有表格For Each tbl In ActiveDocument.TablesFor i = 1 To tbl.Rows.Counttbl.Rows(i).Borders(wdBorderTop).LineStyle = wdLineStyleSingletbl.Rows(i).Borders(wdBorderTop).LineWidth = wdLineWidth075pttbl.Rows(i).Borders(wdBorderBottom).LineStyle = wdLineStyleSingletbl.Rows(i).Borders(wdBorderBottom).LineWidth = wdLineWidth075ptNext iNext tblEnd Sub
4. 删除行
// 设置所有文字样式和局部文字样式
Sub 删除行()Dim myTab As TableFor Each myTab In ActiveDocument.TablesmyTab.Rows(1).Delete '删除第一行NextEnd Sub
参考
https://blog.csdn.net/HyEidolon/article/details/134154144
