Macro 多行缩一行（表格单元格文字多行缩一行）宏

413191246se

1. Sub 多行缩一行()
   
2. '功能：单元格文字多行缩放为一行！
   
3. '注意：光标在表格外，处理所有表格！光标在表格内，处理光标所在表格！
   
4.     With ActiveDocument.Content.Find
   
5.         .Execute FindText:="^l", replacewith:="", Replace:=wdReplaceAll
   
6.         .Execute FindText:="^13", replacewith:="", Replace:=wdReplaceAll
   
7.     End With
   
8.     On Error Resume Next
   
9.     Dim t As Table, c As Cell, n As Long
   
10.     If Selection.Information(wdWithInTable) = True Then Selection.Tables(1).Select: n = 1
    
11.     For Each t In ActiveDocument.Tables
    
12.         If n = 1 Then Set t = Selection.Tables(1) Else t.Select
    
13.         For Each c In t.Range.Cells
    
14.             Do
    
15.                 c.Select: Selection.HomeKey Unit:=wdLine: Selection.EndKey Unit:=wdLine
    
16.                 If Asc(Selection) <> 13 Then
    
17.                     c.Select
    
18.                     Selection.Cells(1).Range.Font.Color = wdColorRed
    
19.                     Selection.Font.Scaling = Selection.Font.Scaling - 5
    
20.                 Else
    
21.                     Exit Do
    
22.                 End If
    
23.             Loop
    
24.         Next
    
25.         If n = 1 Then Exit For
    
26.     Next
    
27.     MsgBox "处理完毕！", vbOKOnly + vbExclamation, "单元格文字多行缩放为一行"
    
28. End Sub

复制代码