在EXCEL中用VBA处理WORD表格常规属性

1、在EXCEL中用VBA设置WORD表格常规属性编辑：madmlwt1计算WORD文档中的表格个数【要求】在EXCEL中用VBA计算指定的WORD文档“成绩表.doc”中非嵌入式表格的个数。【代码】Sub 计算WORD表格个数()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量

2、Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象 '当前文档中的表格总数dkDOC.Close '关闭文档Set dkDOC = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间MsgBox Chr(10) & Dir(dqM) & " 文档中共有 " & bgS & " 个表格！", , "计算WORD表格个数"Application.ScreenUpdating = False

3、'关闭屏幕刷新End Sub提示：嵌入式表格如WORD文档中插入的EXCEL表格、表格中插入的表格。计算表格个数的代码格式文档对象. Tables.Count上述方法不能计算WORD文档中的嵌入式表格个数。2计算WORD文档中各个表格的行/列数【要求】在EXCEL中，遍历WORD文档“成绩表.doc”中的表格，计算表格的行数和列数。【代码】Sub 计算指定WORD文档中表格行列数()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路

4、径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象bgS = dkDOC.Tables.Count '当前文档中的表格总数For g = 1 To bgS '循环表格 With dkDOC.Tables(g) '逐个表格计算 hs = .Rows.Count '行数 ls = .Columns.Count '列数 MsgBox Chr(10)

5、 & Dir(dqM) & " 文档共有表格 " & bgS & " 个" _ & Chr(10) & Chr(10) & "第 " & g & " 个表格有 " & hs & " 行 " & ls & " 列", , "计算WORD表格行列数" '计算信息提示 End WithNext gdkDOC.Close '关闭文档Set dkD

6、OC = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub提示：计算行数代码格式文档对象.表格对象.Rows.Count计算列数代码格式文档对象.表格对象.Columns.Count上述方法不能计算嵌入式表格的行/列数。3选定WORD表格的指定区域选定整个表格【代码】Sub 选择WORD文档的指定表格整体()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.

7、Path & "成绩表.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible = True '窗口可见'wdWORD.ActiveDocument.Tables(1).Select '选择整个表格wdWORD.ActiveDocument.Tables(1).Range.Selec

8、t '选择整个表格'wdWORD.Quit '关闭新建文档窗口Set dkDOC = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub选定一个单元格【代码】Sub 选择WORD表格的第一个单元格()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD

9、文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible = True '窗口可见Set wdBG = wdWORD.ActiveDocument.Tables(1) '创建表格对象wdBG.Cell(1, 1).Select '选择第一个单元格'wdBG.Cell(1, 1).Range.Select '选择第一个单元格'

10、wdWORD.Quit '关闭新建文档窗口Set wdBG = Nothing '释放存储空间Set dkDOC = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub选定表格最后一个单元格【代码】Sub 选择WORD表格的最后一个单元格()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc&qu

11、ot; '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象hs = wdWORD.ActiveDocument.Tables(1).Rows.Count '行数ls = wdWORD.ActiveDocument.Tables(1).Columns.Count '列数wdWORD.Visible = True '窗口可见Set wdBG = w

12、dWORD.ActiveDocument.Tables(1) '创建表格对象wdBG.Cell(hs, ls).Range.Select '选择最后一个单元格'wdWORD.Quit '关闭新建文档窗口Set wdBG = Nothing '释放存储空间Set dkDOC = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub注意：一个表格的最后一个单元格由表格的最后一行hs和最后一列ls围成的一个

13、方格。所以表格最后一个单元格的代码格式是.Cell(hs,ls)。选定指定行/列【代码】Sub 选择WORD表格指定行()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdW

14、ORD.Visible = True '窗口可见wdWORD.ActiveDocument.Tables(1).Rows(3).Select '选择第3行'wdWORD.ActiveDocument.Tables(1).Rows(3).Range.Select '选择第3行'wdWORD.Quit '关闭新建文档窗口Set dkDOC = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End SubS

15、ub 选择WORD表格指定列()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible = True '窗口可见wdWORD.ActiveDocu

16、ment.Tables(1).Columns(3).Select '选择第3列'wdWORD.Quit '关闭新建文档窗口Set dkDOC = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub【提示】选择最后一行hs = wdWORD.ActiveDocument.Tables(1).Rows.Count '行数wdWORD.ActiveDocument.Tables(1).Rows(hs).Selec

