split table and insert text

[stuck]

I've split a table and inserted some text underneath it:

Code: Select all

Selection.Tables(1).Rows(4 + intSplitRange + 1).Select
    Selection.splitTable
    ftrText = "my table footer text goes here"
    Selection.InsertAfter (ftrText)

where intSplitRange is a number of rows determined earlier in the code.

What I want to do next is move down into the new other half of the table and past in some header rows (already copied in to a range) but I can't figure out how to get into that (new) table

Any suggestions gratefully received.

Ken

[HansV]

Selection.MoveDown will place the insertion point in the first cell of the "lower half".

[stuck]

Thanks, that was too obvious.

However, even though I can see that the cursor has moved into the new table when I paste the header rows that I mentioned had been copied earlier, they are not being inserted at that point, they are being dumped into the original top half. Any idea why that is?

Ken

[HansV]

I'll have to check, but I'll be busy with other things for an hour or so.

[stuck]

Umm, thanks but no need. Bad case of

Ken

[Rudi]

Are you needing to move down into the table and paste the table headings again?

How about this?

Code: Select all

    Selection.MoveDown
    Selection.SelectRow
    Selection.PasteAndFormat (wdFormatPlainText)

[stuck]

Thanks Rudi but there was no problem, apart from me getting the syntax of my paste was wrong. It was pasting in the top half because that's where I was telling it to paste

Ken

[HansV]

Stupid computers - always doing what you tell them to do, instead of what you want them to do...