ドキュメントの任意の位置の文字列の読み込みと書き込み

【サンプル】

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

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

//指定された文字列を取得する
void CImp_word_ReadSelTxtDlg::OnButton2() 
{
	//指定された文字列を取得する
	//(注意)指定範囲が存在しない時は、エラーとなります。
	_bstr_t bstrBuf = pDocument->Range(COleVariant((short)3), COleVariant((short)7))->Text;

	AfxMessageBox("取得文字列 = " + bstrBuf);
}

//指定範囲へ文字列を出力
void CImp_word_ReadSelTxtDlg::OnButton3() 
{
	//指定された文字列を取得する
	//(注意)指定範囲が存在しない時は、エラーとなります。
	pDocument->Range(COleVariant((short)2), COleVariant((short)6))->Text = "TEST";
}

//終了する
void CImp_word_ReadSelTxtDlg::OnButton4() 
{
	pDOC->Quit(COleVariant((short)wdDoNotSaveChanges));
	pDOC = NULL;	
}


[サンプル・ソース]