Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
Turn off automatic row addition?
I'm using Word 2000 (it ain't broke), one minor problem. I sometimes
want to turn off the feature that adds a new row, when the cursor is in the last row of the table and you press Tab. Is it possible? (It's one of about 15 features that WP5.1 used to have ... ) Thanks, -- Steven M - lid (remove wax and invalid to reply) "It's a damned fool mind that can only think of one way to spell a word." -- attributed to Dizzy Dean |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
Turn off automatic row addition?
Try this macro (posted by Jay Freedman two years ago in the "TAB key appends
new row to table - can this be turned off" thread at http://groups.google.se/group/micros...b62108f585b/): Sub TableDemo() Dim oRg As Range Dim oCell As Cell ' make sure there is a table ' (prevent an error message) If ActiveDocument.Tables.Count = 0 Then MsgBox "No tables!" Exit Sub End If ' start at top left Set oCell = ActiveDocument.Tables(1).Cell(1, 1) ' since we know there is a table, it must have ' at least a Cell(1,1), so this loop will ' execute at least once Do While Not oCell Is Nothing ' get its range Set oRg = oCell.Range ' exclude end-of-cell mark from oRg oRg.MoveEnd unit:=wdCharacter, Count:=-1 ' make it bold oRg.Bold = True ' display it MsgBox oRg.Text ' go to the next cell Set oCell = oCell.Next ' if that was the last one and there is ' no next cell, then oCell is now Nothing ' so loop will terminate Loop End Sub -- Stefan Blom Microsoft Word MVP "Steven M (remove wax and invalid to reply)" wrote in message ... I'm using Word 2000 (it ain't broke), one minor problem. I sometimes want to turn off the feature that adds a new row, when the cursor is in the last row of the table and you press Tab. Is it possible? (It's one of about 15 features that WP5.1 used to have ... ) Thanks, -- Steven M - lid (remove wax and invalid to reply) "It's a damned fool mind that can only think of one way to spell a word." -- attributed to Dizzy Dean |
#3
Posted to microsoft.public.word.tables
|
|||
|
|||
Turn off automatic row addition?
Thanks. I had forgotten, but I posted the same question then, too!
Steven Je Thu, 19 Jul 2007 12:16:26 +0200, "Stefan Blom" skribis: Try this macro (posted by Jay Freedman two years ago in the "TAB key appends new row to table - can this be turned off" thread at http://groups.google.se/group/micros...b62108f585b/): Sub TableDemo() Dim oRg As Range Dim oCell As Cell ' make sure there is a table ' (prevent an error message) If ActiveDocument.Tables.Count = 0 Then MsgBox "No tables!" Exit Sub End If ' start at top left Set oCell = ActiveDocument.Tables(1).Cell(1, 1) ' since we know there is a table, it must have ' at least a Cell(1,1), so this loop will ' execute at least once Do While Not oCell Is Nothing ' get its range Set oRg = oCell.Range ' exclude end-of-cell mark from oRg oRg.MoveEnd unit:=wdCharacter, Count:=-1 ' make it bold oRg.Bold = True ' display it MsgBox oRg.Text ' go to the next cell Set oCell = oCell.Next ' if that was the last one and there is ' no next cell, then oCell is now Nothing ' so loop will terminate Loop End Sub -- Steven M - lid (remove wax and invalid to reply) "It's a damned fool mind that can only think of one way to spell a word." -- attributed to Dizzy Dean |
#4
Posted to microsoft.public.word.tables
|
|||
|
|||
Turn off automatic row addition?
You are welcome. (By the way, I didn't realize that you were the original
poster in the old thread.) -- Stefan Blom Microsoft Word MVP "Steven M (remove wax and invalid to reply)" wrote in message ... Thanks. I had forgotten, but I posted the same question then, too! Steven Je Thu, 19 Jul 2007 12:16:26 +0200, "Stefan Blom" skribis: Try this macro (posted by Jay Freedman two years ago in the "TAB key appends new row to table - can this be turned off" thread at http://groups.google.se/group/micros...b62108f585b/): Sub TableDemo() Dim oRg As Range Dim oCell As Cell ' make sure there is a table ' (prevent an error message) If ActiveDocument.Tables.Count = 0 Then MsgBox "No tables!" Exit Sub End If ' start at top left Set oCell = ActiveDocument.Tables(1).Cell(1, 1) ' since we know there is a table, it must have ' at least a Cell(1,1), so this loop will ' execute at least once Do While Not oCell Is Nothing ' get its range Set oRg = oCell.Range ' exclude end-of-cell mark from oRg oRg.MoveEnd unit:=wdCharacter, Count:=-1 ' make it bold oRg.Bold = True ' display it MsgBox oRg.Text ' go to the next cell Set oCell = oCell.Next ' if that was the last one and there is ' no next cell, then oCell is now Nothing ' so loop will terminate Loop End Sub -- Steven M - lid (remove wax and invalid to reply) "It's a damned fool mind that can only think of one way to spell a word." -- attributed to Dizzy Dean |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Turn off automatic outlining? | Microsoft Word Help | |||
how to turn off automatic heading | Microsoft Word Help | |||
How do I stop the automatic addition of another row in Tables? | Tables | |||
Turn off automatic TOC formatting | Microsoft Word Help | |||
Can't turn off automatic inserts, have used help and it doesn't | Microsoft Word Help |