请问word中多表格如何批量调整格式?

omnbmhsh 2019-06-16 09:15:17
请问word中多表格如何批量调整格式?
...全文
1561 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
脆皮大雪糕 2019-06-17
  • 打赏
  • 举报
回复
首先,录制宏,选择一个表格,把你对单个表格做的事情都用录下来。 然后看生成的代码。基本都是对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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