请问word中多表格如何批量调整格式? 请问word中多表格如何批量调整格式? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 首先,录制宏,选择一个表格,把你对单个表格做的事情都用录下来。然后看生成的代码。基本都是对selection对象的一系列操作。就像下面这个一样Sub 宏4()'' 宏4 宏'' Selection.MoveUp Unit:=wdLine, Count:=4, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Shading.Texture = wdTextureNone Selection.Shading.ForegroundPatternColor = wdColorAutomatic Selection.Shading.BackgroundPatternColor = -553582746 Selection.Font.Name = "黑体" Selection.Tables(1).Style = "网格型浅色"End Sub接下来,写自己的宏,总体的思路就是遍历文档中左右的表格,然后把每个表格选中,再重复对单个表格干的事情。Sub test() Dim t As Table For Each t In Application.ActiveDocument.Tables '遍历文档中所有表格 t.Select '把表格选中 'TODO:把单个表格操作录制的宏代码贴上来即可 DoEvents NextEnd Sub 高分求助,高手过来----....着急,在线等着呢.... 难题,请教大家帮忙! VBControlsEvents 对象 - VB 插件 怎样能让程序停顿,知道点击继续按钮才继续? 如何加载窗体 紧急求救!等待中..... Win2K下编写的程序到了Win9x下字体变形问题的研究 问题二 如何加快窗体的卸载速度 (前2个有分) 关系型数据库编程难题? 无影石,我再送你300分!!! 数据库连接的DBHelper类,代码插入中文后在数据库中显示问号,知道要加charset=utf8,但是,,,我不知道加哪 求教贴
然后看生成的代码。基本都是对selection对象的一系列操作。
就像下面这个一样
Sub 宏4()
'
' 宏4 宏
'
'
Selection.MoveUp Unit:=wdLine, Count:=4, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = -553582746
Selection.Font.Name = "黑体"
Selection.Tables(1).Style = "网格型浅色"
End Sub
接下来,写自己的宏,总体的思路就是遍历文档中左右的表格,然后把每个表格选中,再重复对单个表格干的事情。Sub test()
Dim t As Table
For Each t In Application.ActiveDocument.Tables '遍历文档中所有表格
t.Select '把表格选中 'TODO:把单个表格操作录制的宏代码贴上来即可
DoEvents
Next
End Sub