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

Question

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

我将宏存储为PDF，从所选目录开始迭代，然后将所有.doc文件导出为PDF。

在内容列表未设置为'使用超链接而不是页码'的文档中，我丢失了PDF版本文件中的链接。

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

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