COM

void CMSWord9Automation::CloseDoc()
{
	try
	{
		if(m_pOpenDoc) // Word::_DocumentPtr
		{
			//m_pWord->Visible = VARIANT_FALSE; // Does not work
			m_pWord->Documents->Close(
				&_variant_t(Word::wdDoNotSaveChanges),
				&_variant_t(vtMissing),
				&_variant_t(VARIANT_FALSE));

			//m_pWord->Visible = VARIANT_FALSE; // This resets word to invisible but isn't really the desired approach
			m_pOpenDoc.Release();
		}
	}
	catch(_com_error& ComError) 
	{
		DumpComError(ComError);
	}
}

BOOL CDocContainerCntrItem::Create(LPCTSTR lpszPath)
{
	USES_CONVERSION;
<br> <br>
	BOOL bRetVal = FALSE;
	SCODE sc = 0;
<br> <br>
	// get storage for the object via virtual function call
	m_dwItemNumber = GetNewItemNumber();
	GetItemStorage();
<br> <br>
	// add AfxOleInit(); in CXOfficeApp::InitInstance
	AfxOleGetMessageFilter()->EnableNotRespondingDialog(FALSE);
<br> <br>
	// attempt to create the object
	LPOLECLIENTSITE lpClientSite = GetClientSite();
<br> <br>
	if (strcmp(lpszPath, "") != 0)
	{	
		Word::_ApplicationPtr app;
		HRESULT hr = app.CreateInstance("Word.Application");
<br> <br>
		if (SUCCEEDED(hr))
		{
			if (app != 0)
			{
				COleVariant vtOptional((long) DISP_E_PARAMNOTFOUND, VT_ERROR);
				COleVariant vtFileToOpen(lpszPath);
				COleVariant vtPwd("MYPASS");
				COleVariant vtPwdNew("");
<br> <br>
				Word::_DocumentPtr doc = app->Documents->Open(vtFileToOpen, vtOptional, 
					vtOptional, vtOptional, vtPwd);
<br> <br>
				doc->put_Password(_bstr_t(""));  // trying to set the password
				doc->Password = L"";  // this doesn't work either
<br> <br>
				if (SUCCEEDED(doc->SaveAs(vtFileToOpen, vtOptional, vtOptional, vtPwdNew)))
				{
					doc->put_Saved(VARIANT_TRUE);
					doc->Close();
				}

				doc = NULL;
<br> <br>
				bRetVal = CreateFromFile(lpszPath);
			}
		}
<br> <br>
		app = NULL;
	}
	else
	{
		CLSID clsid;
		CLSIDFromProgID(L"Word.Document", &clsid);
		
		bRetVal = CreateNewItem(clsid);
	}
<br> <br>
	return bRetVal;
}

Jason Henderson

I bleed orange.