word vba表格的操作

loveya_a

word里面宏又不好录制只好来求助了
如果只有一个66的表格在word里
1.需要在第三行插入一行 这一行有6列
2.第四行也插入一行 这一行有3列
3.删除第5行
怎么操作

loveya_a

是6X6的表格

daibao88

自己看帮助文件吧 Table InsertRowsAbove Merge等关键词

413191246se

楼主，你未说明是在第 3 行（和第 4 行）上方插入行还是下方插入行；要删除的第 5 行是现在的第 5 行还是原来的第 5 行；但请试试下面的宏：

1. Sub test()
   
2. '声明变量
   
3.     Dim c As Cell, r As Range, n&
   
4. 
   
5. '新建 6 x 6 表格
   
6.     Documents.Add DocumentType:=wdNewBlankDocument
   
7.     ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
   
8.     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=6, NumColumns:=6, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
   
9. 
   
10. '第一列填充数字
    
11.     With ActiveDocument.Tables(1)
    
12.         .Columns(1).Select
    
13.         n = 1
    
14.         For Each c In Selection.Cells
    
15.             c.Range.Text = n
    
16.             n = n + 1
    
17.         Next
    
18. 
    
19. '选中第3行
    
20.         .Rows(3).Select
    
21.         If MsgBox("是否在第3行上方插入行（否则下方）？", 4 + 48) = vbYes Then Selection.InsertRows Else Selection.InsertRowsBelow
    
22. 
    
23. '选中第4行
    
24.         .Rows(4).Select
    
25.         If MsgBox("是否在第4行上方插入行（否则下方）？", 4 + 48) = vbYes Then Selection.InsertRows Else Selection.InsertRowsBelow
    
26.         Selection.Cells.Split NumRows:=1, NumColumns:=3, MergeBeforeSplit:=True
    
27. 
    
28. '删除第5行
    
29.         .Rows(5).Delete
    
30.     End With
    
31. End Sub

复制代码

loveya_a

413191246se 发表于 2019-5-1 00:45
楼主，你未说明是在第 3 行（和第 4 行）上方插入行还是下方插入行；要删除的第 5 行是现在的第 5 行还是原 ...

感谢 看了之后看其他的就好理解了