以下是引用douglas738888在2018/9/21 17:32:00的发言:
不过TABLE中的备注,虽然已经设置了MAINTABLE.FONT为微软雅黑,但是备注列打开还是宋体拥挤的行距,目前未发现如何处理。
参考
For Each a As OBJECT In Tables("表B").grid.parent.controls
For Each b As OBJECT In a.controls
For Each c As OBJECT In b.controls
If c.text = "第四列" Then '第四列为备注列
c.font = New Font("微软雅黑",12)
End If
Next
Next
Next