Add the \h switch to several TOC-fields in active Document

[andreas]

Dear Experts:

I got several TOC-fields in the active/current document.

All the TOC-field codes are missing the \h switch.

How can I add the \h switch to all of these TOC-fields using VBA?

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

 

[Stefan Blom]

Try the following sub:

Sub AddHyperlinksToEntries()
Dim t As Field
Dim toc As TableOfContents

For Each t In ActiveDocument.Fields
If t.Type = wdFieldTOC Then
t.Code.Text = t.Code.Text & " \h"

End If
Next t

'Update just in case...
For Each toc In ActiveDocument.TablesOfContents
toc.Update
Next toc

End Sub

 

[andreas]

Try the following sub:

Sub AddHyperlinksToEntries()
Dim t As Field
Dim toc As TableOfContents

For Each t In ActiveDocument.Fields
If t.Type = wdFieldTOC Then
t.Code.Text = t.Code.Text & " \h"

End If
Next t

'Update just in case...
For Each toc In ActiveDocument.TablesOfContents
toc.Update
Next toc

End Sub

HI Stefan,

sorry for the delay in answering. It works just great. Thank you very
much

Regards, Andreas

 

[Stefan Blom]

I'm glad I could help.

Stefan Blom
Microsoft Word MVP



"andreas" wrote in message
HI Stefan,

sorry for the delay in answering. It works just great. Thank you very
much

Regards, Andreas