Move to next content control

cksm4 · #13 03-02-2011, 09:53 AM

Hey Paul,

Yes, that helped a lot. This is the first time I used a range in this manner and I needed your example to put me in the right direction. Here is the code that does what I need:

Code:

With ActiveDocument
    For i = 1 To .ContentControls.Count
        If .ContentControls(i).Tag = "ContainerContents" Then
            strTmp = .ContentControls(i).Range.Text & .ContentControls(i + 1).Range.Text
            Set Rng = .ContentControls(i + 1).Range
            With Rng
                .Collapse (wdCollapseEnd)
                .Move wdCharacter, 1
                .InsertAfter strTmp
            End With
        strTmp = ""
        End If
    Next
End With

Thanks again!!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table of Content Eat up RAM Resources	Tommy	Word	0	08-23-2010 10:08 PM
need to grab content of certain fields?	erik2000	Word	0	02-19-2010 04:19 AM
Package for CD with links to Windows media player content and Flash Shockwave content	hectorh	PowerPoint	4	10-15-2009 12:22 PM
share content between documents?	albytrott	Word	1	10-08-2009 08:27 AM
Templates: automatic text generation from Rich Text content control	Chickenmunga	Word	0	10-01-2008 11:16 AM