17、t选择最后一列ls = wdWORD.ActiveDocument.Tables(1).Columns.Count '列数wdWORD.ActiveDocument.Tables(1).Columns(ls).Select选定WORD表格中任意连续区域选择连续行【代码】Sub 选择WORD表格指定的连续行()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD文件名称Set wdWORD = CreateObject(&q

18、uot;Word.Application") '定义一个Word对象变量Set wDoc = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible = True '窗口可见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行到最后一行'wdWORD.Quit '关

19、闭新建文档窗口Set wBG = Nothing '释放存储空间Set wDoc = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub选择任意列【代码】Sub 选择WORD表格任意指定的连续列()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD文件名称Set w

20、dWORD = CreateObject("Word.Application") '定义一个Word对象变量Set wDoc = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible = True '窗口可见Set wBG = wDoc.Tables(1) '定义表格变量nt, 7).Range.End).Select '选择第4列到第7列'wdWORD.Quit '关闭新建文档窗口Set wBG = Nothing '释放存储空间Set wDoc = Nothing

21、 '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub说明：列没有Range对象属性。所以在选择连续列时不能使用如下代码：wDoc.Range(wBG.Columns(4).Range.Start, wBG.Columns(7).Range.End).Select '选择第4列到第7列选择任意连续单元格区域【代码】Sub 选择WORD表格任意指定的连续单元格区域()Application.ScreenUpdating = False '关闭

22、屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量Set wDoc = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible = True '窗口可见Set wBG = wDoc.Tables(1) '定义表格变量wDoc.Range(wBG.Cell(5, 4).Range.Start, w

23、BG.Cell(7, 7).Range.End).Select '选择第5行4列到第7行7列构成的单元格区域'wdWORD.Quit '关闭新建文档窗口Set wBG = Nothing '释放存储空间Set wDoc = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub【小结】选择WORD表格中的任意连续区域，关键是确定起始位置和终止位置。选择任意连续单元格区域的关键代码格式如下：文档对象.Range(

24、表格对象.Cell(起始行, 起始列).Range.Start, 表格对象.Cell(终止行, 终止列).Range.End).Select4设置WORD表格的单元格格式设置WORD表格的单元格格式，包括单元格中的文本对齐格式和文字的字体、字号、是否加粗等格式。WORD表格单元格中的文本的对齐格式，是指段落在水平方向的对齐方式和在垂直方向的对齐方式。所以在设置单元格的对齐方式时，一要设置单元格中的文本段落在水平方向的对齐方式即左对齐、居中、右对齐，二要设置文本在垂直方向的对齐方式即靠上、居中、靠下。【问题】以WORD文档“成绩表.doc”为例，设置标题行各单元格数据“中部居中(即水平居中且垂直

25、居中)”、“华文新魏”、字号“12”、“加粗”。【代码】Sub 设置WORD表格的单元格格式()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible =

26、 True '窗口可见Set wdBG = wdWORD.ActiveDocument.Tables(1) '创建表格对象With wdBG.Rows(1).Range '表格第1行 .Font.Bold = True '加粗 .Font.Size = 12 '字号 .Font.Name = "华文新魏" '字体 .ParagraphFormat.Alignment = 1 '水平居中 .Cells.VerticalAlignment = 1 '垂直居中End With'wdWORD.Quit '

27、;关闭新建文档窗口Set wdBG = Nothing '释放存储空间Set dkDOC = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub说明：单元格数据居中即WORD程序菜单命令“表格/单元格对齐方式”的“中部居中”，指水平居中和垂直居中。代码如下：水平居中单元格对象.ParagraphFormat.Alignment = 1垂直居中单元格对象.Cells.VerticalAlignment = 1单元格对齐方式常量一览表

28、名称常量代码赋值靠上两端对齐wdAlignParagraphJustify 3wdCellAlignVerticalTop0靠上居中wdAlignParagraphCenter1wdCellAlignVerticalTop0靠上右对齐wdAlignParagraphRight2wdCellAlignVerticalTop0中部两端对齐wdAlignParagraphJustify3wdCellAlignVerticalCenter1中部居中wdAlignParagraphCenter1wdCellAlignVerticalCenter1中部右对齐wdAlignParagraphRight2wd

