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; }
Рекомендуем хостинг TIMEWEB
Стабильный хостинг, на котором располагается социальная сеть EVILEG. Для проектов на Django рекомендуем VDS хостинг.Ол саған ұнайды ма? Әлеуметтік желілерде бөлісіңіз!
Пікірлер
Г
- Геній
- Қыр. 13, 2024, 12:46 Т.Қ.
C++ - Тест 001. Первая программа и типы данных
- Нәтиже:66ұпай,
- Бағалау ұпайлары-1
t
- torgaev_2024
- Қыр. 8, 2024, 6:20 Т.Ж.
C++ - Тест 001. Первая программа и типы данных
- Нәтиже:33ұпай,
- Бағалау ұпайлары-10
Соңғы пікірлер
Linux жүйесінде файлдарды қалай көшіруге болады Задумывались когда-нибудь о том, как мы привыкли доверять свои вещи службам грузоперевозок? Сейчас такие услуги стали неотъемлемой частью нашей жизни, особенно когда речь идет о переездах между …
ВР
Linux жүйесінде файлдарды қалай көшіруге болады Screenshot_20240802-065123.png
Влад РусоковТам. 2, 2024, 1:47 Т.Ж.
QML - Сабақ 016. SQLite деректер қоры және онымен QML Qt-та жұмыс істеу Здравствуйте, возникает такая проблема (я новичок): ApplicationWindow неизвестный элемент. (М300) для TextField и Button аналогично. Могу предположить, что из-за более новой верси…
Qt Linux - Сабақ 001. Linux астында Autorun Qt қолданбасы как сделать автозапуск для флэтпака, который не даёт создавать файлы в ~/.config - вот это вопрос ))
АК
Qt WinAPI - Сабақ 007. Qt ішінде ICMP Ping арқылы жұмыс істеу Без строки #include <QRegularExpressionValidator> в заголовочном файле не работает валидатор.
Анатолий КононенкоАқп. 5, 2024, 1:50 Т.Ж.
Енді форумда талқылаңыз
Evgenii LegotckoiМаусым 24, 2024, 3:11 Т.Қ.
при создании qml проекта Kits есть но недоступны для выбора Поставил Qt Creator 11.0.2. Qt 6.4.3 При создании проекта Qml не могу выбрать Kits, они все недоступны, хотя настроены и при создании обычного Qt Widget приложения их можно выбрать. В чем может …
BlinCTМаусым 25, 2024, 1 Т.Ж.
BlinCTМамыр 5, 2024, 5:46 Т.Ж.
Evgenii LegotckoiМамыр 2, 2024, 2:07 Т.Қ.
После некоторого поиска информации об этом вопросе я наткнулся вот на такой кусок кода, который используется для установки верхнего индекса
Судя по всему.. это или бейсик, или паскаль.. не важно.
За полную актуальность этого решения не ручаюсь, это догадки, но путь примерно такой может быть
Подскажите, пожалуйста, как сделать объединение ячеек в таблице?
Если продолжить приведенный в вопросе мой код, то вот так можно объеденить две строки в первом столбце:
В случае такого объединения в выводе приложения имеем такое сообщение: "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
Действительно, в выводе я тоже самое получаю. Раньше не обращал внимание. А теперь стало интересно из-за чего. Может кто из форумчан сможет подсказать