word 中如何批量修改表格？

sea8sky

我现在手头有个word文档，里面的表格很多，我想对它们进行统一的编辑（都设置成根据窗口调整表格，单元格自动居中），可是，我悲剧的发现，用ctrl选中多个表格，点击右键，自动调整后面的三个选项居然全都是灰色的……在网上也没有找到合适的办法，只能来这里求助了……

我的问题是：怎么样批量调整一个word文档中的表格的属性？（包括批量的选择和批量的修改）

期待热心人提供帮助{:soso_e183:}

szqhb

参考http://club.excelhome.net/thread-367812-1-1.html之2楼

sea8sky

谢谢szqhb ，我还是看不太懂……我问问朋友看看哈，谢谢你

sea8sky

试了一下，都调好了，谢谢谢谢

szqhb

下面是两个宏，运行第一个宏看看
（第一个是逐个选中表格，第二个是对表格进行设置）
Sub 批量设置表格格式()
    Dim oTable As Table
    If ActiveDocument.ProtectionType <> wdNoProtection Then Exit Sub
    Application.ScreenUpdating = False
    For Each oTable In ActiveDocument.Tables
        oTable.Select
        Call 表格格式
    Next
    Application.ScreenUpdating = True
End Sub

Sub 表格格式()
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub

tangqingfu

谢谢szqhb兄的分享！

tanshuizhu

szqhb 发表于 2011-9-4 23:15
下面是两个宏，运行第一个宏看看
（第一个是逐个选中表格，第二个是对表格进行设置）
Sub 批量设置表格格 ...

还是不行啊，可否qq指导下，178701509

40525299999

2楼的方法可以实现楼主的要求，但能不能将标题行也设置成固定的格式，比如加粗，蓝色底，请教一下

jiangxiaoyun

将表格格式做一样样式，然后遍历文档表格套用就可以了。
Sub 套用表格格式()
    With ActiveDocument
        .Tables(1).Style = "我的样式"
    End With
End Sub