明白你的意思,用OleContainer就可以实现: 1:放一个OleContainer:MyWordOle 2:放一个MainMenu控件(很重要,它能自动获取Word的MainMenu) 3:定义如下函数: Function LoadWordFile(sFile:String):Boolean; Begin Result:=True; Try MyWordOLE.CreateObjectFromFile(sFile,False); MyWordOLE.Run; IF MyWordOLE.State=osRunning Then MyWordOLE.DoVerb(ovPrimary); MyWord:=GetActiveOleObject('Word.Application'); Except On E:Exception Do Begin Result:=False; Application.MessageBox(Pchar('打开文档"'+sFile+'"失败:'+E.Message),'系统提示:',48); Exit; End; End; End;4:Ok了 IF Not LoadWordFile('Word 文档') Exit; 瞧,Word环境已经嵌进来了
不好意思,少了一些: Private MyWord:Variant;
BlueSoftEye(紫衣侠隐) 为什么你的程序总是报错,无法正常运行呢?
重发: -------------------------------- 1:放一个OleContainer:MyWordOle 2:放一个MainMenu控件(很重要,它能自动获取Word的MainMenu) 3:定义函数: Function TForm1.LoadWordFile(sFile:String):Boolean; Begin Result:=True; Try MyWordOLE.CreateObjectFromFile(sFile,False); MyWordOLE.Run; IF MyWordOLE.State=osRunning Then MyWordOLE.DoVerb(ovPrimary); Except On E:Exception Do Begin Result:=False; Application.MessageBox(Pchar('打开文档"'+sFile+'"失败:'+E.Message),'系统提示:',48); Exit; End; End; End; ---------------------------------- Procedrue TForm1.Button1Click(Sender:TObject) Beign IF Not LoadWordFile('Word文档') Then Exit; End; -----------------Ok了------------------------------------------------
直接嵌入word
能不能讲的详细一点?
我试了一下Delphi中带的word组件,出来的编辑框与程序好像都是基本脱离的,在我的程序中不能对编辑的内容进行灵活的控制,我曾经看过人家将Word整个嵌入网页中的程序运行效果,我想肯定也有办法将Word嵌入普通的窗口程序中吧,谁能给点帮助。Thanks.
1:放一个OleContainer:MyWordOle
2:放一个MainMenu控件(很重要,它能自动获取Word的MainMenu)
3:定义如下函数:
Function LoadWordFile(sFile:String):Boolean;
Begin
Result:=True;
Try
MyWordOLE.CreateObjectFromFile(sFile,False);
MyWordOLE.Run;
IF MyWordOLE.State=osRunning Then MyWordOLE.DoVerb(ovPrimary);
MyWord:=GetActiveOleObject('Word.Application');
Except
On E:Exception Do
Begin
Result:=False;
Application.MessageBox(Pchar('打开文档"'+sFile+'"失败:'+E.Message),'系统提示:',48);
Exit;
End;
End;
End;4:Ok了
IF Not LoadWordFile('Word 文档') Exit;
瞧,Word环境已经嵌进来了
Private
MyWord:Variant;
为什么你的程序总是报错,无法正常运行呢?
--------------------------------
1:放一个OleContainer:MyWordOle
2:放一个MainMenu控件(很重要,它能自动获取Word的MainMenu)
3:定义函数:
Function TForm1.LoadWordFile(sFile:String):Boolean;
Begin
Result:=True;
Try
MyWordOLE.CreateObjectFromFile(sFile,False);
MyWordOLE.Run;
IF MyWordOLE.State=osRunning Then
MyWordOLE.DoVerb(ovPrimary);
Except
On E:Exception Do
Begin
Result:=False;
Application.MessageBox(Pchar('打开文档"'+sFile+'"失败:'+E.Message),'系统提示:',48);
Exit;
End;
End;
End;
----------------------------------
Procedrue TForm1.Button1Click(Sender:TObject)
Beign
IF Not LoadWordFile('Word文档') Then Exit;
End;
-----------------Ok了------------------------------------------------
我会尽快结贴
分不是问题
档,程序中的Word不能再编辑和操作?第二. 在程序中用TOLEContainer打开Word后,怎样不通过点击Word菜单实现对Word常用功能
的控制?第三. 在程序中用TOLEContainer打开Word后文档后,怎样通过程序在指定位置插入
另一Word文档的内容?
直接嵌入word
第二.可以实现
第三.可以实现