Qt 使用QAxObject操作Word

因为最近项中需要生成报表，所以网上查了资料，因为VB看不懂所以总结的也不多，在实现中没有使用标签只是以光标的位置来插入,包括：创建文件，排版方式，添加文字，添加图片，添加表格，表格添加文字（图片），光标移动到尾部，光标跳转（类似tab）等

添加 QT += axcontainer

QAxObject *m_pWord; //指向整个Word应用程序
QAxObject *m_pWorkDocuments; //指向文档集,Word有很多文档
QAxObject *m_pWorkDocument; //指向m_sFile对应的文档，就是要操作的文档

/*
创建word
*/

void MainWindow::open()
{
m_pWord = new QAxObject();
bool flag = m_pWord->setControl( "Word.Application" );
if(!flag)
{
return;
}
m_pWord->setProperty("Visible", true);

QAxObject *document = m_pWord->querySubObject("Documents");
if(!document)
{
return ;
}

//获取当前激活的文档
m_pWorkDocument = m_pWord->querySubObject("ActiveDocument");
}

/*
* 排版方式
* 纵行、横行
*/

void MainWindow::setype(bool type)
{
QAxObject* selection = m_pWord->querySubObject("Selection");
if(!selection)
{
return;
}
if(type)
{
selection->querySubObject("PageSetup")->setProperty("Orientation","wdOrientLandscape");
}else{
selection->querySubObject("PageSetup")->setProperty("Orientation","wdOrientPortrait");
}
}

/*
* 获取页宽
*/

int MainWindow::pageWidth()
{
int width;
QAxObject* selection = m_pWord->querySubObject("Selection");
if(!selection)
{
return;
}
width = selection->querySubObject("PageSetup")->property("PageWidth").toInt();;
return width;
}

/*
*设置字号
*/

void MainWindow::setFontSize(int size)
{
QAxObject* selection = m_pWord->querySubObject("Selection");
if(!selection)
{
return;
}
selection->querySubObject("Font")->setProperty("Size",size);
}

/*
设置对齐方式
*/

void MainWindow::setAlignment(int index)
{
QAxObject *selection = m_pWord->querySubObject("Selection");
if(!selection)
{
return;
}
if(index == 0)
{
selection->querySubObject("ParagraphFormat")->setProperty("Alignment","wdAlignParagraphCenter");
}
if(index == 1)
{
selection->querySubObject("ParagraphFormat")->setProperty("Alignment","wdAlignParagraphJustify");
}
if(index == 2)
{
selection->querySubObject("ParagraphFormat")->setProperty("Alignment","wdAlignParagraphRight");
}
if(index == 3)
{
selection->querySubObject("ParagraphFormat")->setProperty("Alignment","wdAlignParagraphLeft");
}
}

/*
插入文字
*/

void MainWindow::typeText(QString text)
{
QAxObject* selection = m_pWord->querySubObject("Selection");
if(!selection)
{
return;
}
selection->dynamicCall("TypeText(const QString&)",text);
}
/*
插入图片
*/

void MainWindow::AddPicture(QString file)
{
QAxObject* selection = m_pWord->querySubObject("Selection");
if(!selection)
{
return;
}
QString filename = file;
filename.replace("/","\\");
QAxObject *Inlineshapes = selection->querySubObject("InlineShapes");
Inlineshapes->dynamicCall("AddPicture(const QString&)",filename);
delete Inlineshapes;
}

/*
插入回车
*/

void MainWindow::insertEnter()
{
QAxObject* selection = m_pWord->querySubObject("Selection");
if(!selection)
{
return;
}
selection->dynamicCall("TypeParagraph(void)");
}

/*
* 光标移到末尾,跳出单元格
*/
void MainWindow::moveForEnd()
{
QAxObject* selection = m_pWord->querySubObject("Selection");
QVariantList params;
params.append(6);
params.append(0);
selection->dynamicCall("EndOf(QVariant&, QVariant&)", params).toInt();
}

/*
创建表格
QStringList headList 添加表头
*/

