Question

The task has fallen to me to write a macro for Word 2010 that outputs to PDF, using Words Save As PDF.

I have the macro saving out to PDF, which iterates down from a selected directory, and exporting all .doc files to PDF.

In documents where the Table of Contents was not set up to ‘use hyperlinks instead of page numbers’, I lose the links in the PDF version of the file.

Essentially, I need to perform the first 4 steps detailed here.

Does anyone know how to set this option with VBA?

Answer 1

Sub AddTOCLinks()
Dim TOC As TableOfContents
With ActiveDocument
  For Each TOC In .TablesOfContents
    With TOC.Range.Fields(1)
      If InStr(.Code.Text, "\h") = 0 Then
        .Code.Text = Trim(.Code.Text) & " \h"
        .Update
      End If
    End With
    TOC.Update
  Next
End With
End Sub

found here