Hi guys

I am a bit stuck. I have a form which has a ToC in it. I have used the
code at
http://word.mvps.org/FAQs/MacrosVBA/...lfResetOff.htm.
which works fine to uprotect the doc, then I can manually left-click by the
ToC, hit F9 and it updates, then the macro will reprotect the form without
losing any of the info in the form fields. It works a treat.

BUT....! It would be even more seamless to the user if I could add a bit of
VB code that will unlock the form, *automatically update the fields*, then
reprotect the form without losing any of the form field info (so that the
user can simply click an icon on the toolbar which will do all this instead
if him/her having to go to the ToC and cliking F9)

I did try to cobble together some code but it wouldn't work.

Can anyone help?

I haven't tested the following with a TOC field but it should work.

Sub TOCFieldUpdate()
' Written by Charles Kyle Kenyon 27 January 2005
' Field Updater - TOC fields
Dim oField As Field
On Error Resume Next
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldTOC Then
oField.Update
End If
Next oField
End Sub

Try putting this in your module and calling it from your unprotect /
reprotect procedure or simply add the code to your procedure. Hope this
helps.
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"La La Lara" wrote in message
...
Hi guys

I am a bit stuck. I have a form which has a ToC in it. I have used the
code at
http://word.mvps.org/FAQs/MacrosVBA/...lfResetOff.htm.
which works fine to uprotect the doc, then I can manually left-click by
the
ToC, hit F9 and it updates, then the macro will reprotect the form without
losing any of the info in the form fields. It works a treat.

BUT....! It would be even more seamless to the user if I could add a bit
of
VB code that will unlock the form, *automatically update the fields*, then
reprotect the form without losing any of the form field info (so that the
user can simply click an icon on the toolbar which will do all this
instead
if him/her having to go to the ToC and cliking F9)

I did try to cobble together some code but it wouldn't work.

Can anyone help?

Thanks Charles.

I have now got the following in the "Microsoft Word Objects" part of the VB
window, under "This document":

Sub ToolsProtectUnprotectDocument()

Dim oDoc As Document
Set oDoc = ActiveDocument

On Error GoTo ErrMess
If oDoc.ProtectionType = wdNoProtection Then
With Dialogs(wdDialogToolsProtectDocument)
.noreset = True
.Show
End With
Else
oDoc.Unprotect
End If
Exit Sub

ErrMess:
MsgBox Err.Description, vbInformation

End Sub

Sub TOCFieldUpdate()
' Written by Charles Kyle Kenyon 27 January 2005
' Field Updater - TOC fields
Dim oField As Field
On Error Resume Next
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldTOC Then
oField.Update
End If
Next oField
End Sub



Sub ProtectForm()
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
ActiveDocument.Unprotect
Else
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, noreset:=True
End If
End Sub


But it doesn't work, as when I run the macro it only runs the first
"section" of it, i.e.
ToolsProtectUnprotectDocument.

I really don't know much about VB code, so I am confused as to how to get
the macro to go though all the 3 sections of the code above. Am I making any
sense???!!!




"Charles Kenyon" wrote:

I haven't tested the following with a TOC field but it should work.

Sub TOCFieldUpdate()
' Written by Charles Kyle Kenyon 27 January 2005
' Field Updater - TOC fields
Dim oField As Field
On Error Resume Next
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldTOC Then
oField.Update
End If
Next oField
End Sub

Try putting this in your module and calling it from your unprotect /
reprotect procedure or simply add the code to your procedure. Hope this
helps.
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"La La Lara" wrote in message
...
Hi guys

I am a bit stuck. I have a form which has a ToC in it. I have used the
code at
http://word.mvps.org/FAQs/MacrosVBA/...lfResetOff.htm.
which works fine to uprotect the doc, then I can manually left-click by
the
ToC, hit F9 and it updates, then the macro will reprotect the form without
losing any of the info in the form fields. It works a treat.

BUT....! It would be even more seamless to the user if I could add a bit
of
VB code that will unlock the form, *automatically update the fields*, then
reprotect the form without losing any of the form field info (so that the
user can simply click an icon on the toolbar which will do all this
instead
if him/her having to go to the ToC and cliking F9)

I did try to cobble together some code but it wouldn't work.

Can anyone help?

Try

