Results 1 to 3 of 3
  1. #1
    2 Star Lounger
    Join Date
    May 2002
    Location
    Houston, Texas, USA
    Posts
    100
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Macro to append multiple table rows (2003)

    In Word there is a toolbar button/command (Table - Rows) that allows for the addition of multiple rows to the end of a table, but the cursor must first be placed outside the table in order for the macro button to be made available. I would like a macro that would move the cursor to the end of the table and present the dialog. Can someone help me with code needed to create such a macro? Thanks!

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Macro to append multiple table rows (2003)

    Most of the following macro was recorded, I only cleaned it up a bit and replaced the instruction to insert a fixed number of rows with the instruction to display the dialog.

    Sub InsertRowsAfter()
    If Selection.Information(wdWithInTable) Then
    Selection.HomeKey Unit:=wdRow
    Selection.EndKey Unit:=wdColumn
    Selection.MoveDown Unit:=wdLine, Count:=1
    Dialogs(wdDialogTableInsertRow).Show
    End If
    End Sub

  3. #3
    2 Star Lounger
    Join Date
    May 2002
    Location
    Houston, Texas, USA
    Posts
    100
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Macro to append multiple table rows (2003)

    Thank you, Hans!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •