如何在用excel在word表中插入行呀！！！

wjtwjt127

在word表中插入行用下面的方法

 For hs = 1 To k - 1 + sy
      With Wdtable
            On Error Resume Next
            Set newrow = Wdtable.Rows.Add(BeforeRow:=Wdtable.Rows(4 + hs))
             On Error Resume Next
            
       End With
      
    Next hs

如果不用循环语句，如何一次插入多行！！！请高手指点！！！！程序如何改写呀！！

[em06]

qee用

插入行不是复制,一次只能一行.

帮你转WORD版看看.

守柔

QUOTE:

以下是引用wjtwjt127在2007-1-9 13:32:29的发言：

在word表中插入行用下面的方法

 For hs = 1 To k - 1 + sy
      With Wdtable
            On Error Resume Next
            Set newrow = Wdtable.Rows.Add(BeforeRow:=Wdtable.Rows(4 + hs))
             On Error Resume Next
            
       End With
      
    Next hs

如果不用循环语句，如何一次插入多行！！！请高手指点！！！！程序如何改写呀！！

[em06]

谢谢楼主，我也是第一次进行此类尝试。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-1-9 18:25:55
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0126^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
    Dim myTable As Table, myRange As Range, myRows As Rows
    With ActiveDocument
        Set myTable = .Tables(1)    '定义一个Table对象
        '定义一个RANGE对象,为myTable对象的第2行到第5行所有内容区域
        Set myRange = .Range(myTable.Rows(2).Range.Start, myTable.Rows(5).Range.End)
        Set myRows = myRange.Rows
        '在指定行集合上方插入行(插入4行)
        myRows.Add beforerow:=myRows
    End With
End Sub
'----------------------

当然，你也可以使用SELECTION对象，即先把需要的行选定，然后使用以下两种方法之一：

Selection.InsertRowsAbove

Selection.InsertRowsBelow

请自行转化到Excel中操纵Word的Automation方法，我从略。