![]() |
![]() |
|
|||||||
| Excel Questions All Excel/VBA questions - formulas, macros, pivot tables, general help, etc. Please post to this forum in English only. |
![]() |
|
|
Thread Tools | Display Modes |
|
|
#1 |
|
Guest
Posts: n/a
|
I have over 150 tables in a Microsoft Word '97 doc. I need to create a macro to automatically insert one more row at the end of each table. Is there any way I can do this "globally," or just by hitting a couple of keys? Thanks in advance for your help! (P.S. - need step by step info, here, sorry!)
|
|
|
|
#2 |
|
MrExcel MVP
Join Date: Feb 2002
Location: Newcastle, UK
Posts: 1,174
|
Sounds to me like a Word problem :0
|
|
|
|
|
|
#3 |
|
MrExcel MVP
Join Date: Feb 2002
Location: Allentown, PA
Posts: 2,510
|
I'm not good with code, but this recorded/edited macro will find the next table, go to the end of it and hit tab, which creates a new row:
Sub NewRow() ' ' Macro recorded 03/06/2002 by Dreamboat ' Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:="" Selection.Find.ClearFormatting Selection.EndKey Unit:=wdColumn Selection.EndKey Unit:=wdRow Selection.MoveRight Unit:=wdCell End Sub Hope that helps. Here's the keystrokes if you don't want a macro: F5 Select table from the list. Hit Find next (or just enter). Esc to close dialog. Alt+Page down Alt+End Tab
__________________
~Anne Troy |
|
|
|
![]() |
| Bookmarks |
| Thread Tools | |
| Display Modes | |
|
|