Sub TOCUpdateMaster()
ToolsProtectUnprotectDocument
TOCFieldUpdate
ProtectForm
End Sub

--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"La La Lara" wrote in message
...
Thanks Charles.

I have now got the following in the "Microsoft Word Objects" part of the
VB
window, under "This document":

Sub ToolsProtectUnprotectDocument()

Dim oDoc As Document
Set oDoc = ActiveDocument

On Error GoTo ErrMess
If oDoc.ProtectionType = wdNoProtection Then
With Dialogs(wdDialogToolsProtectDocument)
.noreset = True
.Show
End With
Else
oDoc.Unprotect
End If
Exit Sub

ErrMess:
MsgBox Err.Description, vbInformation

End Sub

Sub TOCFieldUpdate()
' Written by Charles Kyle Kenyon 27 January 2005
' Field Updater - TOC fields
Dim oField As Field
On Error Resume Next
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldTOC Then
oField.Update
End If
Next oField
End Sub



Sub ProtectForm()
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
ActiveDocument.Unprotect
Else
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, noreset:=True
End If
End Sub


But it doesn't work, as when I run the macro it only runs the first
"section" of it, i.e.
ToolsProtectUnprotectDocument.

I really don't know much about VB code, so I am confused as to how to get
the macro to go though all the 3 sections of the code above. Am I making
any
sense???!!!




"Charles Kenyon" wrote:

I haven't tested the following with a TOC field but it should work.

Sub TOCFieldUpdate()
' Written by Charles Kyle Kenyon 27 January 2005
' Field Updater - TOC fields
Dim oField As Field
On Error Resume Next
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldTOC Then
oField.Update
End If
Next oField
End Sub

Try putting this in your module and calling it from your unprotect /
reprotect procedure or simply add the code to your procedure. Hope this
helps.
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"La La Lara" wrote in message
...
Hi guys

I am a bit stuck. I have a form which has a ToC in it. I have used
the
code at
http://word.mvps.org/FAQs/MacrosVBA/...lfResetOff.htm.
which works fine to uprotect the doc, then I can manually left-click by
the
ToC, hit F9 and it updates, then the macro will reprotect the form
without
losing any of the info in the form fields. It works a treat.

BUT....! It would be even more seamless to the user if I could add a
bit
of
VB code that will unlock the form, *automatically update the fields*,
then
reprotect the form without losing any of the form field info (so that
the
user can simply click an icon on the toolbar which will do all this
instead
if him/her having to go to the ToC and cliking F9)

I did try to cobble together some code but it wouldn't work.

Can anyone help?

THANK YOU so much!!!!

"Charles Kenyon" wrote:

Try

Sub TOCUpdateMaster()
ToolsProtectUnprotectDocument
TOCFieldUpdate
ProtectForm
End Sub

--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"La La Lara" wrote in message
...
Thanks Charles.

I have now got the following in the "Microsoft Word Objects" part of the
VB
window, under "This document":

Sub ToolsProtectUnprotectDocument()

Dim oDoc As Document
Set oDoc = ActiveDocument

On Error GoTo ErrMess
If oDoc.ProtectionType = wdNoProtection Then
With Dialogs(wdDialogToolsProtectDocument)
.noreset = True
.Show
End With
Else
oDoc.Unprotect
End If
Exit Sub

ErrMess:
MsgBox Err.Description, vbInformation

End Sub

Sub TOCFieldUpdate()
' Written by Charles Kyle Kenyon 27 January 2005
' Field Updater - TOC fields
Dim oField As Field
On Error Resume Next
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldTOC Then
oField.Update
End If
Next oField
End Sub



Sub ProtectForm()
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
ActiveDocument.Unprotect
Else
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, noreset:=True
End If
End Sub


But it doesn't work, as when I run the macro it only runs the first
"section" of it, i.e.
ToolsProtectUnprotectDocument.

I really don't know much about VB code, so I am confused as to how to get
the macro to go though all the 3 sections of the code above. Am I making
any
sense???!!!




"Charles Kenyon" wrote:

I haven't tested the following with a TOC field but it should work.

Sub TOCFieldUpdate()
' Written by Charles Kyle Kenyon 27 January 2005
' Field Updater - TOC fields
Dim oField As Field
On Error Resume Next
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldTOC Then
oField.Update
End If
Next oField
End Sub

