Article ID: 152070
Article Last Modified on 3/21/2005
WordBasic wb;
wb.CreateDispatch("Word.Basic");
OLECHAR* lpszCurValues = L"CurValues";
DISPID dispidCurValues;
wb.m_lpDispatch->GetIDsOfNames( IID_NULL, &lpszCurValues, 1,
LOCALE_SYSTEM_DEFAULT, &dispidCurValues )
COleDispatchDriver dispdrvrCurValues;
LPDISPATCH resultDispatch;
wb.GetProperty(dispidCurValues, VT_DISPATCH,
(void*)&resultDispatch);
dispdrvrCurValues.AttachDispatch(resultDispatch);
OLECHAR* lpszFileSummaryInfo = L"FileSummaryInfo";
DISPID dispidFileSummaryInfo;
dispdrvrCurValues.m_lpDispatch->GetIDsOfNames( IID_NULL,
&lpszFileSummaryInfo, 1,
LOCALE_SYSTEM_DEFAULT,&dispidFileSummaryInfo)
COleDispatchDriver dispdrvrFileSummaryInfo;
LPDISPATCH resultDispatch;
dispdrvrCurValues.GetProperty(dispidFileSummaryInfo, VT_DISPATCH,
(void*)&resultDispatch);
dispdrvrFileSummaryInfo.AttachDispatch(resultDispatch);
OLECHAR* lpszTitle = L"Title";
DISPID dispidDocProperty;
CString Result;
dispdrvrFileSummaryInfo.m_lpDispatch->GetIDsOfNames( IID_NULL,
&lpszTitle, 1, LOCALE_SYSTEM_DEFAULT, &dispidDocProperty);
dispdrvrFileSummaryInfo.GetProperty,
(dispidDocProperty,VT_BSTR,&Result);
Keywords: kbhowto kbnoupdate KB152070