word 中用宏批量选中所有表格第一行

luojie0011 · 发表于 2020-8-28 10:35

在工作中，经常用到对word文本中所有表格的第一行设置不同的格式，请各位大神帮忙一下，非常感激。用宏批量选中所有表格第一行的代码怎么写？

vbee · 发表于 2020-8-28 12:18

Sub VBEE1()
For I = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(I).Rows(1).Range.Font.Color = vbRed
Next
End Sub

luojie0011 · 发表于 2020-8-28 15:27

vbee 发表于 2020-8-28 12:18
Sub VBEE1()
For I = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(I).Rows(1).Range.Font.C ...

谢谢，但是说有合并单元格的列，运行不下去，麻烦再优化一下好吗

luojie0011 · 发表于 2020-8-28 15:34

luojie0011 发表于 2020-8-28 15:27
谢谢，但是说有合并单元格的列，运行不下去，麻烦再优化一下好吗

对选中的第一行设成加粗，就好了

vbee · 发表于 2020-8-29 07:51

本帖最后由 vbee 于 2020-8-29 09:08 编辑

Sub VBEE1()
On Error Resume Next
For I = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(I).Rows(1).Range.Font.Color = vbRed
ActiveDocument.Tables(I).Rows(1).Range.Font.Bold = True
Next
End Sub

luojie0011 · 发表于 2020-9-14 17:46

vbee 发表于 2020-8-29 07:51
Sub VBEE1()
On Error Resume Next
For I = 1 To ActiveDocument.Tables.Count

谢谢，辛苦了。运行2007版微软的word后，没有反应呢，麻烦再搞一下

		自动登录	找回密码
密码			免费注册

[求助] word 中用宏批量选中所有表格第一行