在EXCEL中用VBA处理WORD表格常规属性文档格式.docx

1、bgS = dkDOC.Tables.Count 当前文档中的表格总数dkDOC.Close 关闭文档Set dkDOC = Nothing 释放存储空间Set wdWORD = Nothing MsgBox Chr（10） & Dir（dqM） & 文档中共有 & bgS & 个表格！, , 计算WORD表格个数End Sub提示：嵌入式表格如WORD文档中插入的EXCEL表格、表格中插入的表格。计算表格个数的代码格式文档对象. Tables.Count上述方法不能计算WORD文档中的嵌入式表格个数。2计算WORD文档中各个表格的行/列数在EXCEL中，遍历WORD文档“成绩表.doc”中的

2、表格，计算表格的行数和列数。Sub 计算指定WORD文档中表格行列数（）For g = 1 To bgS 循环表格 With dkDOC.Tables（g） 逐个表格计算 hs = .Rows.Count 行数 ls = .Columns.Count 列数 MsgBox Chr（10） & 文档共有表格 个 _ Chr（10） &第 g & 个表格有 hs & 行 ls & 列计算WORD表格行列数计算信息提示 End WithNext g计算行数代码格式文档对象.表格对象.Rows.Count计算列数代码格式文档对象.表格对象.Columns.Count上述方法不能计算嵌入式表格的行/列数。

3、3选定WORD表格的指定区域选定整个表格Sub 选择WORD文档的指定表格整体（）wdWORD.Visible = True 窗口可见wdWORD.ActiveDocument.Tables（1）.Select 选择整个表格wdWORD.ActiveDocument.Tables（1）.Range.Select wdWORD.Quit 关闭新建文档窗口选定一个单元格Sub 选择WORD表格的第一个单元格（）Set wdBG = wdWORD.ActiveDocument.Tables（1） 创建表格对象wdBG.Cell（1, 1）.Select 选择第一个单元格wdBG.Cell（1, 1）

4、.Range.Select Set wdBG = Nothing 选定表格最后一个单元格Sub 选择WORD表格的最后一个单元格（）hs = wdWORD.ActiveDocument.Tables（1）.Rows.Count ls = wdWORD.ActiveDocument.Tables（1）.Columns.Count wdBG.Cell（hs, ls）.Range.Select 选择最后一个单元格注意：一个表格的最后一个单元格由表格的最后一行hs和最后一列ls围成的一个方格。所以表格最后一个单元格的代码格式是.Cell（hs,ls）。选定指定行/列Sub 选择WORD表格指定行（）w

5、dWORD.ActiveDocument.Tables（1）.Rows（3）.Select 选择第3行wdWORD.ActiveDocument.Tables（1）.Rows（3）.Range.Select Sub 选择WORD表格指定列（）wdWORD.ActiveDocument.Tables（1）.Columns（3）.Select 选择第3列【提示】选择最后一行wdWORD.ActiveDocument.Tables（1）.Rows（hs）.Select选择最后一列wdWORD.ActiveDocument.Tables（1）.Columns（ls）.Select选定WORD表格中任意

6、连续区域选择连续行Sub 选择WORD表格指定的连续行（）Set wDoc = wdWORD.Documents.Open（dqM） Set wBG = wDoc.Tables（1） 定义表格变量wDoc.Range（wBG.Cell（2, 1）.Range.Start, wBG.Cell（wBG.Rows.Count, wBG.Columns.Count）.Range.End）.Select 选择第2行到最后一行Set wBG = Nothing Set wDoc = Nothing 选择任意列Sub 选择WORD表格任意指定的连续列（）wDoc.Range（wBG.Cell（1, 4）.R

7、ange.Start, wBG.Cell（wBG.Rows.Count, 7）.Range.End）.Select 选择第4列到第7列说明：列没有Range对象属性。所以在选择连续列时不能使用如下代码：wDoc.Range（wBG.Columns（4）.Range.Start, wBG.Columns（7）.Range.End）.Select 选择任意连续单元格区域Sub 选择WORD表格任意指定的连续单元格区域（）wDoc.Range（wBG.Cell（5, 4）.Range.Start, wBG.Cell（7, 7）.Range.End）.Select 选择第5行4列到第7行7列构成的单元