29、CellAlignVerticalCenter1靠下两端对齐wdAlignParagraphJustify3wdCellAlignVerticalBottom3靠下居中wdAlignParagraphCenter1wdCellAlignVerticalBottom3靠下右对齐wdAlignParagraphRight2wdCellAlignVerticalBottom3注意哦，表中的常量代码，在EXCEL中操作WORD时，由于后期绑定原因，必须用对应的赋值取代方可体现效果！5设置WORD表格的对齐格式在WORD文档中的表格对齐，主要是指表格在页面水平方向的对齐，即左对齐、居中、右对齐。对应WO

30、RD程序菜单命令“表格/表格属性/表格”中的三种对齐方式。【代码】Sub 设置WORD文档中的表格对齐()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Vis

31、ible = True '窗口可见dkDOC.Tables(1).Rows.Alignment = 1 '水平居中'wdWORD.Quit '关闭新建文档窗口Set dkDOC = Nothing '释放存储空间Set wdWORD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub6在WORD表格中插入(删除)行/列插入行/列【问题】与当前操作的EXCEL文件保存在同一位置的WORD文档“放假通知.doc”中，第一个表格有2行10列，在表格选定行的上/下方

32、或者左/右侧插入新行/列(一行/列或多行/列)。在指定行的上/下插入行【代码】Sub 在指定行的上下插入行()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '带路径的WORD文件名称Set wApp = CreateObject("Word.Application")'创建WORD对象Set wDoc = wApp.documents.Open(dqM) '创建文档对象wApp.Visible = Tru

33、e '窗口可见wDoc.Tables(1).Rows(2).Select '选择指定行(第2行，可以根据表格实际行数修改此数字值)Above 3 '指定行上方插入3行'Below 3 '指定行下方插入3行Zh = wDoc.Tables(1).Rows.Count '计算插入新行后的表格总行数MsgBox "成功新插入 3 行, 当前表格共有 " & Zh & " 行", , "在指定列的上下插入行"'wDoc.Close True'wApp.QuitSe

34、t wApp = NothingSet wDoc = NothingApplication.ScreenUpdating = False '关闭屏幕刷新End Sub说明：Above 3在所选择行的上方新插入3行。如果执行代码owsBelow 3，则是在所选择行的下方新插入3行。在指定列的左/右插入列【代码】Sub在指定列的左右插入列()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '带路径的WORD文件名称Set wApp = C

35、reateObject("Word.Application")'创建WORD对象Set wDoc = wApp.documents.Open(dqM) '创建文档对象wApp.Visible = True '窗口可见Set myB = wDoc.Tables(1) '表格对象wDoc.Tables(1)表格行 = myB.Rows.Count '总行数表格列 = myB.Columns.Count '总列数wDoc.Range(myB.Cell(1, Cells(2, 10).Value).Range.Start, myB.C

36、ell(表格行, Cells(2, 11).Value).Range.End).Select '选择插入位置列crL = myB.Selection.Columns.Count '计算所选择的列数wDoc.Application.Selection.InsertColumns '指定行左侧插入行'wDoc.Application.Selection.InsertColumnsRight '指定行右侧插入行End IfzL = wDoc.Tables(1).Columns.Count '计算插入新列后的表格总列数MsgBox "成功新插入

37、 " & zL-表格列 & " 列, 当前表格共有 " & zL & " 列", , "插入新列"'wDoc.Close True'wApp.QuitSet wApp = NothingSet wDoc = NothingApplication.ScreenUpdating = False '关闭屏幕刷End Sub说明：选择列左侧插入新列InsertColumns选择列右侧插入新列InsertColumnsRight选择多少列则插入多少新列。特别地，还可以用Add方法

38、进行插入行/列，但这种方法只能在上方或左侧接入，不具备灵活性，此处不作讨论。删除行/列【问题】与当前操作的EXCEL文件保存在同一位置的WORD文档“放假通知.doc”中，第一个表格有2行10列，在表格中删除选定的行列。删除行【代码】Sub 删除表格中选定的行()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '带路径的WORD文件名称Set wApp = CreateObject("Word.Application")

39、'创建WORD对象Set wDoc = wApp.documents.Open(dqM) '创建文档对象wApp.Visible = True '窗口可见Set myB = wDoc.Tables(1) '表格对象表格行 = myB.Rows.Count '总行数wDoc.Range(myB.Rows(2).Range.Start, myB.Rows(2).Range.End).Select '选择要删除的第2行wDoc.Application.Selection.Rows.Delete '删除选中的行zH = wDoc.Tables(1

