如何导出一段 DOCX 文件并保持相同的段落编号？

Question

TL;DR:

如何将段落编号捕获为文本的“部分”并将其导出到 DOCX？

---

问题

我有一个文档，它分为多个部分和子部分，其内容类似于一组州法规（Statute 208，带有子部分 Statute 208.1、Statute 208.2 等）。我们通过修改 .docx zip 中的 numbering.xml 文件来创建它。

我想将“子部分”(208.5) 及其文本导出到单独的 .docx 文件中。我的 VSTO 加载项可以很好地导出文本，但 编号重置 为 208.1。这确实有些道理，因为它现在是文档中带有 <ilvl> 的第一段。

PDF 工作正常

有趣的是，我可以调用Word.Range 的ExportAsFixedFormat 函数并将这个选择导出为PDF 就好了——甚至保留编号。这使我走上了一条尝试“渲染”选择的道路，可能就像它会被打印一样，以便将其放入新的 .docx 文件中，但我也没有弄清楚。

---

我尝试过的：

• Range.ExportFragment() 使用 wdFormatStrictOpenXMLDocument 和 wdFormatDocumentDefault 作为 wdSaveType 值。

  • 这些导出还要重新编号。

• Document.PrintOut() 使用 PrintToFile = true 和有效的文件名。我现在意识到，从字面上看，这会生成“打印输出指令”，并且不会在路径 filename 处注入具有任何有效文件结构的新文件。

  • 显然不起作用。 :)

• Application.Selection.XML 到变量 content 并在新添加的 Document 对象上调用 Document.Content.InsertXML(content)。

  • 仍会重置编号。

---

上下文的代码部分

using Word = Microsoft.Office.Interop.Word;

Word.Range range = Application.ActiveDocument.Range(startPosition, endPosition);
range.Select();

//export to DOCX?
Application.Selection.Range.ExportFragment(
    filename, Word.WdSaveFormat.wdFormatDocumentDefault);

Answer 1

您可以在导出前使用 ConvertNumbersToText(wdNumberAllNumbers)，然后在导出后使用 _Document.Undo() 或关闭而不保存。

Answer 2

在这个（过时的）链接中有一些很好的信息，它们仍然应该适用于当前的 Word API： https://forums.windowssecrets.com/showthread.php/27711-Determining-which-ListTemplates-item-is-in-use-(VBA-Word-2000)

该链接上的信息表明您可以为 ListTemplate 创建一个名称/句柄，以便您可以在代码中引用它——只要您的法规样式项目符号与文档的命名样式相关联。这个想法是首先命名与活动文档的法规项目符号样式关联的 ListTemplate，然后在访问 ListLevels 集合时引用该名称。

例如，您的代码可能如下所示：

ActiveDocument.Styles("StatutesBulletStyle").ListTemplate.Name = "StatuteBulletListTemplate";

以上赋值后，可以通过名称引用模板：

ActiveDocument.ListTemplates("StatuteBulletListTemplate").ListLevels(1).StartAt = 5;

使用上述技术不再需要您尝试找出活动模板是什么...

这有帮助吗？