VBA唏嘘戏——简单单元格的设定（实例）

Sub 设置列宽()
‘
‘  设置列宽宏
‘
‘
    ActiveDocument.Tables(1).Cell(7, 2).Width = 45   ‘将Word表格的第7行第2列（即B7单元格）的宽度设为45
    ActiveDocument.Tables(1).Cell(7, 3).Width = 30
    ActiveDocument.Tables(1).Cell(7, 4).Width = 117
    ActiveDocument.Tables(1).Cell(7, 5).Width = 33
    ActiveDocument.Tables(1).Cell(7, 6).Width = 30
    ActiveDocument.Tables(1).Cell(7, 7).Width = 30
    ActiveDocument.Tables(1).Cell(7, 8).Width = 30
    ActiveDocument.Tables(1).Cell(7, 9).Width = 57
    ActiveDocument.Tables(1).Cell(7, 10).Width = 39
    ActiveDocument.Tables(1).Cell(7, 11).Width = 39
    ActiveDocument.Tables(1).Cell(7, 12).Width = 60
    ActiveDocument.Tables(1).Cell(7, 13).Width = 33
    ActiveDocument.Tables(1).Cell(7, 14).Width = 30
    ActiveDocument.Tables(1).Cell(7, 15).Width = 30
    ActiveDocument.Tables(1).Cell(7, 16).Width = 30
    ActiveDocument.Tables(1).Cell(7, 17).Width = 70.5
    ActiveDocument.Tables(1).Cell(7, 17).Range.Text = ""  ‘将Word的表格第7行第17列单元格（Q7单元格）的值设置为空



    ActiveDocument.Tables(1).Cell(8, 2).Width = 45
    ActiveDocument.Tables(1).Cell(8, 3).Width = 30
    ActiveDocument.Tables(1).Cell(8, 4).Width = 117
    ActiveDocument.Tables(1).Cell(8, 5).Width = 33
    ActiveDocument.Tables(1).Cell(8, 6).Width = 30
    ActiveDocument.Tables(1).Cell(8, 7).Width = 30
    ActiveDocument.Tables(1).Cell(8, 8).Width = 30
    ActiveDocument.Tables(1).Cell(8, 9).Width = 57
    ActiveDocument.Tables(1).Cell(8, 10).Width = 39
    ActiveDocument.Tables(1).Cell(8, 11).Width = 39
    ActiveDocument.Tables(1).Cell(8, 12).Width = 60
    ActiveDocument.Tables(1).Cell(8, 13).Width = 33
    ActiveDocument.Tables(1).Cell(8, 14).Width = 30
    ActiveDocument.Tables(1).Cell(8, 15).Width = 30
    ActiveDocument.Tables(1).Cell(8, 16).Width = 30
    ActiveDocument.Tables(1).Cell(8, 17).Width = 70.5
    ActiveDocument.Tables(1).Cell(8, 17).Range.Text = ""


    
    ActiveDocument.Tables(1).Cell(9, 2).Width = 45
    ActiveDocument.Tables(1).Cell(9, 3).Width = 30
    ActiveDocument.Tables(1).Cell(9, 4).Width = 117
    ActiveDocument.Tables(1).Cell(9, 5).Width = 33
    ActiveDocument.Tables(1).Cell(9, 6).Width = 30
    ActiveDocument.Tables(1).Cell(9, 7).Width = 30
    ActiveDocument.Tables(1).Cell(9, 8).Width = 30
    ActiveDocument.Tables(1).Cell(9, 9).Width = 57
    ActiveDocument.Tables(1).Cell(9, 10).Width = 39
    ActiveDocument.Tables(1).Cell(9, 11).Width = 39
    ActiveDocument.Tables(1).Cell(9, 12).Width = 60
    ActiveDocument.Tables(1).Cell(9, 13).Width = 33
    ActiveDocument.Tables(1).Cell(9, 14).Width = 30
    ActiveDocument.Tables(1).Cell(9, 15).Width = 30
    ActiveDocument.Tables(1).Cell(9, 16).Width = 30
    ActiveDocument.Tables(1).Cell(9, 17).Width = 70.5
    ActiveDocument.Tables(1).Cell(9, 17).Range.Text = ""


    
    
    
    
    ActiveDocument.Tables(1).Cell(10, 2).Width = 45
    ActiveDocument.Tables(1).Cell(10, 3).Width = 30
    ActiveDocument.Tables(1).Cell(10, 4).Width = 117
    ActiveDocument.Tables(1).Cell(10, 5).Width = 33
    ActiveDocument.Tables(1).Cell(10, 6).Width = 30
    ActiveDocument.Tables(1).Cell(10, 7).Width = 30
    ActiveDocument.Tables(1).Cell(10, 8).Width = 30
    ActiveDocument.Tables(1).Cell(10, 9).Width = 57
    ActiveDocument.Tables(1).Cell(10, 10).Width = 39
    ActiveDocument.Tables(1).Cell(10, 11).Width = 39
    ActiveDocument.Tables(1).Cell(10, 12).Width = 60
    ActiveDocument.Tables(1).Cell(10, 13).Width = 33
    ActiveDocument.Tables(1).Cell(10, 14).Width = 30
    ActiveDocument.Tables(1).Cell(10, 15).Width = 30
    ActiveDocument.Tables(1).Cell(10, 16).Width = 30
    ActiveDocument.Tables(1).Cell(10, 17).Width = 70.5
    ActiveDocument.Tables(1).Cell(10, 17).Range.Text = ""


    
    ActiveDocument.Tables(1).Cell(11, 2).Width = 45
    ActiveDocument.Tables(1).Cell(11, 3).Width = 30
    ActiveDocument.Tables(1).Cell(11, 4).Width = 117
    ActiveDocument.Tables(1).Cell(11, 5).Width = 33
    ActiveDocument.Tables(1).Cell(11, 6).Width = 30
    ActiveDocument.Tables(1).Cell(11, 7).Width = 30
    ActiveDocument.Tables(1).Cell(11, 8).Width = 30
    ActiveDocument.Tables(1).Cell(11, 9).Width = 57
    ActiveDocument.Tables(1).Cell(11, 10).Width = 39
    ActiveDocument.Tables(1).Cell(11, 11).Width = 39
    ActiveDocument.Tables(1).Cell(11, 12).Width = 60
    ActiveDocument.Tables(1).Cell(11, 13).Width = 33
    ActiveDocument.Tables(1).Cell(11, 14).Width = 30
    ActiveDocument.Tables(1).Cell(11, 15).Width = 30
    ActiveDocument.Tables(1).Cell(11, 16).Width = 30
    ActiveDocument.Tables(1).Cell(11, 17).Width = 70.5
    ActiveDocument.Tables(1).Cell(11, 17).Range.Text = ""

    
    
    ActiveDocument.Tables(1).Cell(12, 2).Width = 45
    ActiveDocument.Tables(1).Cell(12, 3).Width = 30
    ActiveDocument.Tables(1).Cell(12, 4).Width = 117
    ActiveDocument.Tables(1).Cell(12, 5).Width = 33
    ActiveDocument.Tables(1).Cell(12, 6).Width = 30
    ActiveDocument.Tables(1).Cell(12, 7).Width = 30
    ActiveDocument.Tables(1).Cell(12, 8).Width = 30
    ActiveDocument.Tables(1).Cell(12, 9).Width = 57
    ActiveDocument.Tables(1).Cell(12, 10).Width = 39
    ActiveDocument.Tables(1).Cell(12, 11).Width = 39
    ActiveDocument.Tables(1).Cell(12, 12).Width = 60
    ActiveDocument.Tables(1).Cell(12, 13).Width = 33
    ActiveDocument.Tables(1).Cell(12, 14).Width = 30
    ActiveDocument.Tables(1).Cell(12, 15).Width = 30
    ActiveDocument.Tables(1).Cell(12, 16).Width = 30
    ActiveDocument.Tables(1).Cell(12, 17).Width = 70.5
    ActiveDocument.Tables(1).Cell(12, 17).Range.Text = ""

    
    
    
    ActiveDocument.Tables(1).Cell(13, 2).Width = 45
    ActiveDocument.Tables(1).Cell(13, 3).Width = 30
    ActiveDocument.Tables(1).Cell(13, 4).Width = 117
    ActiveDocument.Tables(1).Cell(13, 5).Width = 33
    ActiveDocument.Tables(1).Cell(13, 6).Width = 30
    ActiveDocument.Tables(1).Cell(13, 7).Width = 30
    ActiveDocument.Tables(1).Cell(13, 8).Width = 30
    ActiveDocument.Tables(1).Cell(13, 9).Width = 57
    ActiveDocument.Tables(1).Cell(13, 10).Width = 39
    ActiveDocument.Tables(1).Cell(13, 11).Width = 39
    ActiveDocument.Tables(1).Cell(13, 12).Width = 60
    ActiveDocument.Tables(1).Cell(13, 13).Width = 33
    ActiveDocument.Tables(1).Cell(13, 14).Width = 30
    ActiveDocument.Tables(1).Cell(13, 15).Width = 30
    ActiveDocument.Tables(1).Cell(13, 16).Width = 30
    ActiveDocument.Tables(1).Cell(13, 17).Width = 70.5
    ActiveDocument.Tables(1).Cell(13, 17).Range.Text = ""

    
    
    ActiveDocument.Tables(1).Cell(14, 2).Width = 45
    ActiveDocument.Tables(1).Cell(14, 3).Width = 30
    ActiveDocument.Tables(1).Cell(14, 4).Width = 117
    ActiveDocument.Tables(1).Cell(14, 5).Width = 33
    ActiveDocument.Tables(1).Cell(14, 6).Width = 30
    ActiveDocument.Tables(1).Cell(14, 7).Width = 30
    ActiveDocument.Tables(1).Cell(14, 8).Width = 30
    ActiveDocument.Tables(1).Cell(14, 9).Width = 57
    ActiveDocument.Tables(1).Cell(14, 10).Width = 39
    ActiveDocument.Tables(1).Cell(14, 11).Width = 39
    ActiveDocument.Tables(1).Cell(14, 12).Width = 60
    ActiveDocument.Tables(1).Cell(14, 13).Width = 33
    ActiveDocument.Tables(1).Cell(14, 14).Width = 30
    ActiveDocument.Tables(1).Cell(14, 15).Width = 30
    ActiveDocument.Tables(1).Cell(14, 16).Width = 30
    ActiveDocument.Tables(1).Cell(14, 17).Width = 70.5
    ActiveDocument.Tables(1).Cell(14, 17).Range.Text = ""


    
    ActiveDocument.Tables(1).Cell(15, 2).Width = 45
    ActiveDocument.Tables(1).Cell(15, 3).Width = 30
    ActiveDocument.Tables(1).Cell(15, 4).Width = 117
    ActiveDocument.Tables(1).Cell(15, 5).Width = 33
    ActiveDocument.Tables(1).Cell(15, 6).Width = 30
    ActiveDocument.Tables(1).Cell(15, 7).Width = 30
    ActiveDocument.Tables(1).Cell(15, 8).Width = 30
    ActiveDocument.Tables(1).Cell(15, 9).Width = 57
    ActiveDocument.Tables(1).Cell(15, 10).Width = 39
    ActiveDocument.Tables(1).Cell(15, 11).Width = 39
    ActiveDocument.Tables(1).Cell(15, 12).Width = 60
    ActiveDocument.Tables(1).Cell(15, 13).Width = 33
    ActiveDocument.Tables(1).Cell(15, 14).Width = 30
    ActiveDocument.Tables(1).Cell(15, 15).Width = 30
    ActiveDocument.Tables(1).Cell(15, 16).Width = 30
    ActiveDocument.Tables(1).Cell(15, 17).Width = 70.5
    ActiveDocument.Tables(1).Cell(15, 17).Range.Text = ""

   
    ActiveDocument.Tables(1).AllowAutoFit = False
    
    
End Sub