40、).Rows.Count '计算删除行后的表格总行数MsgBox "成功删除了选定的 " & 表格行 - zH & " 行, 当前表格还有 " & zH & " 行", , "删除行"'wDoc.Close True'wApp.QuitSet wApp = NothingSet wDoc = NothingApplication.ScreenUpdating = False '关闭屏幕刷新End Sub删除列【代码】Sub 删除表格中选定的列()App

41、lication.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '带路径的WORD文件名称Set wApp = CreateObject("Word.Application") '创建WORD对象Set wDoc = wApp.documents.Open(dqM) '创建文档对象wApp.Visible = True '窗口可见Set myB = wDoc.Tables(1) '表格对象表格行 = myB.Ro

42、ws.Count '总行数表格列 = myB.Columns.Count '总列数wDoc.Range(myB.Cell(1, 2).Range.Start, myB.Cell(表格行, 4).Range.End).Select '选择删除的第2至4列wDoc.Application.Selection.Columns.Delete '删除选中的列zL = wDoc.Tables(1).Columns.Count '计算删除列后的表格列数MsgBox "成功删除了选定的 " & 表格列 - zL & " 列,

43、 当前表格还有 " & zL & " 列", , "删除列"'wDoc.Close True'wApp.QuitSet wApp = NothingSet wDoc = NothingApplication.ScreenUpdating = False '关闭屏幕刷新End Sub7设置表格行高列宽【问题】设置WORD文档“行高列宽.doc”中表格的行高25磅和列宽36磅，标题行高另设30磅。【代码】Sub 设置表格行高列宽()Application.ScreenUpdating = False '

44、;关闭屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量后期绑定Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible = True '窗口可见Set myB = dkDOC.Tables(1) '表格对象hs = myB.Rows.Count '总行数ls =

45、 myB.Columns.Count '总列数With myB For h = 1 To hs If h = 1 Then .Rows(1).Height = 30 '第一行高 ElseIf h > 1 Then .Rows(h).Height = 25 '行高 End If Next h For l = 1 To ls .Columns(l).PreferredWidth = 36 '列宽 Next lEnd With'wdWORD.Quit '关闭新建文档窗口Set dkDOC = Nothing '释放存储空间Set wdWO

46、RD = Nothing '释放存储空间Application.ScreenUpdating = False '关闭屏幕刷新End Sub说明：在WORD表格中，常用厘米为单位设置行高列宽。但在VBA代码中则需要把厘米转换成磅值。1磅=0.035厘米。比如设置行高30磅(即行高1.05厘米)的代码如下：用磅设置.Rows(1).Height = 30用厘米设置.Rows(1).Height = Application.CentimetersToPoints(1.05)CentimetersToPoints将计量单位从厘米转换为磅。8自动调整WORD表格的列宽【问题】在WORD文

47、档“成绩表.doc”中，根据表格内容自动调整列的宽度。【代码】Sub 根据表格内容自动调整列宽()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量后期绑定Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visi

48、ble = True '窗口可见gs = dkDOC.Tables.Count '表格个数For s = 1 To gs '从第一个表格循环到最后一个表格 Set myB = dkDOC.Tables(s) '表格对象 myB.AutoFitBehavior (1) '根据内容自动调整列宽Next s'dkDOC.SaveAs'保存文档修改'dkDOC.Close'关闭文档'wdWORD.Quit '关闭新建文档窗口Set myB = Nothing '释放存储空间Set dkDOC = Nothi

49、ngSet wdWORD = NothingApplication.ScreenUpdating = False '关闭屏幕刷新End Sub说明：代码myB.AutoFitBehavior (1) 中的数值1，是根据表格内容自动调整列宽的常量设置值，即1=wdAutoFitContent。根据表格内容自动调整列宽是指表格中所有数据，以列中最大字符宽度来调整该列宽。9设置表格标题行自动重复【问题】在WORD文档“成绩表.doc”中，对跨页表格设置标题行重复(即一个表格如果有几个页面，则每个页面都显示相同的标题行)。【代码】Sub WORD表格标题行重复()Application.Scr

50、eenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" '带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量后期绑定Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible = True '窗口可见gs = dkDOC.Tables.Count '表格个数For s = 1 T

