Заполнение таблицы в ворде из базы данных на Qt

OtchetFormNext::OtchetFormNext(QWidget *parent) :
    QWidget(parent),
    ui(new Ui::OtchetFormNext)
{
    ui->setupUi(this);
    model = new QSqlQueryModel;
}
 
OtchetFormNext::~OtchetFormNext()
{
    delete ui;
}
 
void OtchetFormNext::on_pushButton_clicked()
{
    this->close();
    //Создание нового документа word
    QAxObject* pword = new QAxObject("Word.Application");
    QAxObject* pdoc = pword->querySubObject("Documents");
    pdoc = pdoc->querySubObject("Add()");
    pword->setProperty("Visible", true);
    QAxObject* prange = pdoc->querySubObject("Range()");
    prange->dynamicCall("SetRange(int, int)", 0, 100);
    QAxObject* pfont = prange->querySubObject("Font");
    pfont->setProperty("ColorIndex", "wdBlack");
    pfont->setProperty("Size", 24);
    prange->dynamicCall("InsertBefore(Text)", "Отчет");
    QAxObject *selection = pword->querySubObject("Selection()"); //Выделение области
    QAxObject* pswds = selection->querySubObject ("ParagraphFormat ()");
    pswds->dynamicCall ("SetAlignment (WdParagraphAlignment)", 1); // По центру
    selection->setProperty("Alignment", 1);
    prange->dynamicCall("InsertPragraphAfter()");
 
    //Создание таблицы в ворде
    QAxObject* ptable = pdoc->querySubObject("Tables");
    QAxObject* prange2 = pdoc->querySubObject("Range()");
    prange2->dynamicCall("SetRange(int, int", 39, 39);
    ptable->querySubObject("Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)", prange2->asVariant(), 2, 7, 1, 2);
 
    //Подключение к бд
    QSqlDatabase db;
    db = QSqlDatabase::addDatabase("QSQLITE");
    db.setDatabaseName("D:\\Qt projects\\untitled\\database\\Monitoring.db");
    db.open();
    
}
 
void OtchetFormNext::on_pushButton_2_clicked()
{
    this->close();
}
 
void OtchetFormNext::on_pushButton_3_clicked()
{
    this->close();
    emit next();
}