WORD表格求助：如何在现有WORD表格中全部表格后面加一列备注列 实际有八九百个表格

蔡小黑

WORD表格求助：如何在现有WORD表格中全部表格后面加一列备注列 实际有八九百个表格

kingtau

样表测试没问题，测试平台：win10 64位 + word 2016

1. Sub 插入列()
   
2. Dim t As Table
   
3.     For Each t In ActiveDocument.Tables
   
4.         t.Columns(7).Select
   
5.             With Selection
   
6.                 .InsertColumnsRight
   
7.                 .Cells.VerticalAlignment = wdCellAlignVerticalCenter
   
8.                 .Borders(wdBorderHorizontal).LineStyle = Options.DefaultBorderLineStyle
   
9.                 .Rows.Alignment = wdAlignRowCenter
   
10.             End With
    
11.         t.Cell(1, 8).Range.InsertAfter Text:="备注" & vbCr & "（户口性质）"
    
12.         t.Columns(1).PreferredWidth = MillimetersToPoints(14.9)
    
13.         t.Columns(2).PreferredWidth = MillimetersToPoints(24.7)
    
14.         t.Columns(3).PreferredWidth = MillimetersToPoints(21.2)
    
15.         t.Columns(4).PreferredWidth = MillimetersToPoints(19.1)
    
16.         t.Columns(5).PreferredWidth = MillimetersToPoints(29.1)
    
17.         t.Columns(6).PreferredWidth = MillimetersToPoints(37)
    
18.         t.Columns(7).PreferredWidth = MillimetersToPoints(42.3)
    
19.         t.Columns(8).PreferredWidth = MillimetersToPoints(37)
    
20.         t.Columns(9).PreferredWidth = MillimetersToPoints(23.2)
    
21.     Next
    
22. End Sub

复制代码