1、VBA在EXCEL中操作WORD表格之五 第 25 頁 共 25 頁在EXCEL中用VBA設置WORD表格常規屬性編輯：madmlwt1計算WORD文檔中的表格個數【要求】在EXCEL中用VBA計算指定的WORD文檔“成績表.doc”中非嵌入式表格的個數?！敬a】Sub 計算WORD表格個數()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的WORD文件名稱Set wdWORD = CreateObject("Word.Ap

2、plication") '定義一個Word對象變量Set dkDOC = wdWORD.Documents.Open(dqM) '創建文檔對象bgS = dkDOC.Tables.Count '當前文檔中的表格總數dkDOC.Close '關閉文檔Set dkDOC = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間MsgBox Chr(10) & Dir(dqM) & " 文檔中共有 " & bgS & " 個表格！", ,

3、 "計算WORD表格個數"Application.ScreenUpdating = False '關閉屏幕刷新End Sub提示：嵌入式表格如WORD文檔中插入的EXCEL表格、表格中插入的表格。計算表格個數的代碼格式文檔對象. Tables.Count上述方法不能計算WORD文檔中的嵌入式表格個數。2計算WORD文檔中各個表格的行/列數【要求】在EXCEL中，遍歷WORD文檔“成績表.doc”中的表格，計算表格的行數和列數。【代碼】Sub 計算指定WORD文檔中表格行列數()Application.ScreenUpdating = False '關閉屏幕刷

4、新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的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 = .Row

5、s.Count '行數 ls = .Columns.Count '列數 MsgBox Chr(10) & Dir(dqM) & " 文檔共有表格 " & bgS & " 個" _ & Chr(10) & Chr(10) & "第 " & g & " 個表格有 " & hs & " 行 " & ls & " 列", , "計算WORD表格行列數&qu

6、ot; '計算信息提示 End WithNext gdkDOC.Close '關閉文檔Set dkDOC = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間Application.ScreenUpdating = False '關閉屏幕刷新End Sub提示：計算行數代碼格式文檔對象.表格對象.Rows.Count計算列數代碼格式文檔對象.表格對象.Columns.Count上述方法不能計算嵌入式表格的行/列數。3選定WORD表格的指定區域選定整個表格【代碼】Sub 選擇WORD文檔的指定表格整體()Applica

7、tion.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的WORD文件名稱Set wdWORD = CreateObject("Word.Application") '定義一個Word對象變量Set dkDOC = wdWORD.Documents.Open(dqM) '創建文檔對象wdWORD.Visible = True '窗口可見'wdWORD.ActiveDocument.Tables(1).Sel

8、ect '選擇整個表格wdWORD.ActiveDocument.Tables(1).Range.Select '選擇整個表格'wdWORD.Quit '關閉新建文檔窗口Set dkDOC = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間Application.ScreenUpdating = False '關閉屏幕刷新End Sub選定一個單元格【代碼】Sub 選擇WORD表格的第一個單元格()Application.ScreenUpdating = False '關閉屏幕刷新dqM =

9、 ThisWorkbook.Path & "成績表.doc" '帶路徑的WORD文件名稱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 '選擇

10、第一個單元格'wdBG.Cell(1, 1).Range.Select '選擇第一個單元格'wdWORD.Quit '關閉新建文檔窗口Set wdBG = Nothing '釋放存儲空間Set dkDOC = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間Application.ScreenUpdating = False '關閉屏幕刷新End Sub選定表格最后一個單元格【代碼】Sub 選擇WORD表格的最后一個單元格()Application.ScreenUpdating = False

11、 '關閉屏幕刷新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的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).Column

12、s.Count '列數wdWORD.Visible = True '窗口可見Set wdBG = wdWORD.ActiveDocument.Tables(1) '創建表格對象wdBG.Cell(hs, ls).Range.Select '選擇最后一個單元格'wdWORD.Quit '關閉新建文檔窗口Set wdBG = Nothing '釋放存儲空間Set dkDOC = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間Application.ScreenUpdating = Fal

13、se '關閉屏幕刷新End Sub注意：一個表格的最后一個單元格由表格的最后一行hs和最后一列ls圍成的一個方格。所以表格最后一個單元格的代碼格式是.Cell(hs,ls)。選定指定行/列【代碼】Sub 選擇WORD表格指定行()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的WORD文件名稱Set wdWORD = CreateObject("Word.Application") '定義一個Wor

14、d對象變量Set dkDOC = wdWORD.Documents.Open(dqM) '創建文檔對象wdWORD.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 '釋放

15、存儲空間Application.ScreenUpdating = False '關閉屏幕刷新End SubSub 選擇WORD表格指定列()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的WORD文件名稱Set wdWORD = CreateObject("Word.Application") '定義一個Word對象變量Set dkDOC = wdWORD.Documents.Open(dqM) &

16、#39;創建文檔對象wdWORD.Visible = True '窗口可見wdWORD.ActiveDocument.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.C

17、ount '行數wdWORD.ActiveDocument.Tables(1).Rows(hs).Select選擇最后一列ls = wdWORD.ActiveDocument.Tables(1).Columns.Count '列數wdWORD.ActiveDocument.Tables(1).Columns(ls).Select選定WORD表格中任意連續區域選擇連續行【代碼】Sub 選擇WORD表格指定的連續行()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "成

18、績表.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(2, 1).Range.Start, wBG.Cell(wBG.Rows.Count, wBG.Columns.Count

19、).Range.End).Select '選擇第2行到最后一行'wdWORD.Quit '關閉新建文檔窗口Set wBG = Nothing '釋放存儲空間Set wDoc = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間Application.ScreenUpdating = False '關閉屏幕刷新End Sub選擇任意列【代碼】Sub 選擇WORD表格任意指定的連續列()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWork

