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

VBA在EXCEL中操作WORD表格之四 第 1 页 共 8 页 在EXCEL中用VBA创建WORD文档表格

编辑：madmlwt

1．在新建WORD空白文档中创建一个表格 【要求】

新建一个WORD空白文档，在新文档中创建一个4行5列的空白表格，在空白表格的第一个单元格写入“第一单元格”、最后一个单元格中写入“最后一个单元格”。 【代码】

Sub 创建一个WORD表格()

Application.ScreenUpdating = False '关闭屏幕刷新 dqT = Timer '程序运行开始时间(秒)

dqM = ThisWorkbook.Name '要创建的WORD文件名称(当前工作簿名称) Set wordAppl = CreateObject(\'定义一个Word对象变量 With wordAppl

.Documents.Add '创建一个新的Word文档

.ActiveDocument.tables.Add Range:=.Selection.Range, NumRows:=4, NumColumns:=5 '插入4×5表格

Set myRange = .ActiveDocument.tables(1) '创建表格对象 With myRange

.Cell(1, 1).Range.insertAfter \第一个单元格\'第一个单元格中写入字符第一个单元格

.Cell(.Rows.Count, .Columns.Count).Range.insertAfter \最后一个单元格\'第二个单元格中写入字符最后一个单元格

End With

.ActiveDocument.SaveAs ThisWorkbook.Path & \& dqM & \'保存新建Word文档与当前文件相同路径

.Documents.Close '关闭新建文档

VBA在EXCEL中操作WORD表格之四 第 2 页 共 8 页 .Quit '关闭新建文档窗口 End With

Set wordAppl = Nothing '释放存储空间

MsgBox Chr(10) & \成功创建一个WORD表格！\_

& Chr(10) & Chr(10) & \共用时 \& Timer - dqT & \秒\, Left(dqM, Len(dqM) - 4)

Application.ScreenUpdating = False '关闭屏幕刷新 End Sub 说明：

WORD文档中的表格，与EXCEL中的表格概念基本一致，只是表达方式有所区别。tables表示表格对象，tables(1) 表示第1个表格(以此类推)。表中的一个空格也叫单元格，用Cell(行数，列数)表示。

表格行/列数计算代码：

表格行数——wordAppl.ActiveDocument.tables(1) .Rows.Count 表格列数——wordAppl.ActiveDocument.tables(1) .Columns.Count 2．新建一个文档写入两个段落再创建一空白表格 【要求】

第一段落写入“创建一个WORD表格”，字体“黑体”、字号20、对齐“居中”；第二段落写入“作者：老顽童” ，字体“华文行楷 ”、字号16、对齐“居中”。 【代码】

Sub CommandButton1_Click()

Application.ScreenUpdating = False '关闭屏幕刷新 dqT = Timer '程序运行开始时间(秒)

Set wordAppl = CreateObject(\'定义一个Word对象变量 With wordAppl

.Documents.Add '创建一个新的Word文档

VBA在EXCEL中操作WORD表格之四 第 3 页 共 8 页 '第一段设置

.Selection.Font.Name = \黑体\'字体 .Selection.Font.Size = 20 '字号 .Selection.Font.Bold = True '加粗

.Selection.TypeText Text:=\创建一个WORD表格\'第一个段落文本 .Selection.ParagraphFormat.Alignment = 1 '居中 '第二段设置

.Selection.TypeParagraph '插入新的段落 .Selection.Font.Name = \华文行楷\'字体 .Selection.Font.Size = 16 '字号 .Selection.Font.Bold = False '不加粗

.Selection.TypeText Text:=\作者：老顽童\'新段落中写入的文本 .Selection.ParagraphFormat.Alignment = 1 '居中 '插入表格

.Selection.TypeParagraph '插入新的段落

.Selection.ParagraphFormat.Alignment = 3 '左对齐

.ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=4, NumColumns:=5 '插入4×5表格

'保存与关闭

.ActiveDocument.SaveAs ThisWorkbook.Path & \文字表格.doc\'保存新建Word文档与当前文件相同路径

.Documents.Close '关闭新建文档 .Quit '关闭新建文档窗口 End With

Set wordAppl = Nothing '释放存储空间

MsgBox Chr(10) & \成功创建一个WORD文档！\_

& Chr(10) & Chr(10) & \文档第一段写入文本 创建一个WORD

VBA在EXCEL中操作WORD表格之四 第 4 页 共 8 页 表格\_

& Chr(10) & Chr(10) & \文档第二段写入文本 作者：老顽童\_ & Chr(10) & Chr(10) & \创建整个WORD表格文档用时 \& Timer - dqT & \秒\, \创建表格信息\

Application.ScreenUpdating = False '关闭屏幕刷新 End Sub

段落对齐设置值说明：

左对齐——0或3，居中——1，右对齐——2，分散对齐——4。 3．打开一个已经存在的文档创建一个空白表格 【要求】

在文档“暑假通知书.doc”中第6段落后插入学生个人成绩表(2行12列)，第一行写入标题并设置字体及对齐格式；在文档末尾插入一个2行1列表格，第一个单元格写入“意见或建议：”，第二个单元格写入“家长签名：”。

⑴在指定段落间创建一个表格 【代码1】

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False '关闭屏幕刷新 dqT = Timer '程序运行开始时间(秒)

dqM = ThisWorkbook.Path & \文档\\暑假通知书.doc\'带路径的WORD文件名称

Set wdWORD = CreateObject(\'定义一个Word对象变量

Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象

wdWORD.ActiveDocument.Paragraphs(6).Range.InsertParagraphAfter '第6段落后面插入一个新段落

wdWORD.ActiveDocument.Paragraphs(7).Range.Select '选中插入的新段落 dkDOC.Tables.Add Range:=wdWORD.Selection.Range, NumRows:=2, Num

VBA在EXCEL中操作WORD表格之四 第 5 页 共 8 页 Columns:=12 '插入一个2行12列表格

Set wdBG = wdWORD.ActiveDocument.Tables(1) '创建表格对象 With wdBG ' '表格第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(1, 10) = \生物\ .Cell(1, 11) = \总分\ .Cell(1, 12) = \名次\

With .Rows(1).Range '表格第一行 .Font.Size = 10 '字号 .Font.Name = \宋体\'字体 .Font.Bold = True '加粗

.ParagraphFormat.Alignment = 1 '居中 End With End With

wdWORD.ActiveDocument.SaveAs '保存修改 wdWORD.Quit '关闭新建文档窗口 Set dkDOC = Nothing '释放存储空间 Set wdWORD = Nothing '释放存储空间

MsgBox Chr(10) & \成功创建一个WORD表格！\_

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库在EXCEL中用VBA创建WORD文档表格在线全文阅读。