表格自定义格式方法.docVIP

自定义格式方法1.选中Tables.bas文件，然后鼠标右键选择用记事本打开，可以看到Tables.bas的源程序：Sub Tables() Dim oTable As Word.Table Dim firCell As Cell Application.ScreenUpdating = False For Each oTable In ActiveDocument.Tables oTable.Select With Selection.Tables(1) .TopPadding = CentimetersToPoints(0) .BottomPadding = CentimetersToPoints(0) .LeftPadding = CentimetersToPoints(0) .RightPadding = CentimetersToPoints(0) .Spacing = 0 .AllowPageBreaks = True .AllowAutoFit = False End With With Selection.Tables(1) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color = wdColorAutomatic End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color = wdColorAutomatic End With With .Borders(wdBorderHorizontal) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderVertical) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth150pt .DefaultBorderColor = wdColorAutomatic End With Selection.Tables(1).Rows.Alignment = wdAlignRowCenter Selection.Tables(1).PreferredWidthType = wdPreferredWidthPercent Selection.Tables(1).PreferredWidth = 100 Selection.Tables(1).Rows.WrapAroundText = False Selection.Rows.HeightRule = wdRowHeightAuto Selection.Rows.Height = CentimetersToPoints(0) Selection.Font.Size = 9 Selection.Font.Name = 宋体 Selection.Font.Name = Times New Roman Options.DefaultHighlightColorIndex = wdNoHighlight Selection.Range.HighlightColorIndex = wdNoHighlight Selection.Font.Color = wdColorAutomatic With Selection.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceExactly .LineSpacing = 12 .FirstLineIndent = CentimetersToPoints(0) .CharacterUnitFirstLineIndent = 0 .WordWrap = True End With Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow) Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow) Set firCell = oTable.Cell(1, 1) firCell.Select Selection.SelectRow Selection.Rows.HeadingFormat = True Next Application.ScreenUpdating = TrueEnd Sub这个函数主要由三部分组成：1选中每个表格（上面标红颜色的部分）For Each oTable In ActiveDocument.Tables oTable.Select2. 表格调整的固定格式（上面标黄颜色的部分）With Selection.Tables(1) .TopPadding = CentimetersToPoints(0) .BottomPadding = CentimetersToPoints(0) .LeftPadding = CentimetersToPoints(0) .RightPadding = CentimetersToPoints(0) .Spacing = 0 .AllowPageBreaks = True .AllowAutoFit = False End With With Selection.Tables(1) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color = wdColorAutomatic End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color = wdColorAutomatic End With With .Borders(wdBorderHorizontal) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderVertical) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth150pt .DefaultBorderColor = wdColorAutomatic End With Selection.Tables(1).Rows.Alignment = wdAlignRowCenter Selection.Tables(1).PreferredWidthType = wdPreferredWidthPercent Selection.Tables(1).PreferredWidth = 100 Selection.Tables(1).Rows.WrapAroundText = False Selection.Rows.HeightRule = wdRowHeightAuto Selection.Rows.Height = CentimetersToPoints(0) Selection.Font.Size = 9 Selection.Font.Name = 宋体 Selection.Font.Name = Times New Roman Options.DefaultHighlightColorIndex = wdNoHighlight Selection.Range.HighlightColorIndex = wdNoHighlight Selection.Font.Color = wdColorAutomatic With Selection.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceExactly .LineSpacing = 12 .FirstLineIndent = CentimetersToPoints(0) .CharacterUnitFirstLineIndent = 0 .WordWrap = True End With Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)3. 跨页表格标题行的重复（上面标绿颜色的部分）Set firCell = oTable.Cell(1, 1) firCell.Select Selection.SelectRow Selection.Rows.HeadingFormat = True如果想自定义的话，需要修改的只是：2. 表格调整的固定格式（上面标黄颜色的部分）这部分内容的修改我们可以通过Word录制宏的方法打造属于你自己的表格格式。我录制的表格格式的宏函数（在Word中录制）为:Sub 表格小五() 表格小五 宏 With Selection.Tables(1) .TopPadding = CentimetersToPoints(0) .BottomPadding = CentimetersToPoints(0) .LeftPadding = CentimetersToPoints(0) .RightPadding = CentimetersToPoints(0) .Spacing = 0 .AllowPageBreaks = True .AllowAutoFit = False End With With Selection.Tables(1) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color = wdColorAutomatic End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color = wdColorAutomatic End With With .Borders(wdBorderHorizontal) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderVertical) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth150pt .DefaultBorderColor = wdColorAutomatic End With Selection.Tables(1).Rows.Alignment = wdAlignRowCenter Selection.Tables(1).PreferredWidthType = wdPreferredWidthPercent Selection.Tables(1).PreferredWidth = 100 Selection.Tables(1).Rows.WrapAroundText = False Selection.Rows.HeightRule = wdRowHeightAuto Selection.Rows.Height = CentimetersToPoints(0) Selection.Font.Size = 9 Selection.Font.Name = 宋体 Selection.Font.Name = Times New