Overview
Examples
Screenshots
Comparisons
Applications
Download
Documentation
Tutorials
Bazaar
Status & Roadmap
FAQ
Authors & License
Forums
Funding Ultimate++
Search on this site
Search in forums












SourceForge.net Logo
Home » Developing U++ » UppHub » Ole Automation [FEATURE REQUEST?]
Re: Ole Automation [FEATURE REQUEST?] [message #40841 is a reply to message #40817] Mon, 23 September 2013 06:49 Go to previous messageGo to previous message
iST1 is currently offline  iST1
Messages: 107
Registered: August 2013
Experienced Member
I struggle with the problem of embedding Word. This is howto (::SetParent way is the same as in correctly worked http://www.codeproject.com/Articles/3582/Word-Control-for-NE T):
class MainFrm : public TopWindow {
public:
	OfficeSheet sheet;
	OfficeDoc doc;

	MainFrm() {}
	
	void TestExcel() {	
		if (sheet.IsAvailable("Open"))  {
			sheet.Init("Open");
		} else if (sheet.IsAvailable("Microsoft")) {
			sheet.Init("Microsoft");
		}
		
		sheet.AddSheet(true);	
		EmbedAsFrame("XLMAIN");
	}
	
	void TestWord() {	
		if (doc.IsAvailable("Open"))  {
			doc.Init("Open");
		} else if (doc.IsAvailable("Microsoft")) {
			doc.Init("Microsoft");
		}
		
		doc.AddDoc(true);
		EmbedAsFrame("Opusapp");
	}
	
	void EmbedAsFrame(const String &className) {
		HWND embeded = FindWindow(className, NULL);
		::SetParent(embeded, GetHWND());
		 			 	
		Rect r = GetScreenView();
    	        Rect pr = GetScreenClient(GetHWND());
    	
		MoveWindow(embeded, r.left - pr.left, r.top - pr.top, r.Width(), r.Height(), 0);
	}
};

GUI_APP_MAIN
{	
	MainFrm w;
	w.Open();	

	//w.TestExcel();//embeded
#if 1
	w.TestWord();//opened in separated window
#else
        //if we manualy opened some Word, it embeded
	w.EmbedAsFrame("Opusapp");
#endif
	w.Run();

[Updated on: Mon, 23 September 2013 06:56]

Report message to a moderator

 
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Previous Topic: MAPIEx works with MinGW
Next Topic: [Controls4U] IE shows script errors
Goto Forum:
  


Current Time: Tue May 14 00:52:53 CEST 2024

Total time taken to generate the page: 0.02180 seconds