Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.word.tables
TimvG TimvG is offline
external usenet poster
 
Posts: 12
Default Working with a nesting table from inside a nested table - switchingrows.

Imagine you have a table, and nested in each cell is a table. Your
selection is inside one of the nested tables. You want to switch the
row containing your selected table with the row above it. What makes
this a bit tricky is that (it seems) you can't directly identify the
nesting (exterior) cell/row/table.

Below FWIW is the code I came up with. It seems to work fine, but I'm
hoping/expecting there's a more elegant and robust way to do it.

[An additional constraint I was working with was that if your nested
table is already in the top row of the nesting table, it should seem
to the user as if nothing at all happened; e.g. the cursor should stay
in the same spot. Hence the NestingRowIndex function.]

Sub MoveRowUp()
Dim DeleteMe As Row
If NestingRowIndex 1 Then
Selection.Expand wdTable
Selection.Collapse wdCollapseEnd
Selection.MoveEnd wdCharacter
Selection.Cells(1).Range.Copy
Set DeleteMe = Selection.Rows(1)
Selection.Expand wdRow
Selection.MoveUp
Selection.Rows.Add
Selection.Cells(1).Range.Paste
DeleteMe.Delete
Else
MsgBox ("You're at the top already.")
End If

End Sub

Function NestingRowIndex()
'You're in a nested table. What is the row number of cell in which
the table is nested?
Dim testRange As Range
Set testRange = Selection.Range
testRange.Expand wdTable
testRange.Collapse wdCollapseEnd
testRange.MoveEnd wdCharacter
NestingRowIndex = testRange.Cells(1).RowIndex
End Function


PS my approach was based on a suggestion by Cindy Meister,
http://social.msdn.microsoft.com/For...8-1a55b5dd7a79
 
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Word 2003 "paste as nested table" not nesting [email protected] Tables 0 August 14th 07 11:42 PM
Enter inside table moves the table Monika Bjurman Tables 4 July 10th 07 04:56 PM
Creating a table inside an existing table Eric Schmieder Tables 2 October 13th 05 05:45 PM
Drawing a table inside of a table Luc New Users 1 August 23rd 05 10:43 AM
How can I draw a table inside of a table? avinoam.aharoni New Users 5 June 29th 05 07:12 PM


All times are GMT +1. The time now is 10:34 AM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"