怎么对选中的表格应用VBA

遥控器78

这是一个调整表格列宽的VBA，我想只对选中的表格应用，请问怎么修改。

Sub 表格列宽()

    Dim t As Table, arr, i&
    arr = Array(1.3, 0.59, 0.59, 1.77, 1.44, 1.44, 1.15, 1.15, 1.83, 1.83, 1.28, 1.28, 3.43, 1.7, 2.14)
    For Each t In ActiveDocument.Tables
        With t
            For i = 0 To UBound(arr)
                .Columns(i + 1).PreferredWidth = CentimetersToPoints(arr(i))
            Next
        End With
    Next
End Sub

413191246se

1. Sub 表格列宽()
   
2. '可以选定某个区域/如果不选则对所有表格有效！
   
3.     Dim r As Range, t As Table, arr, i&
   
4.     Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
5.     arr = Array(1.3, 0.59, 0.59, 1.77, 1.44, 1.44, 1.15, 1.15, 1.83, 1.83, 1.28, 1.28, 3.43, 1.7, 2.14)
   
6.     For Each t In r.Tables
   
7.         With t
   
8.             For i = 0 To UBound(arr)
   
9.                 .Columns(i + 1).PreferredWidth = CentimetersToPoints(arr(i))
   
10.             Next
    
11.         End With
    
12.     Next
    
13. End Sub

复制代码

遥控器78

413191246se 发表于 2021-4-14 17:21

厉害，太感谢了

遥控器78

413191246se 发表于 2021-4-14 17:21

Sub 外框加粗()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
With tbl.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideLineWidth = wdLineWidth100pt
.InsideLineStyle = wdLineStyleSingle
.InsideLineWidth = wdLineWidth050pt
End With
Next tbl
Set tbl = Nothing
End Sub

请问这个VBA怎么对选定的表格使用。

413191246se

* 楼主，下面有两个宏：上面的是你的，下面的是 杜老师 写的，请在 100% 视图比例下分别选定两个表格后（可以选多一点文字），比较一下效果，喜欢哪个就用哪个！

1. Sub 外框加粗()
   
2. '可以选定某个区域/如果不选则对所有表格有效！
   
3.     Dim rng As Range, tbl As Table
   
4.     Set rng = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
5.     For Each tbl In rng.Tables
   
6.         With tbl.Borders
   
7.             .OutsideLineStyle = wdLineStyleSingle
   
8.             .OutsideLineWidth = wdLineWidth100pt
   
9.             .InsideLineStyle = wdLineStyleSingle
   
10.             .InsideLineWidth = wdLineWidth050pt
    
11.         End With
    
12.     Next tbl
    
13.     Set tbl = Nothing
    
14. End Sub
    
15. Sub 表格粗框()
    
16. '可以选定某个区域/如果不选则对所有表格有效！/code by duquancai
    
17.     Dim r As Range, t As Table, i As Long
    
18.     Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
    
19.     For Each t In r.Tables
    
20.         For i = 1 To 4
    
21.             t.Range.Borders(-i).LineWidth = 12
    
22.         Next
    
23.     Next
    
24. End Sub

复制代码

遥控器78

413191246se 发表于 2021-4-22 22:22
* 楼主，下面有两个宏：上面的是你的，下面的是 杜老师 写的，请在 100% 视图比例下分别选定两个表格后（可 ...

感谢！感谢！