Unable to automate changes in Header/Footer?

Hello, I have created a document template for a client which basically
consists of a user form (using the new Content Controls in 2007) which
their users will fill out (dates, addresses, etc.) and use for
correspondence from their office with their clients. The tricky part
is that they want certain data to be repeated in the header from the
second page on.

So, I've placed the appropriate content controls in the header, and
written a macro which updates each of the content controls in that
header whenever the user tabs away from a content control. It works
great.... the problem is that the second I protect the document, it
stops working, claiming the area you are trying to edit is protected.
So, even though they are form fields, because they exist in the
header, they are considered protected. I've attempted to setup
multiple sections and remove protection for the sections the header
falls under, but to no avail.


Here is the code for the macro in case anyone is interested:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As
ContentControl, Cancel As Boolean)

'Variable Declarations
Dim objCC As ContentControl
Dim strDate As String
Dim strRecipient As String
Dim strOrg As String

'Captures the text input from the user.
For Each objCC In ActiveDocument.ContentControls
If objCC.Tag = "Date" Then
strDate = objCC.Range.Text
ElseIf objCC.Tag = "Recipient" Then
strRecipient = objCC.Range.Text
ElseIf objCC.Tag = "Organization" Then
strOrg = objCC.Range.Text
End If
Next

'Saves the text entered by the user from the first page to the header
for following pages.
For Each objCC In
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.ContentControls
If objCC.Tag = "hdrDate" Then
objCC.Range.Text = strDate
ElseIf objCC.Tag = "hdrRecipient" Then
objCC.Range.Text = strRecipient
ElseIf objCC.Tag = "hdrOrg" Then
objCC.Range.Text = strOrg
End If
Next

End Sub

Please, if anyone can offer me any ideas or assistance, it would be
greatly appreciated! Thanks!

It is not necessary to protect a document that uses Content Controls. That
is the advantage of them over FormFields

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

<KPKaltenbach DeleteThis @gmail.com> wrote in message
news:a29e2953-7899-4375-a07a-92d34c19d16c@26g2000hsk.googlegroups.com...
> Hello, I have created a document template for a client which basically
> consists of a user form (using the new Content Controls in 2007) which
> their users will fill out (dates, addresses, etc.) and use for
> correspondence from their office with their clients. The tricky part
> is that they want certain data to be repeated in the header from the
> second page on.
>
> So, I've placed the appropriate content controls in the header, and
> written a macro which updates each of the content controls in that
> header whenever the user tabs away from a content control. It works
> great.... the problem is that the second I protect the document, it
> stops working, claiming the area you are trying to edit is protected.
> So, even though they are form fields, because they exist in the
> header, they are considered protected. I've attempted to setup
> multiple sections and remove protection for the sections the header
> falls under, but to no avail.
>
>
> Here is the code for the macro in case anyone is interested:
>
> Private Sub Document_ContentControlOnExit(ByVal ContentControl As
> ContentControl, Cancel As Boolean)
>
> 'Variable Declarations
> Dim objCC As ContentControl
> Dim strDate As String
> Dim strRecipient As String
> Dim strOrg As String
>
> 'Captures the text input from the user.
> For Each objCC In ActiveDocument.ContentControls
> If objCC.Tag = "Date" Then
> strDate = objCC.Range.Text
> ElseIf objCC.Tag = "Recipient" Then
> strRecipient = objCC.Range.Text
> ElseIf objCC.Tag = "Organization" Then
> strOrg = objCC.Range.Text
> End If
> Next
>
> 'Saves the text entered by the user from the first page to the header
> for following pages.
> For Each objCC In
> ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.ContentControls
> If objCC.Tag = "hdrDate" Then
> objCC.Range.Text = strDate
> ElseIf objCC.Tag = "hdrRecipient" Then
> objCC.Range.Text = strRecipient
> ElseIf objCC.Tag = "hdrOrg" Then
> objCC.Range.Text = strOrg
> End If
> Next
>
> End Sub
>
> Please, if anyone can offer me any ideas or assistance, it would be
> greatly appreciated! Thanks!