在EXCEL中用VBA创建WORD文档表格

1、在EXCE冲用VBA&J建WORD档表格编辑：madmlwt1.在新建WORD空白文档中创建一个表格【要求】新建一个WORD空白文档，在新文档中创建一个4行5列的空白表格，在空白表格的第一个单元格写入“第一单元格”、最后一个单元格中写入“最后一个单元格”。【代码】Sub创建一个WORD表格()Application.ScreenUpdating=False关闭屏幕刷新dqT=Timer程序运行开始时间(秒)dqM=ThisWorkbook.Name要创建的WORD文件名称(当前工作簿名称)SetwordAppl=CreateObject(Word.Application)定义一个Word对象变

2、量WithwordAppl.Documents.Add创建一个新的Word文档.ActiveDocument.tables.AddRange:=.Selection.Range,NumRows:=4,NumColumns:=5插入4X5表格SetmyRange=.ActiveDocument.tables(1)创建表格对象WithmyRange.Cell(1,1).Range.insertAfter第一个单元格第一个单元格中写入字符第一个单元格.Cell(.Rows.Count,.Columns.Count).Range.insertAfter最后一个单元格第二个单元格中写入字符最后一个单元格

3、EndWith.ActiveDocument.SaveAsThisWorkbook.Path&dqM&.doc保存新建Word文档与当前文件相同路径.Quit关闭新建文档窗口EndWithSetwordAppl=Nothing释放存储空间MsgBoxChr(10)&”成功创建一个WORD表格！_&Chr(10)&Chr(10)&”共用时&Timer-dqT&秒一Left(dqM,Len(dqM)-4)Application.ScreenUpdating=False关闭屏幕刷新EndSub说明：WORD文档中的表格，与EXCEL中的表格概念基本一致，只是表达方式有所区别。tables表示表格对象

4、，tables表示第1个表格(以此类推)。表中的一个空格也叫单元格，用Cell(行数，列数)表示。表格行/列数计算代码：表格行数wordAppl.ActiveDocument.tables(1).Rows.Count表格歹U数wordAppl.ActiveDocument.tables(1).Columns.Count2.新建一个文档写入两个段落再创建一空白表格【要求】第一段落写入“创建一个WORD表格”，字体“黑体”、字号20、对齐“居中”；第二段落写入“作者：老顽童”，字体“华文行楷”、字号16、对齐“居中”。【代码】SubCommandButton1_Click()Application

5、.ScreenUpdating=False关闭屏幕刷新dqT=Timer程序运行开始时间(秒)SetwordAppl=CreateObject(Word.Application)定义一个Word对象变量WithwordAppl.Documents.Add创建一个新的Word文档第一段设置.Selection.Font.Name=黑体字体.Selection.Font.Size=20字号.Selection.Font.Bold=True加粗.Selection.TypeTextText:=创建一个WORD表格第一个段落文本.Selection.ParagraphFormat.Alignment=

6、1居中第二段设置.Selection.TypeParagraph插入新的段落.Selection.Font.Name=华文行楷”字体.Selection.Font.Size=16字号.Selection.Font.Bold=False不加粗.Selection.TypeTextText:=作者：老顽童新段落中写入的文本.Selection.ParagraphFormat.Alignment=1居中插入表格.Selection.TypeParagraph插入新的段落.Selection.ParagraphFormat.Alignment=3左对齐.ActiveDocument.Tables.Ad

7、dRange:=.Selection.Range,NumRows:=4,NumColumns:=5插入4X5表格保存与关闭.ActiveDocument.SaveAsThisWorkbook.Path&文字表格.doc保存新建Word文档与当前文件相同路径.Documents.Close关闭新建文档.Quit关闭新建文档窗口EndWithSetwordAppl=Nothing释放存储空间MsgBoxChr(10)&”成功创建一个WORD文档！_&Chr(10)&Chr(10)&文档第一段写入文本创建一个WORD表格&Chr(10)&Chr(10)&文档第二段写入文本作者：老顽童_&Chr(10

8、)&Chr(10)&创建整个WORD表格文档用时&Timer-dqT&秒，创建表格信息Application.ScreenUpdating=False关闭屏幕刷新EndSub段落对齐设置值说明：对齐一一0或3,居中一一1,右对齐一一2,分散对齐一一4。3.打开一个已经存在的文档创建一个空白表格【要求】在文档“暑假通知书.doc”中第6段落后插入学生个人成绩表(2行12列)，第一行写入标题并设置字体及对齐格式；在文档末尾插入一个2行1列表格，第一个单元格写入“意见或建议：，第二个单元格写入“家长签名：”。在指定段落间创建一个表格【代码11PrivateSubCommandButton1_Clic

