在 Powerpoint 中用 VBA 替换字体答案

【问题标题】：Replace fonts with VBA in Powerpoint在 Powerpoint 中用 VBA 替换字体
【发布时间】：2023-03-30 16:07:01
【问题描述】：

我需要替换 Powerpoint 演示文稿中的字体（替换功能无法这样做）。我从 Microsoft 找到了一个 VBA 脚本，但我不知道下一步该做什么。有人可以帮忙吗？

【问题讨论】：

【解决方案1】：

要使用那行代码，从 Visual Basic 编辑器的即时窗口运行它就足够了。使用 Alt + F11 或 Alt + L + V 打开 VBE。立即窗口位于底部，粘贴代码并点击 Enter 键运行它：

如果 VBA 不足以更改字体，您可以使用 OOXML hack 来执行这项工作。将文件结尾更改为 .zip 并展开它。然后使用 NotePad++ 之类的文本编辑器对所有文件运行查找和替换，更改

typeface="Time New Roman"

到

typeface="Courier"

使用 Windows Zip 实用程序重新压缩可能会出现问题，因为它很容易包含它创建的额外顶级文件夹，从而破坏 XML。相反，请使用 WinZip 或 7Zip 重新压缩。这是我关于 OOXML hacking 的介绍性文章：OOXML Hacking: An Introduction

【讨论】：

太棒了！我在一个新的 PowerPoint 文档上测试了该脚本，它可以工作，但没有摆脱相关演示文稿中的字体，所以我不得不使用 OOXML Hacking。这完成了这项工作，尽管重新压缩只有在按照链接文章中的描述完成后才能成功。谢谢！