表格跨页时底纹的处理

ywzx703

比如表格的上下边框是双横线，而其他内部与左右边框是虚线，我使用下面的代码给表格设置底纹时，跨页时，底纹是双横线，要怎么样才是虚线？

1. Sub 表格排版()
   
2.     Dim myTable As Table
   
3.     On Error Resume Next '忽略错误
   
4.     Application.ScreenUpdating = False '关闭屏幕更新
   
5.     For Each myTable In ActiveDocument.Tables
   
6.         If myTable.Range.Information(wdActiveEndPageNumber) > 3 Then
   
7.             With myTable
   
8.                 .PreferredWidthType = wdPreferredWidthPercent
   
9.                 .PreferredWidth = 100
   
10.                 .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    
11.                 .Rows.HeightRule = wdRowHeightAtLeast
    
12.                 .Rows.Height = CentimetersToPoints(0.6)
    
13.                 .Rows.LeftIndent = CentimetersToPoints(0)
    
14.                 .TopPadding = CentimetersToPoints(0)
    
15.                 .BottomPadding = CentimetersToPoints(0)
    
16.                 .LeftPadding = CentimetersToPoints(0.1)
    
17.                 .RightPadding = CentimetersToPoints(0.1)
    
18.                 .Spacing = 0
    
19.                 .AllowPageBreaks = True
    
20.                 .AllowAutoFit = True
    
21.                 With .Range.ParagraphFormat
    
22.                     .LineSpacingRule = wdLineSpaceMultiple
    
23.                     .LineSpacing = LinesToPoints(1)
    
24.                 End With
    
25.                 With .Range
    
26.                 .Font.NameFarEast = "宋体"
    
27.                 .Font.NameAscii = "Arial Narrow"
    
28.                 .Font.NameOther = "Arial Narrow"
    
29.                 .Font.Name = "Arial Narrow"
    
30.                 .Font.Size = 10
    
31.                 End With
    
32.                 With .Borders(wdBorderLeft)
    
33.                     .LineStyle = wdLineStyleDot
    
34.                     .LineWidth = wdLineWidth050pt
    
35.                     .Color = wdColorAutomatic
    
36.                 End With
    
37.                 With .Borders(wdBorderRight)
    
38.                     .LineStyle = wdLineStyleDot
    
39.                     .LineWidth = wdLineWidth050pt
    
40.                     .Color = wdColorAutomatic
    
41.                 End With
    
42.                 With .Borders(wdBorderTop)
    
43.                     .LineStyle = wdLineStyleDouble
    
44.                     .LineWidth = wdLineWidth050pt
    
45.                     .Color = wdColorAutomatic
    
46.                 End With
    
47.                 With .Borders(wdBorderBottom)
    
48.                     .LineStyle = wdLineStyleDouble
    
49.                     .LineWidth = wdLineWidth050pt
    
50.                     .Color = wdColorAutomatic
    
51.                 End With
    
52.                 With .Borders(wdBorderHorizontal)
    
53.                     .LineStyle = wdLineStyleDot
    
54.                     .LineWidth = wdLineWidth050pt
    
55.                     .Color = wdColorAutomatic
    
56.                 End With
    
57.                 With .Borders(wdBorderVertical)
    
58.                     .LineStyle = wdLineStyleDot
    
59.                     .LineWidth = wdLineWidth050pt
    
60.                     .Color = wdColorAutomatic
    
61.                 End With
    
62.                 .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    
63.                 .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    
64.                 .Borders.Shadow = False
    
65.             End With
    
66.             With Options
    
67.                 .DefaultBorderLineStyle = wdLineStyleDot
    
68.                 .DefaultBorderLineWidth = wdLineWidth050pt
    
69.                 .DefaultBorderColor = wdColorAutomatic
    
70.             End With
    
71.             Exit Sub
    
72.         End If
    
73.     Next
    
74.     Application.ScreenUpdating = True
    
75. End Sub

复制代码