Word 2010 - 使用 VBA 保存为 PDF - 保留目录链接？

【问题标题】：Word 2010 - Save as PDF with VBA - Keep TOC links?Word 2010 - 使用 VBA 保存为 PDF - 保留目录链接？
【发布时间】：2013-01-04 03:06:11
【问题描述】：

我的任务是为 Word 2010 编写一个宏，使用 Words另存为 PDF 输出为 PDF。

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

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

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

有人知道如何用 VBA 设置这个选项吗？

【问题讨论】：

标签： vba pdf ms-word

【解决方案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

【讨论】：

有趣的是，我可以看到对 Word 文档进行了更改，但是生成的 PDF 仍然没有工作链接。如果我打开 word 文档并尝试使用链接，它们的行为就像普通文本（没有链接！）。但是，“使用超链接”选项设置为 true。
要完成它，我需要更新目录，在上面的第 11 行插入TOC.Update。谢谢