旋转

jyjzfl

当前使用的WORD2007中文档中的表格一次性处理。

413191246se

楼主，第二个表格，请将表头删除，处理成第一个表格的样式就可以和第一个表格一样使用宏了！

1. Sub a0000_0317_RotateText()
   
2.     Dim t As Table, c As Cell, i&, j&, s$
   
3.    
   
4.     Set t = ActiveDocument.Tables(1)
   
5.    
   
6.     For Each c In t.Range.Cells
   
7.         c.Range.Orientation = wdTextOrientationUpward
   
8.     Next
   
9.     t.Rows.Height = CentimetersToPoints(0.9)
   
10.     t.Rows(2).Select
    
11.     Selection.Range.Relocate wdRelocateUp
    
12.     j = 1
    
13.     Do
    
14.         ActiveDocument.Tables(2).Select
    
15.         
    
16.         With Selection
    
17.             If .Rows.Count = 1 Then
    
18.                 .Range.Relocate wdRelocateUp
    
19.                 .Range.Relocate wdRelocateDown
    
20.                 Exit Do
    
21.             End If
    
22.             
    
23.             i = 2
    
24.             j = j + 1
    
25.             .Tables(1).Rows(i).Select
    
26.             
    
27.             For i = 1 To j
    
28.                 .Range.Relocate wdRelocateUp
    
29.             Next
    
30.         End With
    
31.     Loop
    
32.    
    
33.     t.Rows(t.Rows.Count).Height = CentimetersToPoints(1.6)
    
34.     t.Columns(1).Select
    
35.    
    
36.     With Selection
    
37.         .InsertColumns
    
38.         .Cells.Merge
    
39.         .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
40.         .Cells.VerticalAlignment = wdCellAlignVerticalCenter
    
41.     End With
    
42.    
    
43.     t.Select
    
44.     s = Selection.Previous(4, 1)
    
45.     s = Replace(s, vbCr, "")
    
46.     With t
    
47.         .Cell(1, 1).Range.Text = s
    
48.         .AutoFitBehavior (wdAutoFitContent)
    
49.         .Select
    
50.         .AutoFitBehavior (wdAutoFitWindow)
    
51.         .Range.Font.ColorIndex = wdRed
    
52.     End With
    
53. End Sub

复制代码

jyjzfl

谢谢大师。

jyjzfl

谢谢大师，如果表格中有合并的单元格不知怎样处理？是不是先把有合并的单元格拆分，旋转移动，又合并成原来的哪样，这种思路。

413191246se

楼主，合并（拆分）表格比较麻烦，如果不是批量处理，可以简单地手动处理一下即可。