怎么用查找 替换 批量把所有表格外框加粗？

lidejun55

怎么用查找 替换 批量把所有表格外框加粗？

duquancai

为啥要用查找替换？

lidejun55

duquancai 发表于 2016-12-1 12:27
为啥要用查找替换？

觉得这样快，而且方便，用vba不适合出差

duquancai

lidejun55 发表于 2016-12-1 12:33
觉得这样快，而且方便，用vba不适合出差

1. Sub shishi()
   
2.    Dim tb As Table
   
3.    For Each tb In ActiveDocument.Tables
   
4.       With tb.Range
   
5.          .Borders(wdBorderTop).LineWidth = 12
   
6.          .Borders(wdBorderBottom).LineWidth = 12
   
7.          .Borders(wdBorderLeft).LineWidth = 12
   
8.          .Borders(wdBorderRight).LineWidth = 12
   
9.       End With
   
10.    Next
    
11. End Sub

复制代码

duquancai

lidejun55 发表于 2016-12-1 12:33
觉得这样快，而且方便，用vba不适合出差

你觉得用vba不合适，那请你查找替换给我看看啊？前台操作提示你一下：表格样式！！！

lidejun55

duquancai 发表于 2016-12-1 12:39

谢谢，vba我已经找到源码了

lidejun55

duquancai 发表于 2016-12-1 12:47
你觉得用vba不合适，那请你查找替换给我看看啊？前台操作提示你一下：表格样式！！！

表格样式调只能一个一个条，能否有更快的办法？比如查找替换能一次都改完

duquancai

lidejun55 发表于 2016-12-1 13:00
谢谢，vba我已经找到源码了

那就恭喜你啊！

duquancai

lidejun55 发表于 2016-12-1 13:01
表格样式调只能一个一个条，能否有更快的办法？比如查找替换能一次都改完

你听谁说的 表格样式只能一个一个调？我没本事用查找替换表格的边框，你坐等大神出现吧！

lidejun55

duquancai 发表于 2016-12-1 13:06
你听谁说的 表格样式只能一个一个调？我没本事用查找替换表格的边框，你坐等大神出现吧！

那麻烦给说一下怎么能批量调整表格外框？谢谢