Замените шрифты с VBA в Powerpoint

Question

Мне нужно заменить шрифты в презентации Powerpoint (функция замены не смогла это сделать). Я нашел скрипт VBA от Microsoft, но я не знаю, что делать дальше. кто-нибудь может помочь?

https://docs.microsoft.com/en-us/office/vba/api/powerpoint.fonts.replace

Answer 1

Чтобы использовать эту строку кода, достаточно запустить ее из окна Immediate редактора Visual Basi c. Используйте Alt + F11 или Alt + L + V , чтобы открыть VBE. Окно Immediate находится внизу, вставьте код и нажмите клавишу Enter, чтобы запустить его:

В случае, если VBA недостаточно для изменить шрифт, вы можете выполнить работу с хаком OO XML. Измените файл, заканчивающийся на .zip, и разверните его. Затем с помощью текстового редактора, такого как NotePad ++, запустите поиск и замену всех файлов, изменив

typeface="Time New Roman"

на

typeface="Courier"

Повторная архивация с помощью утилиты Windows Zip может быть проблемой , поскольку легко включить созданную им дополнительную папку верхнего уровня, разрушив XML. Вместо этого используйте WinZip или 7Zip для распаковки. Вот моя вводная статья о взломе OO XML: OO XML Взлом: Введение