新規Wordファイルを起動する

//Wordを操作するためのタイプライブラリを読みこむ(Word2000用)
#import "C:\Program Files\Microsoft Office 2000\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 2000\Office\Msword9.olb" rename("ExitWindows", "ExitWindowsDOC")


void CXlsnewDlg::OnButton1() 
{
	using namespace Word;
	_ApplicationPtr pDOC;

 	//Wordの起動
	pDOC.CreateInstance(L"Word.Application");
	pDOC->Visible = TRUE;

	//新規 Word document を追加する
	DocumentsPtr pDocments = pDOC->GetDocuments();
	_DocumentPtr pDocment  = pDocments->Add();

	AfxMessageBox("動作確認のために一時停止");

	//Wordの終了
	pDOC->Quit();
}