9、k()Application.ScreenUpdating=False关闭屏幕刷新dqT=Timer程序运行开始时间(秒)dqM=ThisWorkbook.Path&WORD文档暑假通知书.doc带路径的WORD文件名称SetwdWORD=CreateObject(Word.Application)定义一个Word对象变县里SetdkDOC=wdWORD.Documents.Open(dqM)创建文档对象wdWORD.ActiveDocument.Paragraphs(6).Range.InsertParagraphAfter第6段落后面插入一个新段落wdWORD.ActiveDocument

10、.Paragraphs(7).Range.Selecf选中插入的新段落dkDOC.Tables.AddRange:=wdWORD.Selection.Range,NumRows:=2,NumColumns:=12插入一个2行12列表格SetwdBG=wdWORD.ActiveDocument.Tables创建表格对象WithwdBG表格第1行写入列标题.Cell(1,1)=姓名.Cell(1,2)=班级.Cell(1,3)=语文.Cell(1,4)=数据.Cell(1,5)=英语.Cell(1,6)=物理.Cell(1,7)=政治.Cell(1,8)=历史.Cell(1,9)=地理.Cell(

11、1,10)=生物.Cell(1,11)=总分.Cell(1,12)=名次With.Rows(1).Range表格第一行.Font.Size=10字号.Font.Name=宋体字体.Font.Bold=True力口粗.ParagraphFormat.Alignment=1居中EndWithEndWithwdWORD.ActiveDocument.SaveAs保存修改wdWORD.Quit关闭新建文档窗口SetdkDOC=Nothing释放存储空间SetwdWORD=Nothing释放存储空间MsgBoxChr(10)&”成功创建一个WORD表格！_&Chr(10)&Chr(10)&共用时&Tim

12、er-dqT&秒，Left(Dir(dqM),Len(Dir(dqM)-4)Application.ScreenUpdating=False关闭屏幕刷新EndSub在文档末尾创建一个表格【代码2】PrivateSubCommandButton1_Click()Application.ScreenUpdating=False关闭屏幕刷新dqT=Timer程序运行开始时间(秒)dqM=ThisWorkbook.Path&WORD文档暑假通知书.doc带路径的WORD文件名称SetwdWORD=CreateObject(Word.Application)定义一个Word对象变县里SetdkDOC=w

13、dWORD.Documents.Open(dqM)创建文档对象zDS=dkDOC.Paragraphs.Count当前文档段落总数wdWORD.ActiveDocument.Paragraphs(zDS).Range.InsertParagraphAfter第zDS段落后面插入一个新段落wdWORD.ActiveDocument.Paragraphs(zDS+1).Range.Select选中插入的新段落dkDOC.Tables.AddRange:=wdWORD.Selection.Range,NumRows:=2,NumColumns:=1插入一个2行1列表格SetwdBG=wdWORD.A

14、ctiveDocument.Tables(1)创建表格对象WithwdBG表格写入文本.Cell(1,1)=家长意见或建议：.Cell(2,1)=家长签名：With.Range表格.Font.Bold=True字型加粗.Font.Size=12字号.Font.Name=宋体字体.ParagraphFormat.Alignment=0左对齐EndWithEndWithwdWORD.ActiveDocument.SaveAs保存修改wdWORD.Quit关闭新建文档窗口SetdkDOC=Nothing释放存储空间SetwdWORD=Nothing释放存储空间MsgBoxChr(10)&”成功创建一

15、个WORD表格！_&Chr(10)&Chr(10)&共用时&Timer-dqT&秒，Left(Dir(dqM),Len(Dir(dqM)-4)Application.ScreenUpdating=False关闭屏幕刷新EndSub说明：计算整个文档的段落总数zDS=dkDOC.Paragraphs.Count当前文档段落总数计算一个WORD文档的段落总数，以段落标记为准，一个段落标记表示一个段落数。对整个表格设置格式wdWORD.ActiveDocument.Tables(1).Range,表示整个表格对象。wdWORD.ActiveDocument.Tables(1).Range.Font,

16、表示整个表格对象的文字。wdWORD.ActiveDocument.Tables(1).Range.ParagraphFormat,表示整个表格对象文字的对齐方式。在WORD表格中，一个单元格就是一个段落。对单元格中的文字设置对齐方式，就是设置一个段落格式(ParagraphFormat)小结：在WORD文档中插入表格，关键就是要指明插入表格的位置一一文档开始位置、指定某个段落之后（或之前）、文档末尾等三种可能。归根结底就是在指定段落前/后（或左/右）插入表格。表示在指定段落左或右插入表格代码：InsertParagrapBefore左或前插入InsertParagrapAfter右或后插入指定某个段落之后插入表格步骤：第一步插入一个新段落wdWORD.ActiveDocument.Paragraphs假:落数）.Range.InsertParagrapA