VC 6下word操作心得-将文字写入word

（1） 生成Dialog时，要选择ActiveX；

（2） 在initdialog中初始化OLE环境

BOOL CDialogTestDlg::OnInitDialog() 中添加

if(!AfxOleInit())

{

AfxMessageBox("OLE Initialization Failed");

return FALSE;

}

（3） View->ClassWizard->Automation->Add Class From Library:定位到你安装Office的目录找到MSWord.Olb（我的word版本是word2007）

添加_Application， Documents， Selection三个类即可，注意，不能像有些文章中说的把所有类都添加，否则会编译不通过。

在用到的.CPP文件中添加头文件，比如我的button消息响应函数在xxxDlg.cpp中，就在文件中添加#include "msword.h"；#include <atlbase.h>。

然后，加入下面的代码即可（这段代码是参考网上的）

// TODO: Add your control notification handler code here

_Application app;

COleVariant vTrue((short)TRUE), vFalse((short)FALSE);

app.CreateDispatch(_T("Word.Application"));

app.SetVisible(FALSE);

//Create New Doc

Documents docs=app.GetDocuments();

CComVariant tpl(_T("")),Visble,DocType(0),NewTemplate(false);

docs.Add(&tpl,&NewTemplate,&DocType,&Visble);

//Add Content:Text

Selection sel=app.GetSelection();

sel.TypeText(_T("\t\t\t\t\t \r\n"));

sel.TypeText(_T("\t\t\t\t\t\t\t\t----------先来一个简单的\r\n"));

sel.ReleaseDispatch();

docs.ReleaseDispatch();

app.SetVisible(TRUE);

app.ReleaseDispatch();