As VBA insists on resequencing entire rows when sorting partial tables in MSword, irrespective of the selection being invoked, I have set to writing a "selected columns sort". The following problem is occurring on moving cell contents.
Using [blue]Set upperdata = Selection.Range[/blue] etc to set part rows as three ranges, then
The last paste is the wrong length or in the wrong place (but on the correct row of the table). I've tried numerous variations but there's always a problem of this sort. It's as though one or more range definitions has been corrupted.
Using [blue]Set upperdata = Selection.Range[/blue] etc to set part rows as three ranges, then
Code:
lowerdata.Copy
mybuff.Paste
upperdata.Copy
lowerdata.Paste
mybuff.Copy
upperdata.Paste