13,871
社区成员




void __fastcall TForm1::Button2Click(TObject *Sender)
{
String File = "C:\\test.doc"; //按照模板文件的格式来显示
Variant vWordApp;
try
{
vWordApp = Variant::CreateObject("Word.Application");
}
catch(...)
{
MessageBox(0, "启动 Word 出错, 可能是没有安装Word.","提示", MB_OK | MB_ICONERROR);
vWordApp = Unassigned;
return;
}
// 隐藏Word界面
vWordApp.OlePropertySet("Visible", false);
vWordApp.OlePropertyGet("Documents").OleFunction("Open", File.c_str());
Variant vSelect = vWordApp.Exec(PropertyGet("Selection"));
String strText = "测试"; // 查找字符串
Variant vFind = vSelect.OlePropertyGet("Find");
vFind.OleProcedure("ClearFormatting");
vFind.OlePropertySet("Text", strText.c_str());
vFind.OlePropertyGet("Replacement").OlePropertySet("Text", "已替换"); //这句为什么没有动作??
vFind.OlePropertySet("Forward", true);
vFind.OlePropertySet("Wrap", false);
vFind.OlePropertySet("Format", false);
vFind.OlePropertySet("MatchCase", false);
vFind.OlePropertySet("MatchWholeWord", false);
vFind.OlePropertySet("MatchByte", false);
vFind.OlePropertySet("MatchWildcards", false);
vFind.OlePropertySet("MatchSoundsLike", false);
vFind.OlePropertySet("MatchAllWordForms", false);
bool bResult = vFind.OleFunction("Execute");
if (bResult)
ShowMessage("搞定的说");
else
ShowMessage("木有找到关键字");
vWordApp.OlePropertyGet("ActiveDocument").OleProcedure("Close");
Application->ProcessMessages();
vWordApp.OleProcedure("Quit");
Application->ProcessMessages();
vWordApp = Unassigned;
}
//---------------------------------------------------------------------------