20、book.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(1, 4).Range.Start, wBG.Cell(wBG.Rows.C

21、ount, 7).Range.End).Select '選擇第4列到第7列'wdWORD.Quit '關閉新建文檔窗口Set wBG = Nothing '釋放存儲空間Set wDoc = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間Application.ScreenUpdating = False '關閉屏幕刷新End Sub說明：列沒有Range對象屬性。所以在選擇連續列時不能使用如下代碼：wDoc.Range(wBG.Columns(4).Range.Start, wBG.Columns(

22、7).Range.End).Select '選擇第4列到第7列選擇任意連續單元格區域【代碼】Sub 選擇WORD表格任意指定的連續單元格區域()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的WORD文件名稱Set wdWORD = CreateObject("Word.Application") '定義一個Word對象變量Set wDoc = wdWORD.Documents.Open(dqM)

23、'創建文檔對象wdWORD.Visible = True '窗口可見Set wBG = wDoc.Tables(1) '定義表格變量wDoc.Range(wBG.Cell(5, 4).Range.Start, wBG.Cell(7, 7).Range.End).Select '選擇第5行4列到第7行7列構成的單元格區域'wdWORD.Quit '關閉新建文檔窗口Set wBG = Nothing '釋放存儲空間Set wDoc = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間App

24、lication.ScreenUpdating = False '關閉屏幕刷新End Sub【小結】選擇WORD表格中的任意連續區域，關鍵是確定起始位置和終止位置。選擇任意連續單元格區域的關鍵代碼格式如下：文檔對象.Range(表格對象.Cell(起始行, 起始列).Range.Start, 表格對象.Cell(終止行, 終止列).Range.End).Select4設置WORD表格的單元格格式設置WORD表格的單元格格式，包括單元格中的文本對齊格式和文字的字體、字號、是否加粗等格式。WORD表格單元格中的文本的對齊格式，是指段落在水平方向的對齊方式和在垂直方向的對齊方式。所以在設置單

