2 std::wcout.imbue(std::locale(“chs”));
 3
 4 #ifndef DEBUG
 5 wcout << *(argv + 1) << endl;
 6 #endif
 7
 8 CComPtr<IOleObject> pole  = NULL;
 9 CComPtr<IBindCtx> pbctx   = NULL;
10 CComPtr<IMoniker> pmkfile = NULL;
11 HRESULT hr = S_OK;
12 BIND_OPTS bopts = { sizeof(BIND_OPTS), BIND_MAYBOTHERUSER, 0, 10000 };
13
14 #ifdef DEBUG
15 LPOLESTR pwszFile = _T(“E:\\Test.wps”);
16 #else
17 LPOLESTR pwszFile = *(argv + 1);
18 #endif
19
20 bopts.grfMode = (STGM_TRANSACTED | STGM_SHARE_DENY_WRITE | STGM_READWRITE);
21
22 ::CoInitialize(NULL);
23
24 hr = CreateBindCtx(0, &pbctx);
25 hr = pbctx->SetBindOptions(&bopts);
26 hr = CreateFileMoniker(pwszFile, &pmkfile);
27 hr = pmkfile->BindToObject(pbctx, NULL, IID_IOleObject, (void**)&pole);
28
29 CComPtr<IDispatch> pdisp;
30 CComPtr<IDispatch> pFields;
31
32 hr = pole.QueryInterface<IDispatch>(&pdisp);
33 hr = Marshal::GetIDispatchProperty(pdisp, DISP_DOCUMENT_FIELDS, &pFields);
34
35 LONG lCount;
36
37 hr = Marshal::GetCollectionCount(pFields, &lCount);
38
39 printf(“Field count = %ld\r\n”, lCount);
40
41 for (LONG i = 1; i <= lCount; ++i) {
42 CComPtr<IDispatch> pField, pCode, pResult;
43 CComBSTR strText;
44 LONG lStart, lEnd;
45
46 Marshal::GetCollectionItem2(pFields, i, &pField);
47 Marshal::GetIDispatchProperty(pField, DISP_FIELD_CODE, &pCode);
48 Marshal::GetBSTRTypeProperty(pCode, DISP_RANGE_TEXT, &strText);
49 Marshal::GetI8TypeProperty(pCode, DISP_RANGE_START, &lStart);
50 Marshal::GetI8TypeProperty(pCode, DISP_RANGE_END, &lEnd);
51
52 wcout << lStart << _T(” “) << lEnd << _T(” “);
53 wcout << wstring(strText) << endl;
54
55 Marshal::GetIDispatchProperty(pField, DISP_FIELD_RANGE, &pResult);
56 Marshal::PutBSTRTypeProperty(pResult, DISP_RANGE_TEXT, CComBSTR(_T(“hello, world”)));
57 }
58
59 CComPtr<IPersistFile> ppfile;
60
61 hr = pole.QueryInterface<IPersistFile>(&ppfile);
62 hr = ppfile->Save(pwszFile, TRUE);
63
64 wcout << _T(“保存成功”) << endl;
65
66 ::CoUninitialize();
67
68 getchar();
69
70 return 0;