请问在所有表格第一行或最后一行前添加指定行的代码怎么写？

tangqingfu

kqbt 发表于 2011-12-9 12:41
'Selection.MoveDown Unit:=wdLine, Count:=1 '修改此值可以改变光标下移行数
这一句将光标从第1行移到了第 ...

谢谢kqbt兄的解答，测试通过！
如果想在第一列的前面添加指定列，代码该如何修改或编写？

kqbt

这样试试：
Sub 在所有表格第一列添加指定列()
  Dim tb As Table,i as integer, j as integer
   i = InputBox("请输入要插入的列数：", i)
  For Each tb In ActiveDocument.Tables
    tb.Select
    Selection.HomeKey Unit:=wdLine '光标置于表格首行首列
   For j = 1 To i
       Selection.InsertColumns
    Next
  Next
End Sub

szqhb

试了一下，好像很正常啊
你传个附件，把原始表和目标表描述清楚
同时把插入行有问题附件也传来看看

Sub 在所有表格第一行添加指定行()
Dim tb As Table
   i = InputBox("请输入要插入的行数：", i)
For Each tb In ActiveDocument.Tables
   tb.Select
    Selection.HomeKey Unit:=wdLine '光标置于表格首行
    Selection.MoveDown Unit:=wdLine, Count:=1 '修改此值可以改变光标下移行数
    Selection.InsertRowsAbove i '在上方插入一行，修改此值可以改变插入的行数
Next
End Sub

tangqingfu

好像有点问题，如果第一行有文本，发现插入的内容是在文本后，而不是在文本前插入一行
想修改一下代码，指定行可在输入框中输入，但是还是有点问题，每选中一个表格，就弹出一次输入框，如何修改使之做到全选所有表格后，才弹出一次输入框
Sub 在所有表格第一行添加指定行()
Dim tb As Table
For Each tb In ActiveDocument.Tables
   tb.Select
   i = InputBox("请输入要插入的行数：", i)
    Selection.HomeKey Unit:=wdLine '光标置于表格首行
    Selection.MoveDown Unit:=wdLine, Count:=1 '修改此值可以改变光标下移行数
    Selection.InsertRowsAbove i '在上方插入一行，修改此值可以改变插入的行数
Next
End Sub

tangqingfu

kqbt 发表于 2011-12-9 13:21
这样试试：
Sub 在所有表格第一列添加指定列()
  Dim tb As Table,i as integer, j as integer

测试通过！谢谢kqbt兄！
请问如果是在所有表格第一列后面添加指定列的代码该如何修改？
能否再帮编写在所有表格最后一行（或列）前（或后）添加指定行（或列）的代码？

sylun

可试试如下代码对文档各表格插入行列的效果：

1. Sub test()
   
2.     Dim i As Integer
   
3.     With Selection
   
4.         .HomeKey wdStory
   
5.         If .Information(wdWithInTable) = False Then .GoToNext(wdGoToTable).Select
   
6.         Do While i < ActiveDocument.Tables.Count
   
7.             i = i + 1
   
8.             .InsertRows i
   
9.             .EndOf wdTable
   
10.             .InsertRowsBelow i
    
11.             .StartOf wdColumn
    
12.             .InsertColumns
    
13.             .EndOf wdTable
    
14.             .InsertColumnsRight
    
15.             .GoToNext(wdGoToTable).Select
    
16.         Loop
    
17.     End With
    
18. End Sub
    

复制代码

tangqingfu

感谢sylun兄的分享，不是很理解代码的含义，能否请懂代码的网友帮注释一下。
请教如何编写在所有表格最后一行（或列）前（或后）添加指定行（或列）的代码？
如果能整合成在指定行或列（如首行（列）、第三行（列）……最后一行（列）等）前（或后）添加指定行（或列）的代码，通过Inputbox由用户指定行或列及添加指定行或列，那就更好了。

sqhsqhli

这个代码要收藏，

sqhsqhli

tang兄:我瞎猜注释如下：

Sub test()
02.    Dim i As Integer
03.    With Selection
04.        .HomeKey wdStory  '光标至文章开始
05.        If .Information(wdWithInTable) = False Then .GoToNext(wdGoToTable).Select'如果选区无表则选定下一个表
06.        Do While i < ActiveDocument.Tables.Count'i小于表总数则循环
07.            i = i + 1'计数器
08.            .InsertRows i  '插入i 行
09.            .EndOf wdTable'至表末
10.            .InsertRowsBelow i'在下方插入i行
11.            .StartOf wdColumn'至列开始
12.            .InsertColumns '插入1列
13.            .EndOf wdTable'至表末
14.            .InsertColumnsRight ’在右边插入1列
15.            .GoToNext(wdGoToTable).Select '选定下一表
16.        Loop
17.    End With
18.End Sub

后面的问题，我想表格有行数的属性，可以直接指定的。另也可操作光标实现。

lrh788

学习了！！！