RE: Getting out of a table in VBA, was:TECHWR-L Digest, Vol 69, Issue 16

["Peter Hirons" <peter -at- galley -dot- ie>]

Please change the subject line to something meaningful when replying to
digests.

Peter

-----Original Message-----
From: techwr-l-bounces+peter=galley -dot- ie -at- lists -dot- techwr-l -dot- com
[mailto:techwr-l-bounces+peter=galley -dot- ie -at- lists -dot- techwr-l -dot- com] On Behalf Of
Rick_Bishop
Sent: Thursday, July 21, 2011 2:50 PM
To: techwr-l -at- lists -dot- techwr-l -dot- com
Subject: RE: TECHWR-L Digest, Vol 69, Issue 16

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 peter -at- galley -dot- ie -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/peter%40galley.ie


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

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

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