第三方控件呢?
11 个解决方案
#1
OLE 依赖 Office 的版本,和 C++Builder 的版本关系不大。
#2
妖哥也玩通宵了
#3
BCB 6.0的Office2k页面的控件主要什么用呢?写OLE操作Office文档需要它们吗?
#4
Excel 2007是当数据库用吗?
#5
OLE方式应该不是当数据库,当数据库用有什么优缺点?
#6
Office组件只是高度封装了Office的对象,通过代码提示就可以知道每个对象的属性和方法。
OLE代码则是全靠对Office文档结构的了解,自己写要访问的属性或方法名。
OLE代码则是全靠对Office文档结构的了解,自己写要访问的属性或方法名。
#7
Office组件的封装也是基于OLE方式的吗?
Office2k组件能否100%操作Office 2007文档?
#8
#9
#10
我用office2k
经常爆这种错误
#11
往word里添加图片,代码如下。转换为pdf到每什么问题
String strPic("D:\\捕获.PNG");
OleVariant WordFile(strPic+_T(".doc"));
WordApp->Connect();
OleVariant NewTemplate(false);
OleVariant Template;
OleVariant DocumentType(0);
OleVariant Visible(false);
//调用Add函数
WordApp->Documents->Add(Template,NewTemplate,DocumentType,Visible);
//连接到新建的文档
WordDocument->ConnectTo(WordApp->Documents->Item(Variant(1)));
BSTR FileName=strPic.w_str();
TImage* imagePdf = new TImage(this);
imagePdf->Picture->LoadFromFile(strPic);
WordApp->Selection->PageSetup->PageHeight =imagePdf->Picture->Height;
WordApp->Selection->PageSetup->PageWidth =imagePdf->Picture->Width;
imagePdf->Picture->Graphic = NULL;
delete imagePdf;
imagePdf=NULL;
OleVariant LinkToFile(false), SaveWithDocument(false);
WordDocument->InlineShapes->AddPicture(FileName);
OleVariant pdfFile(strPic+_T(".pic.pdf"));
OleVariant format(17);
WordDocument->SaveAs(pdfFile, format);
OleVariant changeClose(false);
WordDocument->Close(changeClose);
WordApp->Disconnect();
String strPic("D:\\捕获.PNG");
OleVariant WordFile(strPic+_T(".doc"));
WordApp->Connect();
OleVariant NewTemplate(false);
OleVariant Template;
OleVariant DocumentType(0);
OleVariant Visible(false);
//调用Add函数
WordApp->Documents->Add(Template,NewTemplate,DocumentType,Visible);
//连接到新建的文档
WordDocument->ConnectTo(WordApp->Documents->Item(Variant(1)));
BSTR FileName=strPic.w_str();
TImage* imagePdf = new TImage(this);
imagePdf->Picture->LoadFromFile(strPic);
WordApp->Selection->PageSetup->PageHeight =imagePdf->Picture->Height;
WordApp->Selection->PageSetup->PageWidth =imagePdf->Picture->Width;
imagePdf->Picture->Graphic = NULL;
delete imagePdf;
imagePdf=NULL;
OleVariant LinkToFile(false), SaveWithDocument(false);
WordDocument->InlineShapes->AddPicture(FileName);
OleVariant pdfFile(strPic+_T(".pic.pdf"));
OleVariant format(17);
WordDocument->SaveAs(pdfFile, format);
OleVariant changeClose(false);
WordDocument->Close(changeClose);
WordApp->Disconnect();
#1
OLE 依赖 Office 的版本,和 C++Builder 的版本关系不大。
#2
妖哥也玩通宵了
#3
BCB 6.0的Office2k页面的控件主要什么用呢?写OLE操作Office文档需要它们吗?
#4
Excel 2007是当数据库用吗?
#5
OLE方式应该不是当数据库,当数据库用有什么优缺点?
#6
Office组件只是高度封装了Office的对象,通过代码提示就可以知道每个对象的属性和方法。
OLE代码则是全靠对Office文档结构的了解,自己写要访问的属性或方法名。
OLE代码则是全靠对Office文档结构的了解,自己写要访问的属性或方法名。
#7
Office组件的封装也是基于OLE方式的吗?
Office2k组件能否100%操作Office 2007文档?
#8
#9
#10
我用office2k
经常爆这种错误
#11
往word里添加图片,代码如下。转换为pdf到每什么问题
String strPic("D:\\捕获.PNG");
OleVariant WordFile(strPic+_T(".doc"));
WordApp->Connect();
OleVariant NewTemplate(false);
OleVariant Template;
OleVariant DocumentType(0);
OleVariant Visible(false);
//调用Add函数
WordApp->Documents->Add(Template,NewTemplate,DocumentType,Visible);
//连接到新建的文档
WordDocument->ConnectTo(WordApp->Documents->Item(Variant(1)));
BSTR FileName=strPic.w_str();
TImage* imagePdf = new TImage(this);
imagePdf->Picture->LoadFromFile(strPic);
WordApp->Selection->PageSetup->PageHeight =imagePdf->Picture->Height;
WordApp->Selection->PageSetup->PageWidth =imagePdf->Picture->Width;
imagePdf->Picture->Graphic = NULL;
delete imagePdf;
imagePdf=NULL;
OleVariant LinkToFile(false), SaveWithDocument(false);
WordDocument->InlineShapes->AddPicture(FileName);
OleVariant pdfFile(strPic+_T(".pic.pdf"));
OleVariant format(17);
WordDocument->SaveAs(pdfFile, format);
OleVariant changeClose(false);
WordDocument->Close(changeClose);
WordApp->Disconnect();
String strPic("D:\\捕获.PNG");
OleVariant WordFile(strPic+_T(".doc"));
WordApp->Connect();
OleVariant NewTemplate(false);
OleVariant Template;
OleVariant DocumentType(0);
OleVariant Visible(false);
//调用Add函数
WordApp->Documents->Add(Template,NewTemplate,DocumentType,Visible);
//连接到新建的文档
WordDocument->ConnectTo(WordApp->Documents->Item(Variant(1)));
BSTR FileName=strPic.w_str();
TImage* imagePdf = new TImage(this);
imagePdf->Picture->LoadFromFile(strPic);
WordApp->Selection->PageSetup->PageHeight =imagePdf->Picture->Height;
WordApp->Selection->PageSetup->PageWidth =imagePdf->Picture->Width;
imagePdf->Picture->Graphic = NULL;
delete imagePdf;
imagePdf=NULL;
OleVariant LinkToFile(false), SaveWithDocument(false);
WordDocument->InlineShapes->AddPicture(FileName);
OleVariant pdfFile(strPic+_T(".pic.pdf"));
OleVariant format(17);
WordDocument->SaveAs(pdfFile, format);
OleVariant changeClose(false);
WordDocument->Close(changeClose);
WordApp->Disconnect();