需要将不少doc文件转为pdf,WPS带有这种功能,但是鼠标点击次数太多以后整个人都变得很烦躁
用了一下午去搜这方面的工具软件,找到若干。有一些免费,有一些试用的,但总归就找到一个真正能用,虽说生成的文件名中有未授权字样,但批量修改文件名简单多了。
谁知道到了实验室的电脑上因为什么打印机错误,还是不能用!
于是决定自己写一个,
第二天上午开始搜资料,乱搜一阵,居然发现WPS有二次开发的功能,大喜
但是,没有C++开发接口的资料,而且官方论坛的C++例子是针对老版本的。
于是参考别人写的C#和VB的例子,在那摸索一阵,总算完事。
void CTestDocDlg::OnBnClickedButton1()
{
_beginthreadex(NULL, 0, convertThread, this, 0, NULL);
//StartConvert(m_FileSrc);
}
void CTestDocDlg::OnBnClickedButton2()
{
// TODO: 在此添加控件通知处理程序代码
TCHAR Buffer[MAX_PATH];
BROWSEINFO bi;
ZeroMemory(&bi, sizeof(BROWSEINFO));
bi.hwndOwner = m_hWnd;
bi.ulFlags = BIF_RETURNONLYFSDIRS ; //要求返回文件系统的目录
bi.pszDisplayName = Buffer; //此参数如为NULL则不能显示对话框
bi.lpszTitle = _T("请选择文件夹");
bi.lpfn = NULL;
bi.iImage=IDR_MAINFRAME;
LPITEMIDLIST pIDList = SHBrowseForFolder(&bi);//调用显示选择对话框
if(pIDList)
{
SHGetPathFromIDList(pIDList, Buffer);
//取得文件夹路径到Buffer里
UpdateData(FALSE);
m_FileSrc = Buffer;//将文件夹路径保存在一个CString对象里
if(m_FileSrc != "" && m_FileSrc.GetAt(m_FileSrc.GetLength() - 1) != '\\')
m_FileSrc += "\\";
m_destPath.SetWindowText(m_FileSrc);
}
else
{
}
}
int CTestDocDlg::StartConvert(CString path)
{
CFileFind fileFinder;
CString filePth = path + _T("*.doc");
BOOL bFinished = fileFinder.FindFile(filePth);
// 先搜集文件信息,保存起来,再集中处理!
while(bFinished)
{
bFinished = fileFinder.FindNextFile();
CString fileName = fileFinder.GetFileName();
AddFileInfo(fileName.GetBuffer(0));
//ConvertFile(path + fileName);
}
fileFinder.Close();
std::vector::iterator theIter;
for(theIter = m_vecFileName.begin(); theIter != m_vecFileName.end(); theIter++)
{
ConvertFile(path + theIter->c_str());
}
return 0;
}
int CTestDocDlg::ConvertFile(CString szFileName)
{
CApplication app;
app.CreateDispatch("WPS.APPLICATION");
//app.SetVisible(TRUE);
//app.doc
app.put_Visible(FALSE);
CDocuments docs = app.get_Documents();
CDocument0 doc = docs.Open(szFileName, FALSE, TRUE, FALSE, NULL, NULL, TRUE, NULL, NULL, 0, 0, FALSE, FALSE, 0, FALSE);
CString pdfName = szFileName;
pdfName.Replace("doc", _T("pdf"));
doc.ExportPdf(pdfName, NULL, NULL);
//docs.Close(NULL, NULL, NULL);
//doc.Close(NULL, NULL, NULL);
COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR),
vtTrue((short)TRUE),
vtFalse((short)FALSE);
doc.Close(vtFalse, vtOptional, vtOptional);
return 0;
}
unsigned int WINAPI CTestDocDlg::convertThread(void *pParam)
{
CoInitialize(NULL);
((CTestDocDlg *)pParam)->ReadConvert();
::CoUninitialize();
return 0;
}
int CTestDocDlg::ReadConvert()
{
StartConvert(m_FileSrc);
return 0;
}
void CTestDocDlg::AddFileInfo(CString strFileName)
{
m_vecFileName.push_back(strFileName.GetBuffer(0));
}
后面才知道原来C++版本的WPS二次开发,接口也是参考WORD的!!!
参考http://stackoverflow.com/questions/145573/creating-opening-and-printing-a-word-file-from-c
2014/03/22 10:32
总算是解决了文档关闭问题(转PDF)
不关闭的话,doc文件一直被占用,
但调用close函数总是失败,后面参考
http://support.microsoft.com/kb/220911/en-us
重新构造了close函数参数,总算是解决了
2014/03/22 11:05
把转换代码放在线程中打开文件总是失败,
后面线程总算是解决了,换了个初始化COM的函数,另外每个线程都要进行初始化!
原始是因为COM组件和线程的关联原因
参考了http://support.microsoft.com/kb/238393/en-us
http://www.qtcn.org/bbs/simple/?t31216.html
整个工程,内含可执行程序传到了百度网盘
http://pan.baidu.com/s/1bnvOd35