QAxObject* MainWindow::createTable(int row, int column,QStringList headList)
{
QAxObject* selection = m_pWord->querySubObject("Selection");
if(!selection)
{
return false;
}
selection->dynamicCall("InsertAfter(QString&)", "\r\n");

QAxObject *range = selection->querySubObject("Range");
QAxObject *tables = m_pWorkDocument->querySubObject("Tables");
QAxObject *table = tables->querySubObject("Add(QVariant,int,int)",range->asVariant(),row,column);

table->setProperty("Style","网格型");
//表格自动拉伸列 0固定 1根据内容调整 2 根据窗口调整
table->dynamicCall("AutoFitBehavior(WdAutoFitBehavior)", 2);

//设置表头
for(int i=0;i<headList.size();i++)
{
table->querySubObject("Cell(int,int)",1,i+1)->querySubObject("Range")->dynamicCall("SetText(QString)", headList.at(i));
//加粗
table->querySubObject("Cell(int,int)",1,i+1)->querySubObject("Range")->dynamicCall("SetBold(int)", true);
}
return table;
}

/*
填充表格
*/

void MainWindow::setCellText(QAxObject *table, int row, int column, QString text)
{
QAxObject* range = table->querySubObject("Cell(int, int)",row+1,column+1)->querySubObject("Range");
if( range)
{
return;
}

range->dynamicCall("SetText(QString)", text);
}

/*
表格插入图片
*/
void MainWindow::setAddPicture(QAxObject *table, int row, int column, QString picPath)
{
QAxObject* range = table->querySubObject("Cell(int, int)",row+1,column+1)->querySubObject("Range");
if(!range)
{
return;
}
range->querySubObject("InlineShapes")->dynamicCall("AddPicture(const QString&)",picPath);
}

/*
光标跳转，类似表格中的tab
*/

void MainWindow::moveRight()
{
QAxObject* selection = m_pWord->querySubObject("Selection");
if(!selection)
{
return;
}
selection->dynamicCall("MoveRight(int)",1);
}

/*特殊样例*/

void MainWindow::Example()
{
QStringList header;

newTable(1,2,header);//创建表格

typeText(tr("文字1"));//添加文字
insertEnter();//换行
insertText("");
AddPicture("图像1");//插入图片

moveRight();//将光标插入到下个单元格中

typeText(tr("文字2"));
insertEnter();
insertText("");
AddPicture("图像2");

moveForEnd();//光标跳出表格

/*然后，可以做其他操作了*/

}

Qt 使用QAxObject操作Word相关推荐

Qt随手笔记（五）vs+qt使用QAxObject读取word（内容、句子、段落、表格）
一.配置环境 1.配置环境本案例使用的vs2019.qt5.12.10和word2016 a) 使用vs2019新建一个QtWidgetsApplication项目 b)加载头文件和库打开项目的属 ...
QT ACTIVEX最新操作WORD文档的一些心得
QAxWidget *m_pWord = new QAxWidget("Word.Application");//新建一个word应用程序m_pWord->setProper ...
Qt操作Word文档
Qt提供QAxObject操作Word文档,实现写入文档准备工作 1.Qt pro文件中加入QT += axcontainer 2.电脑上至少有Word或者WPS 操作Word /********* ...
QAxObject在Word 光标或标签处插入文字、图片、表格、标题1等
QAxObject操作word #插入word标题1级 2级链接: [link](https://docs.microsoft.com/en-us/office/vba/api/word.wdbui ...
QT下使用QAxObject打开word文档，文档路径含有空格open出错的解决方法
将要打开的文档转换为本地路径即可,缺省状态下QT路径的分割符为"/",而windows下路径的分隔符为"\",大多数场景下使用QT默认的就行,但是在操作QAxO ...
QT操作Word，插入表格
最近在做QT导出word报表,发现网上的资源不是很多,也浪费了很多时间,我自己做了一份demo,将会详细讲述如何做出需要样式的报表.在网上很容易查到java或者其他语言操作word的接口函数,但是QT ...
Qt下使用QAxObject进行Word转换为PDF出现错误 error: undefined reference to `QAxObject::QAxObject(QObject*)‘
Qt下使用QAxObject进行Word转换为PDF出现错误 error: undefined reference to `QAxObject::QAxObject(QObject*)' 首先检查以下 ...
用Qt操作Word文档
由于项目需要通过dot模板导出doc的文档,所以就查了资料写了一个操作word 的类,只实现了部分功能,其代码如下: #include "wordengine.h" #includ ...
Qt操作Word——在书签处插入表格
之前做的项目需要用Qt创建并输出word文件作为报告,但是报告格式比较复杂.搜索网上资源后发现,仅凭Qt的API难以实现复杂的格式,尤其是表格嵌套很是麻烦.最后的方案选择用先手动创建word模板,并在 ...

Qt 使用QAxObject操作Word

Qt 使用QAxObject操作Word相关推荐

最新文章

热门文章