Try putting this in your module and calling it from your unprotect /
reprotect procedure or simply add the code to your procedure. Hope this
helps.
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"La La Lara" wrote in message
...
Hi guys

I am a bit stuck. I have a form which has a ToC in it. I have used
the
code at
http://word.mvps.org/FAQs/MacrosVBA/...lfResetOff.htm.
which works fine to uprotect the doc, then I can manually left-click by
the
ToC, hit F9 and it updates, then the macro will reprotect the form
without
losing any of the info in the form fields. It works a treat.

BUT....! It would be even more seamless to the user if I could add a
bit
of
VB code that will unlock the form, *automatically update the fields*,
then
reprotect the form without losing any of the form field info (so that
the
user can simply click an icon on the toolbar which will do all this
instead
if him/her having to go to the ToC and cliking F9)

I did try to cobble together some code but it wouldn't work.

Can anyone help?

You are welcome.
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"La La Lara" wrote in message
...
THANK YOU so much!!!!

"Charles Kenyon" wrote:

Try

Sub TOCUpdateMaster()
ToolsProtectUnprotectDocument
TOCFieldUpdate
ProtectForm
End Sub

--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"La La Lara" wrote in message
...
Thanks Charles.

I have now got the following in the "Microsoft Word Objects" part of
the
VB
window, under "This document":

Sub ToolsProtectUnprotectDocument()

Dim oDoc As Document
Set oDoc = ActiveDocument

On Error GoTo ErrMess
If oDoc.ProtectionType = wdNoProtection Then
With Dialogs(wdDialogToolsProtectDocument)
.noreset = True
.Show
End With
Else
oDoc.Unprotect
End If
Exit Sub

ErrMess:
MsgBox Err.Description, vbInformation

End Sub

Sub TOCFieldUpdate()
' Written by Charles Kyle Kenyon 27 January 2005
' Field Updater - TOC fields
Dim oField As Field
On Error Resume Next
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldTOC Then
oField.Update
End If
Next oField
End Sub



Sub ProtectForm()
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
ActiveDocument.Unprotect
Else
ActiveDocument.Protect Type:=wdAllowOnlyFormFields,
noreset:=True
End If
End Sub


But it doesn't work, as when I run the macro it only runs the first
"section" of it, i.e.
ToolsProtectUnprotectDocument.

I really don't know much about VB code, so I am confused as to how to
get
the macro to go though all the 3 sections of the code above. Am I
making
any
sense???!!!




"Charles Kenyon" wrote:

I haven't tested the following with a TOC field but it should work.

Sub TOCFieldUpdate()
' Written by Charles Kyle Kenyon 27 January 2005
' Field Updater - TOC fields
Dim oField As Field
On Error Resume Next
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldTOC Then
oField.Update
End If
Next oField
End Sub

Try putting this in your module and calling it from your unprotect /
reprotect procedure or simply add the code to your procedure. Hope
this
helps.
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"La La Lara" wrote in message
...
Hi guys

I am a bit stuck. I have a form which has a ToC in it. I have used
the
code at
http://word.mvps.org/FAQs/MacrosVBA/...lfResetOff.htm.
which works fine to uprotect the doc, then I can manually left-click
by
the
ToC, hit F9 and it updates, then the macro will reprotect the form
without
losing any of the info in the form fields. It works a treat.

BUT....! It would be even more seamless to the user if I could add a
bit
of
VB code that will unlock the form, *automatically update the
fields*,
then
reprotect the form without losing any of the form field info (so
that
the
user can simply click an icon on the toolbar which will do all this
instead
if him/her having to go to the ToC and cliking F9)

I did try to cobble together some code but it wouldn't work.

Can anyone help?

Charles, any way to get this to update the entire table and not just
page numbers only?
Thanks.

I didn't know that it only did the page numbers. I would suggest creating a
document with a TOC. Make some changes that would add lines.

Record two macros, one updating the TOC with only page numbers being
updated. The second with the entire table being updated. Then look at the
code produced and see if you can discern a difference. That is what I would
do, but since it is your problem, I'll leave it for you to do. Please report
back the results.
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

wrote in message
oups.com...
Charles, any way to get this to update the entire table and not just
page numbers only?
Thanks.