word 批量更改表格样式

发布网友发布时间：2022-05-04 21:19

共2个回答

热心网友时间：2022-06-25 23:43

通用代码：

Sub ChangeTable()

Application.Browser.Target = wdBrowseTable

For i = 1 To ActiveDocument.Tables.Count

ActiveDocument.Tables.Item(i).Select

With Selection

'表格外边框
.Borders.OutsideLineStyle = wdLineStyleSingle
'表格内边框
.Borders.InsideLineStyle = wdLineStyleSingle
'表格居中
.Rows.Alignment = wdAlignRowCenter
'表格内容居中
.Range.Paragraphs.Alignment = wdAlignParagraphCenter

End With

Next i

End Sub

不懂可以HI我。

热心网友时间：2022-06-25 23:44

可以录制一个宏来选中所有的表格，然后再单击要应用的样式即可。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com