如何在Word 2010中快速将许多新行插入表中？

我有一个有9行的表。它需要有59行。

我知道你突出显示说3行然后插入的技巧，它给你三个新行。如果要添加的行数远远大于已存在的行数，那么这种方法显然不会起作用。

有没有更好的方法快速添加50行？

方法1

转至最后一个单元格中的最后一排。然后每次按下tab它都会插入一个新行... tab按住以快速插入多行。

方法2

从表格中插入多行：

你可以用一个很容易的宏来做到这一点：

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long, lngRowsToAdd As Long, lngPosit As Long
Dim oTbl As Word.Table
  If Selection.Information(wdWithInTable) Then
    lngRowsToAdd = InputBox("How many rows?", "Add Rows", 1)
    Set oTbl = Selection.Tables(1)
    lngPosit = Selection.Rows(1).Range.Information(wdEndOfRangeRowNumber)
    For lngIndex = 1 To lngRowsToAdd
      oTbl.Rows.Add (oTbl.Rows(lngPosit))
    Next lngIndex
  End If
End Sub

有关使用上面提供的VBA代码的说明，请参阅：http：//gregmaxey.mvps.org/word_tip_pages/installing_employing_macros.html。

• 突出显示一行（或更多），然后点击插入（如您所知）。
• 然后按住Ctrl+ Y重复（又名：重做）最后一次插入，并在添加足够的行时释放。