Question

DELPHI中如何将OleContainer1内的WORD内容按button1另存为（就像文件另存为一样能输名字）button2打印预

Answer 1

我想不通使用OleContainer打开word文档的那个问题为什么我代码不正确，对楼主我表示无语
对楼主的技术，更是佩服的五体投地，我想此题你应该懂怎么写，故意忽悠俺们这里人的，我还是淡定些吧，就不在这里自讨霉趣了。

追问

不好意思我还是新手~~正在学习。。那个问题是打IF就出错我也不知道怎么回事。。这个我希望点button1按钮出现 命名文件名 框写文件名后确定就保存，，至于保存路径自动保存到D:\1文件下不是手工选择路径语句实现指定路径。。。怎么实现

Answer 2

//这是用BCB写的自己看一下就懂了
if(OleContainer1->State==osEmpty)//判断olecontainer1组件中是否有ole对象
{
return;
}
if(!SaveDialog1->Execute())
{
return;
}
AnsiString FileName=SaveDialog1->FileName;
if(FileName.Pos(".doc")==0)
{
FileName += ".doc";
}
OleContainer1->SaveAsDocument(FileName);

追问

我希望点button1按钮 只跳出 命名文件名 框 写文件名后确定就保存，，（至于保存路径自动保存到D:\1文件）下不是手工选择路径语句实现指定路径。。。怎么实现DELPHI的麻烦请

追答

//其实基本一样就是路径改一下。你自己看一下
//这是用BCB写的自己看一下就懂了
int len=0;
if(OleContainer1->State==osEmpty)//判断olecontainer1组件中是否有ole对象
{
return;
}
if(InputQuery("输入文件名","请输入文件名（格式如abc.doc） ",txt))
{
len = txt.Length();
if(len==0)
{
Application->MessageBox("输入内容为空", "警告", MB_OK);
return;
}
}
else
{
return;
}
AnsiString FileName="D:\\1\\"+txt;//D盘文件夹1里面
if(FileName.Pos(".doc")==0)
{
FileName += ".doc";
}
OleContainer1->SaveAsDocument(FileName);

追问

我用DELPHI..

追答

思路原理是一样的。主要是下面这句FileName即文件名要有路径电脑才知道放哪.路径固定写死就行了.其他的都是判断内容是否为空可不要.
确实不会DELPHI..但看的懂 .

OleContainer1->SaveAsDocument(FileName);

DELPHI中应该是
OleContainer1.SaveAsDocument(FileName);