Question

Word VBA 自动调整表格中指定单元格字体，跨页怎么办

一个Word文档中有多个相同结构的表格，修改指定单元格的字体格式，第一页修改成功了，后面的表格都没有按照指定的字体修改。求大神帮忙看看，该怎么修改、。
Dim i As Integer, x As Long
i = ActiveDocument.Tables.Count
Application.ScreenUpdating = False
For x = 1 To i
Set oTable = ActiveDocument.Tables(x).Application.Selection
Selection.MoveRight Unit:=wdCharacter, Count:=6
Selection.MoveRight Unit:=wdCharacter, Count:=14, Extend:=wdExtend
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Next
Application.ScreenUpdating = True

Answer 1

你可能 在调试状态下，追踪一下看每次循环都正确地选定了表格。
第一页能正常执行，表示代码的设置部分是正确的。
那么问题是否出在循环选表的时候？
调试前，先把这句注释掉 Application.ScreenUpdating = False

Answer 2

没有看到其他信息说明修改内容怎么改，其他的调了一下。你试试：

Sub ttt()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
Selection.MoveRight Unit:=wdCharacter, Count:=6
Selection.MoveRight Unit:=wdCharacter, Count:=14, Extend:=wdExtend
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 16
Next
End Sub