Sub Макрос7()
    ChangeFileOpenDirectory _
        "C:\"
    ActiveDocument.SaveAs FileName:= _
        "Hello.doc", _
        FileFormat:=wdFormatHTML, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
    ActiveWindow.View.Type = wdWebView
End Sub

	 private   void  importWord_Ole(String path){
		 try {
			Ole32.CoInitialize();
			app= new  DispatchPtr("Word.Application");
			app.put("Visible", true);
			DispatchPtr documents = (DispatchPtr) app.get("Documents");
			DispatchPtr doc = (DispatchPtr) documents.invoke("Open",path);

			//doc.put("FileFormat","wdFormatHTML");
			//doc.invoke("SaveAs","wdFormatHTML","c:\\111.html");
			//doc.invoke("SaveAs","wdFormatHTML","c:\\111.html");
			
			
			app.invoke("Quit");	
			
			
			
			Ole32.CoUninitialize();
			
		} catch (Exception er){
			GlobalObject.errShow(er, "importExcel_Ole",  null );
		}	
	}	

	 private   void  importWord_Ole(String path){
		 try {
			Ole32.CoInitialize();
			app= new  DispatchPtr("Word.Application");
			app.put("Visible", true);
			DispatchPtr documents = (DispatchPtr) app.get("Documents");
			DispatchPtr doc = (DispatchPtr) documents.invoke("Open",path);

			doc.invoke("SaveAs","c:\\333.html", 8 );
			
			
			doc.close();			
			app.invoke("Quit");
			app.close();		
			
	
			
			
			Ole32.CoUninitialize();
			
		} catch (Exception er){
			GlobalObject.errShow(er, "importExcel_Ole",  null );
		}	
	}