8、格区域【小结】选择WORD表格中的任意连续区域，关键是确定起始位置和终止位置。选择任意连续单元格区域的关键代码格式如下：文档对象.Range（表格对象.Cell（起始行, 起始列）.Range.Start, 表格对象.Cell（终止行, 终止列）.Range.End）.Select4设置WORD表格的单元格格式设置WORD表格的单元格格式，包括单元格中的文本对齐格式和文字的字体、字号、是否加粗等格式。WORD表格单元格中的文本的对齐格式，是指段落在水平方向的对齐方式和在垂直方向的对齐方式。所以在设置单元格的对齐方式时，一要设置单元格中的文本段落在水平方向的对齐方式即左对齐、居中、右对齐，二要设

9、置文本在垂直方向的对齐方式即靠上、居中、靠下。【问题】以WORD文档“成绩表.doc”为例，设置标题行各单元格数据“中部居中（即水平居中且垂直居中）”、“华文新魏”、字号“12”、“加粗”。Sub 设置WORD表格的单元格格式（）With wdBG.Rows（1）.Range 表格第1行 .Font.Bold = True 加粗 .Font.Size = 12 字号 .Font.Name = 华文新魏字体 .ParagraphFormat.Alignment = 1 水平居中 .Cells.VerticalAlignment = 1 垂直居中End With单元格数据居中即WORD程序菜单命令

10、“表格/单元格对齐方式”的“中部居中”，指水平居中和垂直居中。代码如下：水平居中单元格对象.ParagraphFormat.Alignment = 1垂直居中单元格对象.Cells.VerticalAlignment = 1单元格对齐方式常量一览表名称常量代码赋值靠上两端对齐wdAlignParagraphJustify 3wdCellAlignVerticalTop靠上居中wdAlignParagraphCenter1靠上右对齐wdAlignParagraphRight2中部两端对齐wdAlignParagraphJustifywdCellAlignVerticalCenter中部居中中部右

11、对齐靠下两端对齐wdCellAlignVerticalBottom靠下居中靠下右对齐注意哦，表中的常量代码，在EXCEL中操作WORD时，由于后期绑定原因，必须用对应的赋值取代方可体现效果！5设置WORD表格的对齐格式在WORD文档中的表格对齐，主要是指表格在页面水平方向的对齐，即左对齐、居中、右对齐。对应WORD程序菜单命令“表格/表格属性/表格”中的三种对齐方式。Sub 设置WORD文档中的表格对齐（）放假通知.docdkDOC.Tables（1）.Rows.Alignment = 1 6在WORD表格中插入（删除）行/列插入行/列与当前操作的EXCEL文件保存在同一位置的WORD文档“放

12、假通知.doc”中，第一个表格有2行10列，在表格选定行的上/下方或者左/右侧插入新行/列（一行/列或多行/列）。在指定行的上/下插入行Sub 在指定行的上下插入行（）Set wApp = CreateObject（）创建WORD对象Set wDoc = wApp.documents.Open（dqM） wApp.Visible = True wDoc.Tables（1）.Rows（2）.Select 选择指定行（第2行，可以根据表格实际行数修改此数字值）wDoc.Application.Selection.InsertRowsAbove 3 指定行上方插入3行wDoc.Application

13、.Selection.InsertRowsBelow 3 指定行下方插入3行Zh = wDoc.Tables（1）.Rows.Count 计算插入新行后的表格总行数MsgBox 成功新插入 3 行, 当前表格共有 Zh & 行在指定列的上下插入行wDoc.Close TruewApp.QuitSet wApp = NothingSet wDoc = NothingwDoc.Application.Selection.InsertRowsAbove 3在所选择行的上方新插入3行。如果执行代码wDoc.Application.Selection.InsertRowsBelow 3，则是在所选择行的下方新插入3行。在指定列的左/右插入列Sub在指定列的左右插入列（）wApp.Visible = T