51、o gs '从第一个表格循环到最后一个表格 Set myB = dkDOC.Tables(s) '表格对象 myB.Rows(1).Select '选择表格标题行 dkDOC.Application.Selection.Rows.HeadingFormat = True '行标题重复Next s'dkDOC.SaveAs'保存文档修改'dkDOC.Close'关闭文档'wdWORD.Quit '关闭新建文档窗口Set myB = Nothing '释放存储空间Set dkDOC = NothingSet w

52、dWORD = NothingApplication.ScreenUpdating = False '关闭屏幕刷新End Sub说明：如果直接在WORD文档中，选定表格标题行，运行代码Selection.Rows.HeadingFormat =wdToggle即可达到标题行重复(重复执行则撤销标题行重复)。当然代码Selection.Rows.HeadingFormat = True 亦可标题行重复，True用False替换则是撤销标题行重复。10设置WORD表格的边框格式表格边框WORD表格边框分为外边框和内边框，其边框设置代码格式如下：内边框线文档表格对象.InsideLineSt

53、yle=线型常量值外边框线文档表格对象.OutsideLineStyle =线型常量值边框类型边框类型常量列表一览表常量名称值wdBorderLeft左边框线-2wdBorderRight右边框线-4wdBorderTop顶端边框线-1wdBorderBottom底端边框线-3wdBorderHorizontal水平边框线-5wdBorderVertical垂直边框线-6wdBorderDiagonalDown向下对角线（左上右下）-7wdBorderDiagonalUp向上对角线（左下右上）-8边框线型设置边框线型设置值为True_默认边框线、值为False_没有边框线，否则可以设置为如下边

54、框线型常量之一。边框线型设置常量一览表常量名称值wdLineStyleDashDot连续单点划线5wdLineStyleDashDotDot连续双点划线6wdLineStyleDashDotStroked连续单点皱褶线20wdLineStyleDashLargeGap连续长划线4wdLineStyleDashSmallGap连续短划线3wdLineStyleDot点线2wdLineStyleDouble双细实线7wdLineStyleDoubleWavy双波浪线19wdLineStyleEmboss3D浮雕3D(阴影上)21wdLineStyleEngrave3D雕刻3D(阴影下)22wdLi

55、neStyleInset单细实线24wdLineStyleNone无线(没有)0wdLineStyleOutset默认细实线23wdLineStyleSingle单细实线1wdLineStyleSingleWavy单波浪线18wdLineStyleThickThinLargeGap厚簿大间隙双线16wdLineStyleThickThinMedGap厚簿标准间隙双线13wdLineStyleThickThinSmallGap厚簿小间隙双线10wdLineStyleThinThickLargeGap簿厚大间隙双线15wdLineStyleThinThickMedGap簿厚大间隙细实线双线12wd

56、LineStyleThinThickSmallGap簿厚小间隙双线9wdLineStyleThinThickThinLargeGap簿厚簿大间隙三线17wdLineStyleThinThickThinMedGap簿厚簿标准间隙三线14wdLineStyleThinThickThinSmallGap簿厚簿小间隙三线11wdLineStyleTriple三细实线8表格边框设置【代码】Sub 设置表格边框()Application.ScreenUpdating = False '关闭屏幕刷新dqM = ThisWorkbook.Path & "成绩表.doc" &

57、#39;带路径的WORD文件名称Set wdWORD = CreateObject("Word.Application") '定义一个Word对象变量后期绑定Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象wdWORD.Visible = True '窗口可见gs = dkDOC.Tables.Count '表格个数For s = 1 To gs '从第一个表格循环到最后一个表格Selection. Set myB = dkDOC.Tables(s) '表格对象 With myB.B

58、orders .InsideLineStyle = 24 '内部单线 .OutsideLineStyle = 10 '粗细小间隙双线 End WithNext s'dkDOC.SaveAs'保存文档修改'dkDOC.Close'关闭文档'wdWORD.Quit '关闭新建文档窗口Set myB = Nothing '释放存储空间Set dkDOC = NothingSet wdWORD = NothingApplication.ScreenUpdating = False '关闭屏幕刷新End Sub说明：本事例是对表格边框的常规设置方法。如果需要对表格边框四边及内部(水平、垂直)单独个性设置，可以按边框类型进行单独设置。如对边框四边的左边框线进行设置，代码及格式如下：With 文档表格对象.Borders(wdBorderLeft) .LineStyle=wdLineStyleThinThickSmallGap'线型.LineWidth=wdLineWidth300pt'线宽.Color=wdColorAutomatic'颜色End With其中wdBorderLeft为边框类型常量、wdLineStyleThinThickSmallG