25、元格的對齊方式時，一要設置單元格中的文本段落在水平方向的對齊方式即左對齊、居中、右對齊，二要設置文本在垂直方向的對齊方式即靠上、居中、靠下?！締栴}】以WORD文檔“成績表.doc”為例，設置標題行各單元格數據“中部居中(即水平居中且垂直居中)”、“華文新魏”、字號“12”、“加粗”?！敬a】Sub 設置WORD表格的單元格格式()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的WORD文件名稱Set wdWORD = CreateOb

26、ject("Word.Application") '定義一個Word對象變量Set dkDOC = wdWORD.Documents.Open(dqM) '創建文檔對象wdWORD.Visible = True '窗口可見Set wdBG = wdWORD.ActiveDocument.Tables(1) '創建表格對象With wdBG.Rows(1).Range '表格第1行 .Font.Bold = True '加粗 .Font.Size = 12 '字號 .Font.Name = "華文新魏"

27、; '字體 .ParagraphFormat.Alignment = 1 '水平居中 .Cells.VerticalAlignment = 1 '垂直居中End With'wdWORD.Quit '關閉新建文檔窗口Set wdBG = Nothing '釋放存儲空間Set dkDOC = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間Application.ScreenUpdating = False '關閉屏幕刷新End Sub說明：單元格數據居中即WORD程序菜單命令“表格/單元

28、格對齊方式”的“中部居中”，指水平居中和垂直居中。代碼如下：水平居中單元格對象.ParagraphFormat.Alignment = 1垂直居中單元格對象.Cells.VerticalAlignment = 1單元格對齊方式常量一覽表名稱常量代碼賦值靠上兩端對齊wdAlignParagraphJustify 3wdCellAlignVerticalTop0靠上居中wdAlignParagraphCenter1wdCellAlignVerticalTop0靠上右對齊wdAlignParagraphRight2wdCellAlignVerticalTop0中部兩端對齊wdAlignParagra

29、phJustify3wdCellAlignVerticalCenter1中部居中wdAlignParagraphCenter1wdCellAlignVerticalCenter1中部右對齊wdAlignParagraphRight2wdCellAlignVerticalCenter1靠下兩端對齊wdAlignParagraphJustify3wdCellAlignVerticalBottom3靠下居中wdAlignParagraphCenter1wdCellAlignVerticalBottom3靠下右對齊wdAlignParagraphRight2wdCellAlignVerticalBot

30、tom3注意哦，表中的常量代碼，在EXCEL中操作WORD時，由于后期綁定原因，必須用對應的賦值取代方可體現效果！5設置WORD表格的對齊格式在WORD文檔中的表格對齊，主要是指表格在頁面水平方向的對齊，即左對齊、居中、右對齊。對應WORD程序菜單命令“表格/表格屬性/表格”中的三種對齊方式?！敬a】Sub 設置WORD文檔中的表格對齊()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '帶路徑的WORD文件名稱Set wdWORD = Cr

31、eateObject("Word.Application") '定義一個Word對象變量Set dkDOC = wdWORD.Documents.Open(dqM) '創建文檔對象wdWORD.Visible = True '窗口可見dkDOC.Tables(1).Rows.Alignment = 1 '水平居中'wdWORD.Quit '關閉新建文檔窗口Set dkDOC = Nothing '釋放存儲空間Set wdWORD = Nothing '釋放存儲空間Application.ScreenUpdati

32、ng = False '關閉屏幕刷新End Sub6在WORD表格中插入(刪除)行/列插入行/列【問題】與當前操作的EXCEL文件保存在同一位置的WORD文檔“放假通知.doc”中，第一個表格有2行10列，在表格選定行的上/下方或者左/右側插入新行/列(一行/列或多行/列)。在指定行的上/下插入行【代碼】Sub 在指定行的上下插入行()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '帶路徑的WORD文件名稱Set wApp = Cr

33、eateObject("Word.Application")'創建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.Selection.InsertRowsBelow 3

