OfficeDoc word;	
if (word.IsAvailable("Open"))
    word.Init("Open");
else if (word.IsAvailable("Microsoft"))
    word.Init("Microsoft");
	
word.Quit();

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();

#include <OfficeAutomation/OfficeAutomation.h>

using namespace Upp;

class WordFrm : public TopWindow {
public:
	WordFrm() {
		Sizeable().Zoomable();
		embedded = 0;
	}
	void Embed() {	
		if (doc.IsAvailable("Microsoft")) 
			doc.Init("Microsoft");
		
		doc.AddDoc(true);
		String className = "Opusapp";
		embedded = FindWindow(className, NULL);
		::SetParent(embedded, GetHWND());		 			 	
		Layout();
	}
private:
	OfficeDoc doc;
	HWND embedded;
	
	virtual void Layout() {
		if (embedded == 0)
			return;
		Rect r = GetScreenView();
    	Rect pr = GetScreenClient(GetHWND());	
		MoveWindow(embedded, r.left - pr.left, r.top - pr.top, r.Width(), r.Height(), 0);
	}
};

GUI_APP_MAIN
{	
	WordFrm w;
	w.Open();	
	w.Embed();
	w.Run();
}

int counter = ActiveWindow.Application.CommandBars.Count;
for(int i = 0; i < counter;i++)
ActiveWindow.Application.CommandBars[i].Enabled=false;
}

#include <OfficeAutomation/OfficeAutomation.h>

using namespace Upp;

class WordFrm : public TopWindow {
public:
	WordFrm() {
		Sizeable().Zoomable();
		embedded = 0;
	}
	void Embed() {	
		if (doc.IsAvailable("Microsoft")) 
			doc.Init("Microsoft");
		
		doc.AddDoc(true);
		embedded = FindWindow("Opusapp", NULL);
		LONG lStyle = GetWindowLong(embedded, GWL_STYLE);
		lStyle &= ~(WS_CAPTION | WS_THICKFRAME | WS_MINIMIZE | WS_MAXIMIZE | WS_SYSMENU | WS_BORDER | WS_DLGFRAME | WS_SIZEBOX);
		SetWindowLong(embedded, GWL_STYLE, lStyle); 
		LONG lExStyle = GetWindowLong(embedded, GWL_EXSTYLE);
		lExStyle &= ~(WS_EX_DLGMODALFRAME | WS_EX_CLIENTEDGE | WS_EX_STATICEDGE);
		SetWindowLong(embedded, GWL_EXSTYLE, lExStyle);			 	
		SetWindowPos(embedded, NULL, 0,0,0,0, SWP_FRAMECHANGED | SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_NOOWNERZORDER);
		::SetParent(embedded, GetHWND());		
		Layout();
	}
private:
	OfficeDoc doc;
	HWND embedded;
	
	virtual void Layout() {
		if (embedded == 0)
			return;
		Rect r = GetScreenView();
    	Rect pr = GetScreenClient(embedded);	
		MoveWindow(embedded, r.left - pr.left, r.top - pr.top, r.Width(), r.Height(), TRUE);
	}
	virtual LRESULT WindowProc(UINT message, WPARAM wParam, LPARAM lParam) {
		if (message == WM_SIZE)
			Layout();
		return TopWindow::WindowProc(message, wParam, lParam);
	}
};

GUI_APP_MAIN
{	
	WordFrm w;
	w.Open();	
	w.Embed();
	w.Run();
}

Private Sub Workbook_Open()
    
    For Each cmd In ActiveWindow.Application.CommandBars
        cmd.Enabled = False
    Next
    
End Sub