word中如何批量设置表格属性

RT
从网页上下载的word文档中表格边框打印出来是看不见的。想设置为打印出来能看见的黑色框线，但表格实在太多，能批量设置么？

谢谢！！

自己帮自己顶一下吧~~·

Sub setformat()
Dim Myshe As Table
For Each Myshe In ThisDocument.Tables
'   Myshe.PreferredWidthType = wdPreferredWidthPercent   
'   Myshe.PreferredWidth = 100  
   Myshe.Borders.InsideLineStyle = wdLineStyleSingle
   Myshe.Borders.Enable = True   
   Myshe.Borders.InsideLineWidth = wdLineWidth075pt     
'   Myshe.Borders(2).LineStyle = wdLineStyleSingle  
'   Myshe.Borders(4).LineStyle = wdLineStyleSingle  
   Myshe.Borders(1).LineWidth = wdLineWidth075pt   
   Myshe.Borders(3).LineWidth = wdLineWidth075pt
    Myshe.Borders(2).LineWidth = wdLineWidth075pt     
   Myshe.Borders(4).LineWidth = wdLineWidth075pt
Next
End Sub