703
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vWordApp, vDoc, vPara, vSelect;
try
{
vWordApp = Variant::CreateObject("Word.Application");
}
catch(...)
{
MessageBox(Handle, "启动Word出错!",
Application->Title.c_str(), MB_OK | MB_ICONERROR);
vWordApp = Unassigned;
return;
}
// 使Word可视,方便查看效果
vWordApp.OlePropertySet("Visible", true);
// 添加新文档
vDoc = vWordApp.OlePropertyGet("Documents").OleFunction("Add");
vSelect = vWordApp.OlePropertyGet("Selection");
// 以下添加三段文字
vSelect.OleProcedure("TypeText", "第一段文字 fdsafsdfsdfsdfdsfsd");
vSelect.OleProcedure("TypeParagraph");
vSelect.OleProcedure("TypeText", "第二段文字 fdsafsdfdsfsdfdasfadsf");
vSelect.OleProcedure("TypeParagraph");
vSelect.OleProcedure("TypeText", "第三段文字 fadsfsdfdsfadsfdas");
vSelect.OleProcedure("TypeParagraph");
// 获取当前文档中段落的总数
int nParaCount = vDoc.OlePropertyGet("Paragraphs").OlePropertyGet("Count");
// 这里的段落总数为4
ShowMessage(nParaCount);
// 后续代码略
// ...
}