使用msword.olb操作word(6)

最新推荐文章于 2021-07-15 11:50:42 发布

原创最新推荐文章于 2021-07-15 11:50:42 发布 · 1.9k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#word #application #msword.olb

Word/Excel 专栏收录该内容

9 篇文章

订阅专栏

本文详细介绍了如何利用msword.olb在Word文件中插入并生成表格，通过提供示例代码，从创建Word应用程序实例到激活文档、选择区域、添加表格等步骤，展示了操作流程。

摘要：使用msword.olb实现在word文件中插入，生成表格

例子部分代码：

	_Application oWordApp;
	Documents	 oWordDocs;
	_Document	 oWordDoc;
	Selection	 oWordSel;
	Tables		 oWordTables;
	Table		 oWordTable;
	Range		 oWordRange;
	InlineShapes oWordInlineShap;

	COleVariant vTrue((short)TRUE),vFalse((short)FALSE),vOpt((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
	COleVariant vUnit((short)12);

	if (!oWordApp.CreateDispatch(_T("Word.Application")))
	{
		AfxMessageBox(_T("Word CreateDispatch Failed!"));
		return ;
	}
	
	oWordApp.SetVisible(TRUE);
	oWordApp.Activate();
	oWordDocs = oWordApp.GetDocuments();
	oWordDoc  = oWordDocs.Add(vOpt,vOpt,vFalse,vOpt);
	oWordDoc  = oWordApp.GetActiveDocument();
	oWordSel  = oWordApp.GetSelection();
	oWordRange= oWordSel.GetRange();
	oWordTables = oWordDoc.GetTables();
	oWordTables.Add(oWordRange,10,5,vTrue,vFalse);

	oWordSel.SetText("序号");
	oWordSel.MoveRight(vUnit,vOpt,vOpt);
	oWordSel.SetText("姓名");
	oWordSel.MoveRight(vUnit,vOpt,vOpt);
	oWordSel.SetText("年龄");
	oWordSel.MoveRight(vUnit,vOpt,vOpt);
	oWordSel.SetText("住址");
	oWordSel.MoveRight(vUnit,vOpt,vOpt);
	oWordSel.SetText("备注");

	oWordSel.MoveRight(vUnit,vOpt,vOpt);