[Qt] Изменение шрифта во всем документе Microsoft Word посредством ActiveQt

Сегодня хотел бы написать небольшую заметку о том, как изменить шрифт во всем документе, созданном в Microsoft Word. Не буду многословен, а просто доработаю предыдущий пример:

 QAxObject* WordApplication = new QAxObject("Word.Application");
 if (!WordApplication) return;
 WordApplication->dynamicCall("SetVisible(bool)", false);
 WordApplication->querySubObject("Documents")->querySubObject("Open(QVariant)", _filename);
 
 QAxObject* active_doc = WordApplication->querySubObject("ActiveDocument");
 QAxObject* WordSelection = WordApplication->querySubObject("Selection");
 WordSelection->dynamicCall("WholeStory()");
 QAxObject *Font = WordSelection->querySubObject("Font");
 Font->setProperty("Size", 22);
 QVariant newF(_outputDir + newFilename);
 QVariant fileFormat(6); //Saving as filtered rtf
 active_doc->querySubObject("SaveAs(const QVariant&, const QVariant&)", newF, fileFormat);
 
 WordApplication->querySubObject("ActiveDocument")->dynamicCall("Close()");
 WordApplication->dynamicCall("Quit()");
* This source code was highlighted with Source Code Highlighter.