在 Powerpoint 中用 VBA 替换字体
Replace fonts with VBA in Powerpoint
我需要替换 Powerpoint 演示文稿中的字体（替换功能无法执行此操作）。我从 Microsoft 找到了一个 VBA 脚本，但我不知道下一步该怎么做。有人可以帮忙吗？
https://docs.microsoft.com/en-us/office/vba/api/powerpoint.fonts.replace
要使用该行代码，只需从 Visual Basic 编辑器的立即 window 运行 中将其 运行 即可。使用Alt + F11或Alt + L + V打开VBE。 Immediate window 在底部，粘贴代码并点击 Enter 键以 运行 它：
如果 VBA 不足以更改字体，您可以使用 OOXML hack 来完成这项工作。将文件结尾更改为 .zip 并展开它。然后使用像 NotePad++ 这样的文本编辑器 运行 查找并替换所有文件，更改
typeface="Time New Roman"
到
typeface="Courier"
使用 Windows Zip 实用程序重新压缩可能会出现问题，因为很容易包含它创建的额外顶级文件夹，从而破坏 XML。相反，请使用 WinZip 或 7Zip 重新压缩。这是我关于 OOXML 黑客的介绍性文章：OOXML Hacking: An Introduction
我需要替换 Powerpoint 演示文稿中的字体（替换功能无法执行此操作）。我从 Microsoft 找到了一个 VBA 脚本，但我不知道下一步该怎么做。有人可以帮忙吗？
https://docs.microsoft.com/en-us/office/vba/api/powerpoint.fonts.replace
要使用该行代码，只需从 Visual Basic 编辑器的立即 window 运行 中将其 运行 即可。使用Alt + F11或Alt + L + V打开VBE。 Immediate window 在底部，粘贴代码并点击 Enter 键以 运行 它：
如果 VBA 不足以更改字体，您可以使用 OOXML hack 来完成这项工作。将文件结尾更改为 .zip 并展开它。然后使用像 NotePad++ 这样的文本编辑器 运行 查找并替换所有文件，更改
typeface="Time New Roman"
到
typeface="Courier"
使用 Windows Zip 实用程序重新压缩可能会出现问题，因为很容易包含它创建的额外顶级文件夹，从而破坏 XML。相反，请使用 WinZip 或 7Zip 重新压缩。这是我关于 OOXML 黑客的介绍性文章：OOXML Hacking: An Introduction