Move cursor to end of table of contents

Hi all,

I have a macro which adds extra text into the table of contents, but for it
to work correctly, the cursor needs to be placed at the end of the TOC. Is
there a way I can get word to place the cursor there automatically, rather
than making the user do it?

Thanks a lot,

TimDouglas

Jean-Guy
Tue Aug 01 09:06:11 CDT 2006

TimDouglas was telling us:
TimDouglas nous racontait que :

> Hi all,
>
> I have a macro which adds extra text into the table of contents, but
> for it to work correctly, the cursor needs to be placed at the end of
> the TOC. Is there a way I can get word to place the cursor there
> automatically, rather than making the user do it?

Dim rgePostTOC As Range

Set rgePostTOC = ActiveDocument.TablesOfContents(1).Range

With rgePostTOC
.Collapse wdCollapseEnd
End With

will place the range right after the TOC, then, if you are adding text, use
something like:

Dim rgePostTOC As Range

Set rgePostTOC = ActiveDocument.TablesOfContents(1).Range

With rgePostTOC
.Collapse wdCollapseEnd
.InsertAfter "New text"
End With


--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Jonathan
Tue Aug 01 09:00:31 CDT 2006


"TimDouglas" <TimDouglas@discussions.microsoft.com> wrote in message
news:F6711579-164F-422C-8038-97737CF68E1E@microsoft.com...
> Hi all,
>
> I have a macro which adds extra text into the table of contents, but for
> it
> to work correctly, the cursor needs to be placed at the end of the TOC.
> Is
> there a way I can get word to place the cursor there automatically, rather
> than making the user do it?
>


Don't use the Selection object at all. Word instead with a Range object,
which is very much like the selection except that you can define as many of
them as you like, and the cursor doesn't move around when you change them.
Just about every element in a Word document has a Range property. So, for
instance, you could do this

Dim oRange as Range
Set oRange = ActiveDocument.TablesOfContents(1).Range

Now, oRange is "marking" the whole of the table of contents. You can use the
InsertAfter method to insert text after the table of contents, or
InsertBefore to insert text before it.


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org