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

Subject: RE: Getting out of a table in VBA, was:TECHWR-L Digest, Vol 69, Issue 16
From: "Peter Hirons" <peter -at- galley -dot- ie>
To: <techwr-l -at- lists -dot- techwr-l -dot- com>
Date: Thu, 21 Jul 2011 15:10:09 +0100

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


Previous by Author: Re: Is there a Word guru in the house?
Next by Author: Re: Modern vs Old-fashioned Help
Previous by Thread: RE: TECHWR-L Digest, Vol 69, Issue 16
Next by Thread: any legal issues w/writing press releases ?


What this post helpful? Share it with friends and colleagues:


Sponsored Ads