在excel中用vba创建word表格

《在excel中用vba创建word表格》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VBA在EXCEL中操作WORD表格之四第8页共8页在EXCEL中用VBA创建WORD文档表格编辑：madmlwt1．在新建WORD空白文档中创建一个表格【要求】新建一个WORD空白文档，在新文档中创建一个4行5列的空白表格，在空白表格的第一个单元格写入“第一单元格”、最后一个单元格中写入“最后一个单元格”。【代码】Sub创建一个WORD表格()Application.ScreenUpdating=False'关闭屏幕刷新dqT=Timer'程序运行开始时间(秒)dqM=ThisWorkbook.Name'要创建的WORD文

2、件名称(当前工作簿名称)SetwordAppl=CreateObject("Word.Application")'定义一个Word对象变量WithwordAppl.Documents.Add'创建一个新的Word文档.ActiveDocument.tables.AddRange:=.Selection.Range,NumRows:=4,NumColumns:=5'插入4×5表格SetmyRange=.ActiveDocument.tables(1)'创建表格对象WithmyRange.Cell(1,1).Range.inse

3、rtAfter"第一个单元格"'第一个单元格中写入字符第一个单元格.Cell(.Rows.Count,.Columns.Count).Range.insertAfter"最后一个单元格"'第二个单元格中写入字符最后一个单元格EndWith.ActiveDocument.SaveAsThisWorkbook.Path&""&dqM&".doc"'保存新建Word文档与当前文件相同路径.Documents.Close'关闭新建文档VBA在EXCEL中操作WORD表格之四第8页共8页.Quit'关闭新建文档窗口EndWithSe

4、twordAppl=Nothing'释放存储空间MsgBoxChr(10)&"成功创建一个WORD表格！"_&Chr(10)&Chr(10)&"共用时"&Timer-dqT&"秒",,Left(dqM,Len(dqM)-4)Application.ScreenUpdating=False'关闭屏幕刷新EndSub说明：WORD文档中的表格，与EXCEL中的表格概念基本一致，只是表达方式有所区别。tables表示表格对象，tables(1)表示第1个表格(以此类推)。表中的一个空格也叫单元格，用Cell(行数，列数)表示。表格

5、行/列数计算代码：表格行数——wordAppl.ActiveDocument.tables(1).Rows.Count表格列数——wordAppl.ActiveDocument.tables(1).Columns.Count2．新建一个文档写入两个段落再创建一空白表格【要求】第一段落写入“创建一个WORD表格”，字体“黑体”、字号20、对齐“居中”；第二段落写入“作者：老顽童”，字体“华文行楷”、字号16、对齐“居中”。【代码】SubCommandButton1_Click()Application.ScreenUpdati

6、ng=False'关闭屏幕刷新dqT=Timer'程序运行开始时间(秒)SetwordAppl=CreateObject("Word.Application")'定义一个Word对象变量WithwordAppl.Documents.Add'创建一个新的Word文档VBA在EXCEL中操作WORD表格之四第8页共8页'第一段设置.Selection.Font.Name="黑体"'字体.Selection.Font.Size=20'字号.Selection.Font.Bold=True'加粗.Selection.TypeText

7、Text:="创建一个WORD表格"'第一个段落文本.Selection.ParagraphFormat.Alignment=1'居中'第二段设置.Selection.TypeParagraph'插入新的段落.Selection.Font.Name="华文行楷"'字体.Selection.Font.Size=16'字号.Selection.Font.Bold=False'不加粗.Selection.TypeTextText:="作者：老顽童"'新段落中写入的文本.Selection.ParagraphFormat.Align

8、ment=1'居中'插入表格.Selection.TypeParagraph'插入新的段落.Selection.ParagraphFormat.Alignment=3'左对齐.ActiveDocument.Tables.AddRange:=.Selection.Range,NumRows: