ole操作word 我用 olecontainer1.CreateObjectFromFile(strFile,true); 把word.excel显示出来后怎么能控件它的打印按钮啊,或者怎么能打印它自己的工具栏我不想要。。还有olecontainer1能嵌入pdf吗?有什么办法。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你在Word里录制一个打印预览的宏。把这个宏的代码写到Delphi中 以前我试过的,现在记得不太清楚了 大概就是这样做的 1 通过OLE打开word或excel,先用word录入一段打印操作的宏命令,在delphi里调用;//word浏览OleContainer1.CreateObjectFromFile(FileName,False);OleContainer1.DoVerb(ovShow);//word只读模式OleContainer1.OleObject.application.ActiveDocument.Protect(2);{excel下只读模式OleContainer1.OleObject.application.ActiveSheet.Protect(True,True,True);OleContainer1.OleObject.ActiveSheet.EnableSelection := 1;}//在word里查询某字符串操作示例代码,打印亦如此; Result := False; if KeyWord = '' then Exit; Ole.Selection.HomeKey(wdStory); Ole.Selection.Find.Text := KeyWord; Ole.Selection.Find.Replacement.Text := ''; Ole.Selection.Find.Forward := True; Ole.Selection.Find.Wrap := wdFindContinue; Ole.Selection.Find.Format := False; Ole.Selection.Find.MatchCase := False; Ole.Selection.Find.MatchWholeWord := False; Ole.Selection.Find.MatchByte := True; Ole.Selection.Find.MatchWildcards := False; Ole.Selection.Find.MatchSoundsLike := False; Ole.Selection.Find.MatchAllWordForms := False; Ole.Selection.Find.Execute; Result := Ole.Selection.Text <> '';2 安装Adobe reader,安装此activeX插件调用即可; delphi想Oracle库中插入数据 小弟学编程成时间不长问一个幼稚的问题!恳求大侠们给个解答. 海量数据处理问题 关于Query查询的问题 寻一份软件技术报告文档。 我现在用GRID显示了一个A字段,我要在A字段后加多一个B字段是对应的名字,这个字段是另外一个表的 简单问题? 谁有DELPHI5的ADO升级软件,去掉EOF或BOF为真那个错误的。以及企业版的SN是什么? 什么错误? 我在添加ActiveX的MS Comm后看到单元文件加了进来,但是组件面板上却看不到该控件,这是怎么回事? 数据库 delphi界面设计 宽屏问题
//word浏览
OleContainer1.CreateObjectFromFile(FileName,False);
OleContainer1.DoVerb(ovShow);
//word只读模式
OleContainer1.OleObject.application.ActiveDocument.Protect(2);
{excel下只读模式
OleContainer1.OleObject.application.ActiveSheet.Protect(True,True,True);
OleContainer1.OleObject.ActiveSheet.EnableSelection := 1;
}//在word里查询某字符串操作示例代码,打印亦如此;
Result := False;
if KeyWord = '' then Exit;
Ole.Selection.HomeKey(wdStory);
Ole.Selection.Find.Text := KeyWord;
Ole.Selection.Find.Replacement.Text := '';
Ole.Selection.Find.Forward := True;
Ole.Selection.Find.Wrap := wdFindContinue;
Ole.Selection.Find.Format := False;
Ole.Selection.Find.MatchCase := False;
Ole.Selection.Find.MatchWholeWord := False;
Ole.Selection.Find.MatchByte := True;
Ole.Selection.Find.MatchWildcards := False;
Ole.Selection.Find.MatchSoundsLike := False;
Ole.Selection.Find.MatchAllWordForms := False;
Ole.Selection.Find.Execute;
Result := Ole.Selection.Text <> '';
2 安装Adobe reader,安装此activeX插件调用即可;