如何用VC 处理word文档 另存为 txt文本文件 急求 实例代码参考

Question

本人要求查询WORD文档，EXCEL文档 的关键字匹配，目前想到解决思路是先将word文档转换为TXT在来读取匹配速度会快点！
但是word转TXT  这点有难度，有熟悉这块的朋友来坐坐！ 希望大家能够帮下忙！ 谢谢了！ 高分聘请专家！

Answer 1

个人感觉，转一次再去查询肯定不如word/excel内建的直接查询快速

Answer 2

如果是WORD，就直接当成TXT读取；如果是EXECL，网上有现成的读取EXCEL的类，你可将其内容用循环语句转成TXT然后读取匹配。前者本人未作试验，后者绝对可行。

Answer 3

Microsoft Word有一个Find对象,可以使用Find对象查询啊.这里有一博客,关于Word对象的说明,希望对你有帮助

http://blog.csdn.net/scq2099yt/archive/2008/03/24/2213062.aspx

Answer 4

#include <AtlBase.h>_Application app;
app.CreateDispatch(_T("Word.Application"));
app.SetVisible(TRUE);
_Document doc=app.GetActiveDocument();   //得到ActiveDocument
CComVariant FileName(_T("c:\\doc.txt")); //文件名
CComVariant FileFormat(101);      //重点，看下面的说明
CComVariant LockComments(false),Password(_T(""));
CComVariant AddToRecentFiles(true),WritePassword(_T(""));
CComVariant ReadOnlyRecommended(false),EmbedTrueTypeFonts(false);
CComVariant SaveNativePictureFormat(false),SaveFormsData(false);
CComVariant SaveAsAOCELetter(false);
doc.SaveAs(&FileName,&FileFormat,&LockComments,&Password,
   &AddToRecentFiles,&WritePassword,&ReadOnlyRecommended,
   &EmbedTrueTypeFonts,&SaveNativePictureFormat,&SaveFormsData,
   &SaveAsAOCELetter);sel.ReleaseDispatch();
doc.ReleaseDispatch();
docs.ReleaseDispatch();CComVariant SaveChanges(false),OriginalFormat,RouteDocument;
app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);
app.ReleaseDispatch();
AfxMessageBox(_T("请检查c:\\hello.txt是否正常产生了。下面该学习Setp5了"));

Answer 5

6楼的兄弟能说详细点么
VC6.0  试验了下  报错呀！
有没有那个兄弟能够帮帮忙！
实在是搞不定了！
谢谢各位了！
如果方便发我邮箱[email protected]

Answer 6

vc6操作word
http://www.diybl.com/course/3_program/vc/vc_js/2008628/128843_2.html

Answer 7

#define   wdFormat   7   
_Application   m_app;   
Documents   m_docs;   
_Document   m_doc;   
COleVariant   vFalse((short)FALSE),   vOpt((long)DISP_E_PARAMNOTFOUND,   VT_ERROR);   
    
if   (!m_app.CreateDispatch("Word.Application"))   
TRACE("\nCreate   Dispatch   failed!");   
    
m_app.SetVisible(FALSE);   
m_app.SetScreenUpdating(FALSE);   
m_app.SetCaption("Word   Automation");   
    
m_docs   =   m_app.GetDocuments();   
m_doc   =   m_docs.Open(COleVariant("C:\\1.doc"),   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt);   
    
m_doc.SetSaveEncoding(3);   
COleVariant   vSaveFormat((short)wdFormat);   
m_doc.SaveAs(COleVariant("C:\\1.txt"),   vSaveFormat,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt,   vOpt);   
m_app.Quit(vFalse,   vOpt,   vOpt);   
m_app.ReleaseDispatch(); 

Answer 8

有没有能够在word内部匹配的方法！
忘大家能够指导！最好有点例子！
转换速度太慢！完全达不到需求！

Answer 9

#define  wdFormat  7  
_Application  m_app;  
Documents  m_docs;  
_Document  m_doc;  
COleVariant  vFalse((short)FALSE),  vOpt((long)DISP_E_PARAMNOTFOUND,  VT_ERROR);  
    
if  (!m_app.CreateDispatch("Word.Application"))  
TRACE("\nCreate  Dispatch  failed!");  
    
m_app.SetVisible(FALSE);  
m_app.SetScreenUpdating(FALSE);  
m_app.SetCaption("Word  Automation");  
    
m_docs  =  m_app.GetDocuments();  
m_doc  =  m_docs.Open(COleVariant("C:\\1.doc"),  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt);  
    
m_doc.SetSaveEncoding(3);  
COleVariant  vSaveFormat((short)wdFormat);  
m_doc.SaveAs(COleVariant("C:\\1.txt"),  vSaveFormat,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt,  vOpt);  
m_app.Quit(vFalse,  vOpt,  vOpt);  
m_app.ReleaseDispatch();