How to Uso dell'automazione per ottenere e impostare le proprietà di documenti Office da un client C++ gestito

#include "stdafx.h"

// OFFICE 10:
#using "Office.dll"

// OFFICE 9:
// #using "<Full_Path_to_DLL>\Office.dll"

#using "Word.dll"
#using <mscorlib.dll>

#include <tchar.h>

using namespace System;
using namespace System::Reflection;

// OFFICE 10:
using namespace Microsoft::Office::Core;

// OFFICE 9:
//using namespace Office;


// This is the entry point for this application.
int _tmain(void)
{
   try{
      System::Object* pMissing = System::Reflection::Missing::Value;
      Object* pDocBuiltInProps;
      Object* pDocCustomProps;
      Object* pAuthorProp;
      Object* pValue;

      Console::WriteLine("\nStarting Microsoft Word...");
      Word::ApplicationClass* pWord = new Word::ApplicationClass;
      pWord->Visible = true;

      //Create a new document and get the BuiltInDocumentProperties collection.
      Word::Documents* pDocs = pWord->Documents;
      Word::Document* pDoc = pDocs->Add(&pMissing,&pMissing,&pMissing,&pMissing);

      //Get the Author property and display it.
      Console::WriteLine("\n\nRetrieving the Author Property...");
      pDocBuiltInProps = pDoc->BuiltInDocumentProperties;
      Object* pArgs[] = { S"Author" }; 
      pAuthorProp = pDocBuiltInProps->GetType()->InvokeMember(S"Item",
         BindingFlags::GetProperty, NULL, pDocBuiltInProps, pArgs);
      pValue = pAuthorProp->GetType()->InvokeMember(S"Value", 
         BindingFlags::GetProperty, NULL,pAuthorProp,NULL);
      Console::WriteLine(S"\n\tAuthor is: {0}",pValue->ToString());
      Console::WriteLine("\nPress ENTER to continue.");
      Console::ReadLine();

      //Set the Subject property.
	  Console::WriteLine("\n\nSetting the Subject Property...");
      pArgs = new Object*[2];
      pArgs[0] = S"Subject";
      pArgs[1] = S"A sample subject";
      pDocBuiltInProps->GetType()->InvokeMember("Item", 
         BindingFlags::SetProperty, NULL, pDocBuiltInProps, pArgs );

      //Add a property/value pair to the CustomDocumentProperties collection.
      Console::WriteLine("\n\nSetting properties...");
      pDocCustomProps = pDoc->CustomDocumentProperties;		
      pArgs = new Object*[4];
      pArgs[0] = S"Knowledge Base Article";
      pArgs[1] = false;
      pArgs[2] = __box(MsoDocProperties::msoPropertyTypeString);
      pArgs[3] = S"Q308408";
      pDocCustomProps->GetType()->InvokeMember("Add",
         BindingFlags::InvokeMethod, NULL, pDocCustomProps, pArgs );
      Console::WriteLine(S"\n\t1. Select Properties from the File menu."
            S"\n\t2. Go to the Summary tab to view the Subject property."
            S"\n\t3. Go to the Custom tab to view the custom property.");
      Console::WriteLine("\nPress ENTER to end.");
      Console::ReadLine();

      }
      catch(Exception* e)
      {
         Console::WriteLine(S"Error automating Word...");
         Console::WriteLine(e->get_Message());
      }

   return 0;
}