34、'指定行下方插入3行Zh = wDoc.Tables(1).Rows.Count '計算插入新行后的表格總行數MsgBox "成功新插入 3 行, 當前表格共有 " & Zh & " 行", , "在指定列的上下插入行"'wDoc.Close True'wApp.QuitSet wApp = NothingSet wDoc = NothingApplication.ScreenUpdating = False '關閉屏幕刷新End Sub說明：wDoc.Application.S

35、election.InsertRowsAbove 3在所選擇行的上方新插入3行。如果執行代碼wDoc.Application.Selection.InsertRowsBelow 3，則是在所選擇行的下方新插入3行。在指定列的左/右插入列【代碼】Sub在指定列的左右插入列()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '帶路徑的WORD文件名稱Set wApp = CreateObject("Word.Application&qu

36、ot;)'創建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.Cell(表格行, Cells(2, 11).Value).Range.En

37、d).Select '選擇插入位置列crL = myB.Selection.Columns.Count '計算所選擇的列數wDoc.Application.Selection.InsertColumns '指定行左側插入行'wDoc.Application.Selection.InsertColumnsRight '指定行右側插入行End IfzL = wDoc.Tables(1).Columns.Count '計算插入新列后的表格總列數MsgBox "成功新插入 " & zL-表格列 & " 列,

38、當前表格共有 " & zL & " 列", , "插入新列"'wDoc.Close True'wApp.QuitSet wApp = NothingSet wDoc = NothingApplication.ScreenUpdating = False '關閉屏幕刷End Sub說明：選擇列左側插入新列InsertColumns選擇列右側插入新列InsertColumnsRight選擇多少列則插入多少新列。特別地，還可以用Add方法進行插入行/列，但這種方法只能在上方或左側接入，不具備靈活性，此處不作討論

39、。刪除行/列【問題】與當前操作的EXCEL文件保存在同一位置的WORD文檔“放假通知.doc”中，第一個表格有2行10列，在表格中刪除選定的行列。刪除行【代碼】Sub 刪除表格中選定的行()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "放假通知.doc" '帶路徑的WORD文件名稱Set wApp = CreateObject("Word.Application") '創建WORD對象Set wDoc = wApp.document

40、s.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).Rows.Count '計算刪除行后的表格總行數MsgBox

41、"成功刪除了選定的 " & 表格行 - zH & " 行, 當前表格還有 " & zH & " 行", , "刪除行"'wDoc.Close True'wApp.QuitSet wApp = NothingSet wDoc = NothingApplication.ScreenUpdating = False '關閉屏幕刷新End Sub刪除列【代碼】Sub 刪除表格中選定的列()Application.ScreenUpdating = False '

42、關閉屏幕刷新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.Rows.Count '總行數表格列 = myB.Columns.Co

43、unt '總列數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 & " 列, 當前表格還有 " & zL & "

44、列", , "刪除列"'wDoc.Close True'wApp.QuitSet wApp = NothingSet wDoc = NothingApplication.ScreenUpdating = False '關閉屏幕刷新End Sub7設置表格行高列寬【問題】設置WORD文檔“行高列寬.doc”中表格的行高25磅和列寬36磅，標題行高另設30磅。【代碼】Sub 設置表格行高列寬()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path &

45、"放假通知.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 = myB.Columns.Count '總列數With myB F

46、or 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 wdWORD = Nothing '釋放存儲空間Application.S

47、creenUpdating = 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文檔“成績表.doc”中，根據表格內容自動調整列的寬度?！敬a】Sub 根據

48、表格內容自動調整列寬()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的WORD文件名稱Set wdWORD = CreateObject("Word.Application") '定義一個Word對象變量后期綁定Set dkDOC = wdWORD.Documents.Open(dqM) '創建文檔對象wdWORD.Visible = True '窗口可見gs = dkDOC.Tables

49、.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 = NothingSet wdWORD = NothingApplication.Scr

