BCB操作Word文档

虽然对BCB深恶痛绝，可是任务需要，只能硬着头皮上。之前看过别人的代码，以为自己对BCB操作Word文档已经掌握了，拿来编译却不能通过，才知道人家的不是直接给予CB的函数，而是又加了一层包装，他的代码更直观了。

今天上边催的紧，只好上网搜索，才知道BCB操作Word文档有两种范型。我很不喜欢GetPropertyOf（）之类的代码，可是网上却充斥着这样的。费尽心机，终于找到了类似VBA的。我的代码大部分是根据网上的这位先生的，本人基本不享有版权。

我的任务主要是对Word中的表格进行读写，另外还有一部分是替换表格外的部分内容，因此代码全部基于这里给任务。

代码已经上传了，下面简单说一下怎样完成。

在BCB 6 中新建一个Application，切换到界面设计部分，在控件Tabs中打开Office2K，拖一个WordApplication，两个WordDocument到Form上，分别命名为WordApp, DestWordDoc,InterWordDoc。添加一个按钮，一个文本框，名字取缺省值。

在Form1的头文件中添加函数 bool TForm1::WordReplace(String docText, String newText, TWordApplication *WordApp, TWordDocument *InterWordDoc)；

在 CPP文件中加入其实现：

 

//简单处理，直接执行替换操作 /** * 在 InterWordDoc中，使用 newText 替换原来的 docText */ bool TForm1::WordReplace(String docText, String newText, TWordApplication *WordApp, TWordDocument *InterWordDoc) { bool bResult = false; try { InterWordDoc->Select(); TVariant charCount = WordApp->ActiveDocument->Characters->Count; InterWordDoc->Range(TVariant(0), charCount); WordApp->Selection->Find->ClearFormatting(); WordApp->Selection->Find->Replacement->ClearFormatting(); WordApp->Selection->Find->set_Text(TVariant(docText)); WordApp->Selection->Find->Replacement->set_Text(TVariant(newText)); WordApp->Selection->Find->Forward = true; //从开头向后匹配 WordApp->Selection->Find->Wrap = wdFindContinue; WordApp->Selection->Find->Format = false; //不论格式 WordApp->Selection->Find->MatchCase = false; //不论大小写 WordApp->Selection->Find->MatchWholeWord = false; //不是整词匹配 WordApp->Selection->Find->MatchByte = false; WordApp->Selection->Find->MatchWildcards = false; //不是通配 WordApp->Selection->Find->MatchSoundsLike = false; WordApp->Selection->Find->MatchAllWordForms = false; WordApp->Selection->Find->Execute(); WordApp->Options->ReplaceSelection = true ; WordApp->Selection->TypeText(TVariant(newText)); WordApp->Selection->Collapse(); bResult = true; } catch (Exception &e) { } return bResult; }

 

在按钮的点击事件中加入如下代码 try{ WordApp->Connect(); // 得到EXE文件所在的路径 ，例如 c:/MyDir String PathStr = ExtractFilePath(ParamStr(0)); //查看 目标文件夹 c:/MyDir/Document是否存在，若不存在，则创建之 if(!DirectoryExists(PathStr + "Document")) { if(!CreateDir(PathStr + "Document")) throw Exception("不能创建目录：" + PathStr + "Document"); } //模板文件 TVariant TemplateFile = PathStr + "DocTemplates//encash_week_B001.dot"; if(!FileExists(TemplateFile)) { throw Exception("模板文件不存在！"); } //目标文件 TVariant DestFile = PathStr + "Document//encash_week_B001_2004003.doc"; WordApp->set_Visible(1);//Word文档的打开、替换 置为 可见，1为short值 DestWordDoc->ConnectTo(WordApp->Documents->Add()); InterWordDoc->ConnectTo(WordApp->Documents->Add(&TemplateFile, EmptyParam)); WordReplace("#YEAR#", "2009", WordApp, InterWordDoc); WordReplace("#MONTH#", "11", WordApp, InterWordDoc); WordReplace("#DAY#", IntToStr(15), WordApp, InterWordDoc); WordReplace("#CURRENTTERMCODE#", "HEB-BD-AG9999", WordApp, InterWordDoc); InterWordDoc->Select(); TVariant charCount = WordApp->ActiveDocument->Characters->Count; InterWordDoc->Range(TVariant(0), charCount); WordApp->Selection->Copy(); DestWordDoc->Select(); charCount = WordApp->ActiveDocument->Characters->Count; DestWordDoc->Range(TVariant(0), charCount); while (1) { //被选中的文档 （DestWordDoc）向下移动10屏，若返回值为0屏，则跳出 if (WordApp->Selection->MoveDown(OleVariant(wdScreen), OleVariant(10), EmptyParam) == 0) break; } WordApp->Selection->Paste(); //设置第一个表格中单元格的内容 DestWordDoc->Tables->Item(1)->Cell(1,2)->Range->set_Text(WideString("张三")); DestWordDoc->Tables->Item(1)->Cell(2,8)->Range->set_Text(WideString("乐透乐透")); DestWordDoc->Tables->Item(1)->Cell(3,2)->Range->set_Text(WideString("新的TouZhuH")); DestWordDoc->Tables->Item(1)->Cell(4,6)->Range->set_Text(WideString("人民币10000万")); //设置第二个表格中单元格的内容 DestWordDoc->Tables->Item(2)->Cell(1,4)->Range->set_Text(WideString("13124198208216543")); // 读取表格中单元格的内容 WideString str = DestWordDoc->Tables->Item(1)->Cell(2,4)->Range->get_Text(); Edit1->Text = str; //保存对文件所作的修改 DestWordDoc->SaveAs(DestFile); WordApp->Quit(OleVariant(wdDoNotSaveChanges)); WordApp->Disconnect(); } catch(...) { ShowMessage("您可能没有安装Word!"); WordApp->Disconnect(); }

 

程序就这些。

但是需要设定EXE文件的输出目录，并将模板文件所在的文件夹 Doctemplates复制到输出目录中。