ActiveQt. Вставка формул в word.
Добрый день. Возник вопрос по заполнению документа .doc из Qt. Хочу добавить в таблицу формулу (например "е" с верхним и нижним индексом), но совершенно не понимаю как это сделать. Привожу код ниже:
#include "mainwindow.h" #include "ui_mainwindow.h" MainWindow::MainWindow(QWidget *parent) : QMainWindow(parent), ui(new Ui::MainWindow) { ui->setupUi(this); workWord(); } MainWindow::~MainWindow() { delete ui; } void MainWindow::workWord() { //интерфейс к MSWord QAxObject *wordApp = new QAxObject("Word.Application"); //интерфейс к подобъекту - коллекция скрытых документов QAxObject *wordDoc = wordApp->querySubObject("Documents()"); //создаем новый документ QAxObject *newDoc = wordDoc->querySubObject("Add()"); ///Заголовок для входных данных QAxObject *rangeInputData = newDoc->querySubObject("Range()"); rangeInputData->dynamicCall("SetRange(int, int)", 0, 100); rangeInputData->setProperty("Text", "Исходные данные."); //размер, шрифт, выравнивание QAxObject *font_rangeInputData = rangeInputData->querySubObject("Font"); font_rangeInputData->setProperty("Size", 12); font_rangeInputData->setProperty("Name", "Arial"); QAxObject *alignment_rangeInputData = rangeInputData->querySubObject("ParagraphFormat"); alignment_rangeInputData->setProperty("Alignment", "wdAlignParagraphCenter"); alignment_rangeInputData->setProperty("SpaceAfter", 0); //отступ rangeInputData->dynamicCall("InsertParagraphAfter()"); rangeInputData->dynamicCall("InsertParagraphAfter()"); ///Заголовок для 1 таблицы QAxObject *rangeNameT1 = newDoc->querySubObject("Range()"); rangeNameT1->dynamicCall("SetRange(int, int)", 101, 200); rangeNameT1->setProperty("Text", "Таблица 1."); //выравнивание QAxObject *alignment_rangeNameT1 = rangeNameT1->querySubObject("ParagraphFormat"); alignment_rangeNameT1->setProperty("Alignment", "wdAlignParagraphLeft"); //таблица 1 QAxObject *tables = newDoc->querySubObject("Tables()"); QAxObject *rangeTable1 = newDoc->querySubObject("Range()"); rangeTable1->dynamicCall("SetRange(int, int)", 201, 300); QAxObject* table1 = tables->querySubObject("Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)", rangeTable1->asVariant(), 4, 3, 1, 1); //Заполняем таблицу //горизонтальные заголовки QAxObject *currentCell = table1->querySubObject("Cell(Row, Column)", 1, 1); QAxObject *rangeCurrentCell = currentCell->querySubObject("Range()"); rangeCurrentCell->dynamicCall("InsertAfter(Text)", "Наименование"); currentCell = table1->querySubObject("Cell(Row, Column)", 1, 2); rangeCurrentCell = currentCell->querySubObject("Range()"); rangeCurrentCell->dynamicCall("InsertAfter(Text)", "Формула"); currentCell = table1->querySubObject("Cell(Row, Column)", 1, 3); rangeCurrentCell = currentCell->querySubObject("Range()"); rangeCurrentCell->dynamicCall("InsertAfter(Text)", "Значение"); //вертикальные заголовки for (int i = 0; i < 3; i++) { currentCell = table1->querySubObject("Cell(Row, Column)", i+2, 1); rangeCurrentCell = currentCell->querySubObject("Range()"); QString temp = "Переменная" + QString::number(i); rangeCurrentCell->dynamicCall("InsertAfter(Text)", temp); } //формулы //делаем ворд видимым wordApp->setProperty("Visible", true); delete rangeCurrentCell; delete currentCell; delete table1; delete rangeTable1; delete tables; delete alignment_rangeNameT1; delete rangeNameT1; delete alignment_rangeInputData; delete font_rangeInputData; delete rangeInputData; delete newDoc; delete wordDoc; delete wordApp; }
We recommend hosting TIMEWEB
Stable hosting, on which the social network EVILEG is located. For projects on Django we recommend VDS hosting.Do you like it? Share on social networks!
B
- Bogdannn
- March 28, 2024, 2:15 a.m.
C++ - Test 001. The first program and data types
- Result:46points,
- Rating points-6
Last comments
Qt Linux - Lesson 001. Autorun Qt application under Linux как сделать автозапуск для флэтпака, который не даёт создавать файлы в ~/.config - вот это вопрос ))
АК
Qt WinAPI - Lesson 007. Working with ICMP Ping in Qt Без строки #include <QRegularExpressionValidator> в заголовочном файле не работает валидатор.
Анатолий КононенкоFeb. 5, 2024, 9:50 a.m.
EVADec. 25, 2023, 6:30 p.m.
Boost - static linking in CMake project under Windows Сделал всё по-как у вас, но выдаёт ошибку [build] LINK : fatal error LNK1104: не удается открыть файл "libboost_locale-vc142-mt-gd-x64-1_74.lib" Хоть убей, не могу понять в чём дел…
Qt/C++ - Lesson 056. Connecting the Boost library in Qt for MinGW and MSVC compilers Для решения твой проблемы добавь в файл .pro строчку "LIBS += -lws2_32" она решит проблему , лично мне помогло.
Now discuss on the forum
Как получить в массив значения из связанной модели? Спасибо, разобрался:))
AC
QML Обнулить значения SpinBox Доброго времени суток, не могу разобраться с обнулением значение SpinBox находящего в делегате. import QtQuickimport QtQuick.ControlsWindow { width: 640 height: 480 visible: tr…
Alexandru CodreanuJan. 19, 2024, 7:57 p.m.
BlinCTDec. 27, 2023, 4:57 p.m.
ДмитрийJan. 10, 2024, 12:18 p.m.
Evgenii LegotckoiDec. 12, 2023, 2:48 p.m.
После некоторого поиска информации об этом вопросе я наткнулся вот на такой кусок кода, который используется для установки верхнего индекса
Судя по всему.. это или бейсик, или паскаль.. не важно.
За полную актуальность этого решения не ручаюсь, это догадки, но путь примерно такой может быть
Подскажите, пожалуйста, как сделать объединение ячеек в таблице?
Если продолжить приведенный в вопросе мой код, то вот так можно объеденить две строки в первом столбце:
В случае такого объединения в выводе приложения имеем такое сообщение: "QAxBase::querySubObject: Merge(MergeTo): Error calling function or property in (unknown)"
Странно, у меня все работало, выложите ваш код может найдем в чем причина.
Вот моя функция:
void mergeCells(int nStartRow,int nStartCol,int nEndRow,int nEndCol)
{
QAxObject StartCell =_tableDoc->querySubObject("Cell(int, int)",nStartRow,nStartCol);
QAxObject EndCell = _tableDoc->querySubObject("Cell(int, int)",nEndRow,nEndCol);
StartCell->querySubObject("Merge(MergeTo)",EndCell->asVariant());
}
Попробовал у себя дома. Все работает. Вот прикладлываю проект. использовал QT5.14, MinGW5.3.0, но объединение работало и на более ранних версиях
TestWowdTable.rar
Спасибо большое за проект. Само объединение у меня тоже работает. Но при выводе приложения получает следующее: QAxBase::querySubObject: Merge(MergeTo): Error calling function or property in (unknown). И поскольку объединение вызывается не один раз, хотелось от этого избавиться.
Image_11.png
Действительно, в выводе я тоже самое получаю. Раньше не обращал внимание. А теперь стало интересно из-за чего. Может кто из форумчан сможет подсказать