QAxObject* word = new QAxObject( "Word.Application", this ); word->dynamicCall( "SetVisible(bool)", true ); QAxObject *workbook = word->querySubObject( "Open(const QString&)", str+".doc"); QAxObject *range = workbook->querySubObject( "Range(const QString&)", "Hello");
Sub Макрос1() Selection.PasteEnd Sub