RE: TECHWR-L Digest, Vol 69, Issue 16

["Rick_Bishop" <rickbishop -at- austin -dot- rr -dot- com>]

Here ya go Larry. This should do it.

Sub AddTableContinue()
'
'  AddTableContinue Macro
'  Creates a new 3x4 table followed by a hard page break.
'
    ActiveDocument.Tables.Add Range:=Selection.Range, _
    NumRows:=3, NumColumns:=4, _
    DefaultTableBehavior:=wdWord9TableBehavior, _
    AutoFitBehavior:=wdAutoFitFixed
    Selection.Tables(1).Select
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeParagraph
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.Style = ActiveDocument.Styles("Body Text")
    Selection.InsertBreak Type:=0
    Selection.TypeParagraph
'    Do whatever you like next.
End Sub


Date: Wed, 20 Jul 2011 08:22:12 -0700 (PDT)
From: Larry Landis <lawrence_landis -at- yahoo -dot- com>
To: techwr-l -at- lists -dot- techwr-l -dot- com
Subject: Getting out of a table in VBA

I can add a table using, for example:

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:=
4, DefaultTableBehavior:=wdWord9TableBehavior,
AutoFitBehavior:=wdAutoFitFixed

After the table, I'd then like to enter a page break and continue on doing
other things - inserting text, adding another table, etc.

But how do I move the insertion point from the table's cell(1,1)? I've tried
collapsing the selection to its end, going to the built-in \EndOfDoc
bookmark, etc., but nothing seems to work.

Thanks!

Larry



^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Create and publish documentation through multiple channels with Doc-To-Help.
Choose your authoring formats and get any output you may need. Try
Doc-To-Help, now with MS SharePoint integration, free for 30-days.
http://www.doctohelp.com

---
You are currently subscribed to TECHWR-L as archive -at- web -dot- techwr-l -dot- com -dot- 

To unsubscribe send a blank email to
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40web.techwr-l.com


To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to admin -at- techwr-l -dot- com -dot-  Visit
http://www.techwr-l.com/ for more resources and info.

Please move off-topic discussions to the Chat list, at:
http://lists.techwr-l.com/mailman/listinfo/techwr-l-chat