50、eenUpdating = False '關閉屏幕刷新End Sub說明：代碼myB.AutoFitBehavior (1) 中的數值1，是根據表格內容自動調整列寬的常量設置值，即1=wdAutoFitContent。根據表格內容自動調整列寬是指表格中所有數據，以列中最大字符寬度來調整該列寬。9設置表格標題行自動重復【問題】在WORD文檔“成績表.doc”中，對跨頁表格設置標題行重復(即一個表格如果有幾個頁面，則每個頁面都顯示相同的標題行)?！敬a】Sub WORD表格標題行重復()Application.ScreenUpdating = False '關閉屏幕刷新dqM =

51、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 To gs '從第一個表格循環到最后一個表格 Set myB = d

52、kDOC.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 wdWORD = NothingApplication.ScreenUpda

53、ting = False '關閉屏幕刷新End Sub說明：如果直接在WORD文檔中，選定表格標題行，運行代碼Selection.Rows.HeadingFormat =wdToggle即可達到標題行重復(重復執行則撤銷標題行重復)。當然代碼Selection.Rows.HeadingFormat = True 亦可標題行重復，True用False替換則是撤銷標題行重復。10設置WORD表格的邊框格式表格邊框WORD表格邊框分為外邊框和內邊框，其邊框設置代碼格式如下：內邊框線文檔表格對象.InsideLineStyle=線型常量值外邊框線文檔表格對象.OutsideLineStyle

54、=線型常量值邊框類型邊框類型常量列表一覽表常量名稱值wdBorderLeft左邊框線-2wdBorderRight右邊框線-4wdBorderTop頂端邊框線-1wdBorderBottom底端邊框線-3wdBorderHorizontal水平邊框線-5wdBorderVertical垂直邊框線-6wdBorderDiagonalDown向下對角線（左上右下）-7wdBorderDiagonalUp向上對角線（左下右上）-8邊框線型設置邊框線型設置值為True_默認邊框線、值為False_沒有邊框線，否則可以設置為如下邊框線型常量之一。邊框線型設置常量一覽表常量名稱值wdLineStyleDa

55、shDot連續單點劃線5wdLineStyleDashDotDot連續雙點劃線6wdLineStyleDashDotStroked連續單點皺褶線20wdLineStyleDashLargeGap連續長劃線4wdLineStyleDashSmallGap連續短劃線3wdLineStyleDot點線2wdLineStyleDouble雙細實線7wdLineStyleDoubleWavy雙波浪線19wdLineStyleEmboss3D浮雕3D(陰影上)21wdLineStyleEngrave3D雕刻3D(陰影下)22wdLineStyleInset單細實線24wdLineStyleNone無線(沒

56、有)0wdLineStyleOutset默認細實線23wdLineStyleSingle單細實線1wdLineStyleSingleWavy單波浪線18wdLineStyleThickThinLargeGap厚簿大間隙雙線16wdLineStyleThickThinMedGap厚簿標準間隙雙線13wdLineStyleThickThinSmallGap厚簿小間隙雙線10wdLineStyleThinThickLargeGap簿厚大間隙雙線15wdLineStyleThinThickMedGap簿厚大間隙細實線雙線12wdLineStyleThinThickSmallGap簿厚小間隙雙線9wdL

57、ineStyleThinThickThinLargeGap簿厚簿大間隙三線17wdLineStyleThinThickThinMedGap簿厚簿標準間隙三線14wdLineStyleThinThickThinSmallGap簿厚簿小間隙三線11wdLineStyleTriple三細實線8表格邊框設置【代碼】Sub 設置表格邊框()Application.ScreenUpdating = False '關閉屏幕刷新dqM = ThisWorkbook.Path & "成績表.doc" '帶路徑的WORD文件名稱Set wdWORD = CreateOb

58、ject("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.Borders .InsideLineStyle = 24 '內部單

59、線 .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為邊框類型常量、