クリップボードの内容をドキュメントの任意の位置へ貼り付け


【式】

    HRESULT Range::Paste ( );


【サンプル】

//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_pasteDlg::OnButton1() 
{
     //Wordの起動
    pDOC.CreateInstance(L"Word.Application");
    pDOC->Visible = TRUE;

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

//指定された場所へクリップボードの内容を貼り付け
void CImp_word_pasteDlg::OnButton2() 
{
    //指定された場所へクリップボードの内容を貼り付け
    //(注意:指定範囲に文字列が存在しない場合は、エラーが発生します。)
    RangePtr pRange = pDocument->Range(COleVariant((short)5),COleVariant((short)10));
    pRange->Paste();    
}

//Wordを終了
void CImp_word_pasteDlg::OnButton3() 
{
    //Wordを終了
    pDOC->Quit(COleVariant((short)wdDoNotSaveChanges));
    pDOC = NULL;
}


[サンプル・ソース]