下面是代码:
_Application WordApp; if (!WordApp.CreateDispatch(_T("WORD.Application")))
{
::AfxMessageBox("我靠,连office都没装");
return ;
} WordApp.SetVisible(TRUE); Documents docs(WordApp.GetDocuments());
_Document mydoc;      COleVariant covTrue((short)TRUE),
                  covFalse((short)FALSE),
                  covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
COleVariant a((short)FALSE);
mydoc.AttachDispatch(docs.Open(
 COleVariant("C:\\Test.doc",VT_BSTR),
 covFalse,    // Confirm Conversion.
 covFalse,    // ReadOnly.
 covFalse,    // AddToRecentFiles.
 covOptional, // PasswordDocument.
 covOptional, // PasswordTemplate.
 covFalse,    // Revert.
 covOptional, // WritePasswordDocument.
 covOptional, // WritePasswordTemplate.
 covOptional, // Format. // Last argument for Word 97
covOptional, // Encoding // New for Word 2000/2002
covTrue,     // Visible
covOptional, // OpenConflictDocument
covOptional, // OpenAndRepair
a,     // DocumentDirection wdDocumentDirection LeftToRight
covOptional  // NoEncodingDialog
)  // Close Open parameters
); // Close AttachDispatch(…) Selection abc = mydoc.GetSections();


abc.GetText();可是执行完abc.GetText();后,总是说"Item"不是一种属性```请问应该怎样获得WORD文档的内容?

解决方案 »

  1.   

    Range   abc = mydoc.Range(vOpt,vOpt);
    MessageBox(abc.GetText());
      

  2.   

    楼上的还在吗``请教``Range是一个什么变量?哪里有关于这方面的资料?
      

  3.   

    也在msword.olb中,导入的选择类就行
      

  4.   

    打开word  alt+F11 打开VBA编辑工具(菜单工具,宏下),
    再打开帮助即可(第一次需要安装),如vbawrd9.chm同理Excel和PPT