如何使用自動化來擷取內建文件屬性

文章翻譯 文章翻譯
文章編號: 179494 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

本文將告訴您如何使用 Microsoft 基礎類別 (MFC) 程式庫安裝有 Microsoft Visual C++ 版本 5.0 及 6.0 4.2 版來找出並列印 Microsoft Word 文件的內建文件屬性。內建文件屬性包括文件的標題、 主旨、 作者、 關鍵字、 註解、 範本、 日期、 頁面、 字數、 字元的數目和許多其他內容。

其他相關資訊

您可以複製本文中的程式碼,訊息處理常式函式的 MFC.cpp 檔中定義的事件。不過,程式碼的目的是要說明使用 IDispatch 介面和成員函式在 MSWord 型別程式庫中定義的程序。主要的好處是來自於閱讀和瞭解程式碼範例中的,如此您就可以修改這個範例或從頭自動尋找和列印一份內建文件屬性撰寫程式碼。

建立專案的步驟

  1. 在 Microsoft Word 中建立新的文件,名為 Test.doc,並儲存根目錄的磁碟機 C。
  2. 請遵循步驟 1 到下列微軟知識庫文件若要建立使用 IDispatch 介面和 MSWord8.olb 型別程式庫中定義的成員函式的範例專案的 12:
    178749如何建立使用 MFC 和型別程式庫的自動化專案
  3. [AutoProjectDlg.cpp 頂端加入下列行:
          #include "MSWord8.h" // msword9.h for Word 2000, msword.h for Word 2002
    					
  4. 將下列程式碼加入至 CAutoProjectDlg::OnRun() AutoProjectDlg.cpp 檔案中。

    範例程式碼

          _Application objWordApp;
          _Document objDoc;
          LPDISPATCH lpDisp;
          Range objRange;
    
          // Common OLE variants that are easy to use for calling arguments.
          COleVariant covTrue((short)TRUE),
                      covFalse((short)FALSE),
                      covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    
          objWordApp.CreateDispatch("Word.Application");
          objWordApp.SetVisible(TRUE);
    
          Documents docs(objWordApp.GetDocuments());
    
          lpDisp = docs.Open(COleVariant("C:\\Test.doc",VT_BSTR),
                                              covFalse,    // Confirm.
                                                           // Conversion.
                                              covFalse,    // ReadOnly.
                                              covFalse,    // AddToRecentFiles.
                                              covOptional, // NULL,
                                                           // PasswordDocument.
                                              covOptional, // PasswordTemplate.
                                              covFalse,    // Revert.
                                              covOptional, // Write-
                                                           // PasswordDocument.
                                              covOptional, // Write-
                                                           // PasswordTemplate.
    
                                              covOptional  // Format. //Last parameter for Word 97
                                                 covOptional, // Encoding // Word 2000/2002 from here on
                                                 covTrue,     // Visible
                                                 covOptional, // OpenConflictDocument
                                                 covOptional, // OpenAndRepair
                                                 (long)0,     // DocumentDirection 
                                                              //wdDocumentDirection LeftToRight
                                                 covOptional  // NoEncodingDialog
                                              );
    
           objDoc.AttachDispatch(lpDisp);
           lpDisp = objDoc.GetContent();
           objRange.AttachDispatch(lpDisp);
    
           // Move the insertion point to the beginning of the document.
           objRange.Collapse(COleVariant((long)1));  //0 = wdCollapseEnd.
           objRange.InsertAfter("Here are the BuiltInDocumentProperties!!");
           objRange.InsertParagraphAfter(); // Write them one-by-one in a loop.
           lpDisp = objDoc.GetBuiltInDocumentProperties();
    
           COleDispatchDriver rootDisp[64];  // Temporary object array.
           int curRootIndex = 0;             // Index into rootDisp[] array.
           DISPID dispID;                    // Temporary dispid for use in
                                             // OleDispatchDriver::
                                             // InvokeHelper().
           DISPID dispID2;                   // Dispid for 'Value'.
           unsigned short *ucPtr;            // Temporary name holder for
                                             // IDispatch::GetIDsOfNames().
           VARIANT vtResult;                 // Holds results from
                                             // OleDispatchDriver::
                                             // InvokeHelper().
           VARIANT vtResult2;                // Holds result for 'Type'.
           BYTE *parmStr;                    // Holds parameter descriptions
                                             // for COleDispatchDriver::
                                             // InvokeHelper().
           rootDisp[0].AttachDispatch(lpDisp);  // LPDISPATCH returned from
                                             // GetBuiltInDocumentProperties.
           VARIANT i;                        // integer;
           VARIANT count;                    // integer;
           char buf[512];                    // General purpose message buffer.
           char buf2[512];
    
           ucPtr = L"Count";                 // Collections have a Count
                                             // member.
    
           try
           {
    
            rootDisp[curRootIndex].m_lpDispatch->GetIDsOfNames(
                                                    IID_NULL,
                                                    &ucPtr,
                                                    1,
                                                    LOCALE_USER_DEFAULT,
                                                    &dispID);
    
    
            rootDisp[curRootIndex].InvokeHelper(dispID,
                                               DISPATCH_METHOD |
                                               DISPATCH_PROPERTYGET,
                                               VT_VARIANT,
                                               (void *)&vtResult,
                                               NULL);
    
            count = vtResult;  // Require a separate variable for loop limiter.
            // For i = 1 to count,
            // get the Item, Name & Value members of the collection.
            i.vt = VT_I4;
            for(i.lVal=1; i.lVal<=count.lVal; i.lVal++)
            {
             ucPtr = L"Item";  // Collection has an Item member.
             rootDisp[curRootIndex].m_lpDispatch->GetIDsOfNames(
                                                    IID_NULL,
                                                    &ucPtr,
                                                    1,
                                                    LOCALE_USER_DEFAULT,
    
                                                    &dispID);
    
    
             parmStr = (BYTE *)( VTS_VARIANT );
             rootDisp[curRootIndex].InvokeHelper(dispID,
                                                DISPATCH_METHOD |
                                                DISPATCH_PROPERTYGET,
                                                VT_VARIANT,
                                                (void *)&vtResult,
                                                parmStr,
                                                &COleVariant(i));
    
             // Move to the next element of the array.
             // Get the Name member for the Item.
             rootDisp[++curRootIndex].AttachDispatch(vtResult.pdispVal);
             ucPtr = L"Name";  // Collection has a Name member
             rootDisp[curRootIndex].m_lpDispatch->GetIDsOfNames(
                                                    IID_NULL,
                                                    &ucPtr,
                                                    1,
                                                    LOCALE_USER_DEFAULT,
                                                    &dispID);
    
             rootDisp[curRootIndex].InvokeHelper(dispID,
                                                DISPATCH_METHOD |
                                                DISPATCH_PROPERTYGET,
                                                VT_VARIANT,
                                                (void *)&vtResult,
                                                NULL);
    
              ucPtr = L"Value";  // Collection has a Value member.
              rootDisp[curRootIndex].m_lpDispatch->GetIDsOfNames(
                                                IID_NULL,
                                                &ucPtr,
                                                1,
                                                LOCALE_USER_DEFAULT,
                                                &dispID2);
    
              rootDisp[curRootIndex].InvokeHelper(dispID2,
                                                DISPATCH_METHOD |
                                                DISPATCH_PROPERTYGET,
                                                VT_VARIANT,
                                                (void *)&vtResult2,
                                                NULL);
           Continue: // Come back here from Catch(COleDispatchException).
    
             rootDisp[curRootIndex--].ReleaseDispatch();
    
             // Initialize buf2 with representation of the value.
    
             switch(vtResult2.vt) // Type of property.
             {
              case VT_BSTR:
                sprintf(buf2, "%s", (CString)vtResult2.bstrVal);
                break;
              case VT_DATE:
              {
                COleDateTime codt(vtResult2.date);
                sprintf(buf2, "Time = %d:%02d, Date = %d/%d/%d",
                  codt.GetHour(), codt.GetMinute(),
                  codt.GetMonth(), codt.GetDay(), codt.GetYear()
                   );
              }
                break;
              case VT_I4:
                sprintf(buf2, "%ld", vtResult2.lVal);
                break;
              default:
                sprintf(buf2, "not VT_BSTR, VT_DATE, or VT_I4");
             }  // End of Switch.
    
             sprintf(buf, "Item(%d).Name = %s, .Type = %d, .Value = %s\n",
                    i.lVal, CString(vtResult.bstrVal), vtResult2.vt, buf2);
    
             objRange.Collapse(COleVariant((long)0));  // Move insertion point
                                                       // to end of the range.
             objRange.InsertAfter(CString(buf));  // Insert after the insertion
                                                  // point.
    
            }  ////////////////// End of For loop. /////////////////////// 
    
            objRange.InsertParagraphAfter(); // Spacing.
            objRange.InsertAfter("");
            objRange.InsertParagraphAfter(); // Spacing.
    
            // Release IDispatch pointers on local objects.
            if(vtResult.vt == VT_DISPATCH) vtResult.pdispVal->Release();
            if(count.vt == VT_DISPATCH) count.pdispVal->Release();
            rootDisp[0].ReleaseDispatch();
    
            AfxMessageBox("All done, waiting...");
            objDoc.SetSaved(TRUE);  // Hides the "Save your changes..." dialog.
            AfxMessageBox("Word will close now. Goodbye");
    
            objWordApp.Quit(covFalse, covFalse, covFalse);
    
           }  // End try.
    
           catch(COleException *e)
           {
            sprintf(buf, "COleException. SCODE: %08lx.", (long)e->m_sc);
            ::MessageBox(NULL, buf, "COleException", MB_SETFOREGROUND | MB_OK);
           }
    
           catch(COleDispatchException *e)
           {
             if(vtResult2.vt ==VT_ERROR)
             {
               AfxMessageBox("Discarding vtResult2.VT_ERROR");
    
             }
             vtResult2.vt = VT_BSTR;
             vtResult2.bstrVal = L"Value not available";
             goto Continue;
           }
    
           catch(...)
           {
            MessageBox( "General Exception caught.", "Catch-All",
            MB_SETFOREGROUND | MB_OK);
           }
    
           //////////////////// For information only. ///////////////////// 
           //          Do not uncomment the following code snippet.          // 
           //  You can copy it and use it in lieu of the previous code when  // 
           //             you need to see just one property.                 // 
           /***************** Code to get a single property. *****************
           // Works for one property.
           COleDispatchDriver myDocumentProperties(lpDisp);
           COleVariant result;
           // Get myDocumentProperties.Item(1).
           // Item(n) where n = property index
           // value in properties collection.
           UCHAR *parmStr = (BYTE *)( VTS_VARIANT );
           myDocumentProperties.InvokeHelper(0, DISPATCH_METHOD |
                                             DISPATCH_PROPERTYGET,
                                             VT_VARIANT,
                                             (void *)&result,
                                             parmStr,
                                             &COleVariant((long)1));
    
           COleDispatchDriver myDocumentProperty(result.pdispVal);
    
           // Get Name of this document property.
    
           myDocumentProperty.InvokeHelper(3, DISPATCH_METHOD |
                                              DISPATCH_PROPERTYGET,
                                              VT_VARIANT,
                                              (void *)&result,
                                              NULL);
    
           AfxMessageBox(CString("Item(1).Name =") + CString(result.bstrVal));
    
           // Release this document property.
           myDocumentProperty.ReleaseDispatch();
    
           // Release the document properties collection.
           myDocumentProperties.ReleaseDispatch();
    
           //*************** End of code for single property. ****************/ 
    
    					
  5. 您可能需要修改程式碼,以指出正確的路徑為您的文件 Test.doc CAutoProjectDlg::OnRun() 中。在下面這一行中參考文件:
          lpDisp = docs.Open(COleVariant("C:\\Test.doc",VT_BSTR),
    					

?考

取得更多資訊有關自動化 Office 應用程式按一下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項:
222101如何尋找並使用 Office 物件模型文件

屬性

文章編號: 179494 - 上次校閱: 2007年2月12日 - 版次: 3.3
這篇文章中的資訊適用於:
  • Microsoft Foundation Class Library 4.2?應用於:
    • Microsoft Visual C++ 5.0 Standard Edition
    • Microsoft Visual C++ 6.0 Service Pack 5
    • Microsoft Word 97 Standard Edition
  • Microsoft Office XP Developer Edition
  • Microsoft Office 2000 Developer Edition
關鍵字:?
kbmt kbautomation kbfaq kbfaq kbhowto kbinterop KB179494 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:179494
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com