因为Word2000中的一些方法与属性有些改变,更多信息请阅读:Office类型库中新的改变
创建工程步骤
1. 在Microsoft Word中,创建新文档,添加一些文字并保存为Test.doc。关闭文档并退出Word。
2. 根据下面知识库中文章的1-12步提供的方法, 我们使用MSWord8.olb类型库中定义的IDispatch接口及其成员函数来创建示例项目。
如何使用MFC和类型库创建自动化项目
3. 在AutoProjectDlg.cpp的顶部添加如下行:
#include "msword8.h" // msword9.h for Word 2000, msword.h for Word 20024. 在AutoProjectDlg.cpp文件的CAutoProjectDlg::OnRun() 中添加如下代码
_Application objWord; // 用COleVariant定义变量比较方便 COleVariant covTrue((short)TRUE), covFalse((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); // 得到 IDispatch 指针并附加到objWord对象中. if (!objWord.CreateDispatch("Word.Application")) { AfxMessageBox("Couldn''t get Word object."); return; } objWord.SetVisible(TRUE); //显示程序窗口. Documents docs(objWord.GetDocuments());_Document testDoc; testDoc.AttachDispatch(docs.Open( COleVariant("C://Test.doc",VT_BSTR), covFalse, // 确认转换 covFalse, // 只读 covFalse, // 添加到最近文件中 covOptional, // 文档口令. covOptional, // 模板口令. covFalse, // 恢复原状. covOptional, // 写文档口令. covOptional, // 写模板口令. covOptional) // 格式. // 该参数用于 Word 97 以前 covOptional, // 编码 // 用于 Word 2000/2002 covTrue, // 可见 covOptional, // OpenConflictDocument covOptional, // 打开并修复 (long)0, // DocumentDirection wdDocumentDirection LeftToRight covOptional // 无编码对话框 ) // Close Open parameters ); // Close AttachDispatch(…) AfxMessageBox("Now printing 2 copies on the active printer"); testDoc.PrintOut(covFalse, // Background. covOptional, // Append. covOptional, // Range. covOptional, // OutputFileName. covOptional, // From. covOptional, // To. covOptional, // Item. COleVariant((long)2), // Copies. covOptional, // Pages. covOptional, // PageType. covOptional, // PrintToFile. covOptional, // Collate. covOptional, // ActivePrinterMacGX. covOptional // ManualDuplexPrint. covOptional, // PrintZoomColumn New with Word 2002 covOptional, // PrintZoomRow ditto covOptional, // PrintZoomPaperWidth ditto covOptional); // PrintZoomPaperHeight ditto // 如果你希望打印前预览文档,你可以使用PrintPreview代替PrintOut// testDoc[i].PrintPreview. objWord.Quit(covFalse, // SaveChanges. covTrue, // OriginalFormat. covFalse // RouteDocument. );5. 你可能需要修改CAutoProjectDlg::OnRun中的代码指明Test.doc文档的所在路径。参考如下代码:
testDoc.AttachDispatch(docs.Open( COleVariant("C://My Docs//Test.doc",VT_BSTR)...