word中表格批处理困难

zhazhaa

有个问题想请问大家。
在一个word里面有很多这样的表格我需要加底纹和边框。我用下面的命令选取所有表格
Sub 选中所有表格()
     Dim mytable As Table
      Application.ScreenUpdating = False
      For Each mytable In ActiveDocument.Tables
         mytable.Range.Editors.Add wdEditorEveryone
     Next
    ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
    ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
     Application.ScreenUpdating = True
End Sub
处理不了。
后来我发现是因为我这些表格是从网上复制下来的。它们外面还有一个单元格。。。我选中的是外面的那个单元格
拖动的时候才发现的。这样的情况怎么办呀

附上我的问题word。

zhazhaa

没人呀，自己顶。

xwdys

是这个意思吗？
Sub 选中所有表格()
    Dim mytable As Table
    Application.ScreenUpdating = False
    For Each mytable In ActiveDocument.Tables
        mytable.Rows.ConvertToText Separator:=wdSeparateByParagraphs, NestedTables:=False
        mytable.Borders.InsideLineStyle = wdLineStyleSingle
    Next
    Application.ScreenUpdating = True
End Sub

zhazhaa

xwdys 发表于 2015-9-8 19:28
是这个意思吗？
Sub 选中所有表格()
    Dim mytable As Table

谢谢啦，是这个意思。非常感谢。这能节约我很多时间。对我帮助很大。辛苦啦