版の管理用コメントを付けて保存

【メソッド】

    HRESULT Versions::Save ( VARIANT * Comment );

【引数】

    Comment : 省略可能。版の管理用コメント



【サンプル】

//Wordを操作するためのタイプライブラリを読みこむ(Word2000用)
#import "C:\Program Files\Microsoft Office\Office\Mso9.dll" no_namespace rename("DocumentProperties", "DocumentPropertiesDOC")   
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb" no_namespace   
#import "C:\Program Files\Microsoft Office\Office\Msword9.olb" rename("ExitWindows", "ExitWindowsDOC")
using namespace Word;


//Word操作用オブジェクト
_ApplicationPtr pDOC;
_DocumentPtr pDocument;


//Wordの起動
void CImp_word_vsaveDlg::OnButton1() 
{
     //Wordの起動
    pDOC.CreateInstance(L"Word.Application");
    pDOC->Visible = TRUE;

    //新規 Word document を追加する
    DocumentsPtr pDocuments = pDOC->GetDocuments();
    pDocument  = pDocuments->Add();    
}

//版の管理用コメントを付けて保存
void CImp_word_vsaveDlg::OnButton2() 
{
    COleVariant oleComment;
    COleVariant FName;

    //名前を付けて保存
    FName.SetString("c:\\temp\\test.doc", VT_BSTR);
    pDocument->SaveAs(FName);

    //版の管理用コメントを付けて保存
    oleComment.SetString("管理用コメントのテスト", VT_BSTR);
    pDocument->Versions->Save(oleComment);
    
}

//Wordを終了
void CImp_word_vsaveDlg::OnButton3() 
{
    //Wordを終了
    pDOC->Quit();
    pDOC = NULL;
}


[サンプル・ソース]