Word 2010 - 使用VBA另存为PDF - 保留TOC链接？

Question

使用单词另存为PDF ，为Word 2010编写一个输出为PDF的宏的任务已经落到了我的身上。

我将宏保存到PDF，从所选目录向下迭代，并将所有.doc文件导出为PDF。

在目录未设置为“使用超链接而非页码”的文档中，我丢失了文件的PDF版本中的链接。

基本上，我需要执行详细here的前4个步骤。

有谁知道如何使用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

找到here