Thread: entering data
View Single Post
  #2   Report Post  
Posted to microsoft.public.word.tables
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default entering data

Insert the following macro into your normal.dot (or dotm) template and it
will hijack the use of the tab key in a table
so that it does what you want:

Sub NextCell()
'
' NextCell Macro
' Moves to the next table cell
' Modified by Doug Robbins to move to the next cell in the column before
moving to
'the next column
With Selection.Tables(1)
If Selection.Information(wdEndOfRangeRowNumber) .Rows.Count Then
Selection.MoveDown
ElseIf Selection.Information(wdEndOfRangeColumnNumber) _
..Columns.Count Then
.Cell(1, Selection.Information(wdEndOfRangeColumnNumber) + _
1).Select
Selection.Collapse wdCollapseStart
Else
MsgBox "You have reached the end of the table."
End If
End With

End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"afdmello" wrote in message
...
Is there a keyboard shortcut to go to the lower row when entering data in
table
the tab key moves the cursor to the next horizontal cell.

Afd