word转pdf,saveas执行,磁盘没有输出,急
try{GetActiveOleObject("Word.Application"); }
catch(...){CreateOleObject("Word.Basic");}
TWordApplication* WordApp = new TWordApplication(this);
TWordDocument* WordDocument = new TWordDocument(this);
try
{
TVariant ov("D:\\上下.doc");
WordApp->Connect();
WordApp->Application->Visible=true;
WordApp->Documents->Open(&ov);
WordDocument->ConnectTo(WordApp->Documents->Item(Variant(1)));
TVariant ovsave("D:\\上下.pdf");
WdSaveFormat::wdFormatPDF;
VARIANT fromat;
:: VariantInit(&fromat);
fromat.vt= VT_UI2;
fromat.lVal=17;
WordDocument->SaveAs(&ovsave, &fromat);
//WordDocument->Close();
//WordApp->Quit();
}
catch(...)
{
ShowMessage("您可能没有安装word!");
WordApp->Disconnect();
}