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

Subject: RE: TECHWR-L Digest, Vol 69, Issue 16
From: "Rick_Bishop" <rickbishop -at- austin -dot- rr -dot- com>
To: <techwr-l -at- lists -dot- techwr-l -dot- com>
Date: Thu, 21 Jul 2011 08:50:28 -0500

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


Previous by Author: Re: Modern vs Old-fashioned Help
Next by Author: RE: People with disabilities - document access compliance
Previous by Thread: Re: Augmenting or replacing online help
Next by Thread: RE: Getting out of a table in VBA, was:TECHWR-L Digest, Vol 69, Issue 16


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

Sponsored Ads


Sponsored Ads