怎么批量选中每个表格的第一行

遥控器78

一个文件中有很多表格，我想选中每个表格的第一行设置格式，请问如何用VBA选中这些表格的第一行。

shenjianrong163

1. Sub Test()
   
2.      Dim T As Table
   
3.      Application.ScreenUpdating = False
   
4.      ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   
5.      For Each T In ActiveDocument.Tables
   
6.         ActiveDocument.Range(T.Cell(1, 1).Range.Start, T.Cell(1, T.Columns.Count).Range.End).Editors.Add wdEditorEveryone
   
7.      Next
   
8.      ActiveDocument.SelectAllEditableRanges wdEditorEveryone
   
9.      ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   
10.      Application.ScreenUpdating = True
    
11. End Sub

复制代码

遥控器78

shenjianrong163 发表于 2021-4-12 22:15

十分感谢！