vba - 如何逐节复制word文档

Question

我必须将 Word 文档更新为最新的公司模板，但这项任务并不像看起来那么容易。
根据这个站点，它所要做的就是执行所描述的步骤，但是在完成之后，文档保持原样，例如，页脚和页眉保持不变，也就是说，它们没有更新为新设置的模板。
在花了一些时间研究如何完成该任务后，我意识到页眉和页脚都与模板无关，而是与底层部分相关。然后，我采取了另一种方法，归结为仅将没有页眉和页脚的部分内容复制到新模板中已定义的部分，显然它完成了工作。
因此，我想知道是否有任何方法可以自动执行这些部分复制 -通过 VBA - 或者我可以采取其他更好的方法？

Answer 1

就个人而言，除非任务很大，否则我不会使用 VBA。当您创建一些代码、运行它、失败、重新编写它时，您可能会发现手动完成它可以更快，特别是如果看起来这是一次性的工作。当然，如果您遇到您认为重复且耗时的任务，那么您可能会使用宏记录器。

我显然没有文件在我面前，但是：

• 做一点计划。计算出应该有多少节，以及什么类型（下一页分节符等）。
• 使用Draft Viewand Goto (Ctrl-G), Section 来帮助发现它们。
• 潦草地写下最终页眉/页脚应包含的内容。
• 如果适用，请记下Style两个模板中的名称并找出需要替换的名称。
• （我会）处理新模板的副本并从旧模板中复制内容。这将同时从旧模板中复制样式。这对你来说可能是错误的方式——你必须做出决定。尝试两者，看看哪个最容易使用。
• 您可以使用Replace对话框 (Ctrl-H) 将一种样式换成另一种样式。
• 也显示样式窗口 (Ctrl-Alt-Shift-S)。
• 从Styles Window您可以显示Style Manager. 从这里和导入/导出，您可以删除、重命名和复制样式。删除样式时要小心，因为很难衡量它们的默认值。

我会将页眉和页脚留到最后（倒数第二个），这样做时，从文档的开头开始并仅通过部分前进，如有必要，从旧模板复制。

我会把书签留到最后；到那时，插入它们应该很容易。如果您从旧文档中复制了内容，那么它也应该带有书签，所以这只是确保它们仍然在正确位置的问题。

同样，我面前没有模板，所以我很感激其中一些建议可能不相关。

提示：可能需要几次尝试才能做到这一点。如果你在某个时候卡住了，请记住重新开始可能会更好——如果它变得一团糟，有时很难恢复。