表格处理（通用）宏 2018-6-4

413191246se

1. Sub 表格处理_通用()
   
2.     Dim t As Table, a&
   
3.     With Selection
   
4.         If .Information(12) Then
   
5.             .Tables(1).Select
   
6.             If MsgBox("是否处理选定表格？（否则处理所有表格）", 4 + 48, "表格处理") = vbYes Then a = 1 Else a = 2
   
7.         Else
   
8.             If MsgBox("是否处理所有表格？（否则请将光标放在表格中）", 4 + 48, "表格处理") = vbYes Then a = 2 Else End
   
9.         End If
   
10.     End With
    
11.     For Each t In ActiveDocument.Tables
    
12.         If a = 1 Then Set t = Selection.Tables(1)
    
13.         '-------------------------------------------------
    
14.         t.Range.Font.Color = wdColorRed '红色(此处可修改)
    
15.         '-------------------------------------------------
    
16.         If a = 1 Then End
    
17.     Next
    
18. End Sub

复制代码

wdpfox

多谢老师慷慨分享好资料！
　　　　　　Oooo
　　　　　　(___)
　　oooO  　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

huanglicheng

已借鉴 谢谢分享

413191246se

顶以更新。。。。。。