表格自定义格式方法

《表格自定义格式方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方自定义格式方法1.选中Tables.bas文件，然后鼠标右键选择用记事本打开，可以看到Tables.bas的源程序：SubTables()DimoTableAsWord.TableDimfirCellAsCellApplication.ScreenUpdating=FalseForEachoTableInActiveDocument.TablesoTable.SelectWithSelection.Tables(1).TopPadding=Ce

2、ntimetersToPoints(0).BottomPadding=CentimetersToPoints(0).LeftPadding=CentimetersToPoints(0).RightPadding=CentimetersToPoints(0).Spacing=0.AllowPageBreaks=True.AllowAutoFit=FalseEndWithWithSelection.Tables(1)With.Shading.Texture=wdTextureNone.ForegroundPatternColor=wdColorAutoma

3、tic.BackgroundPatternColor=wdColorAutomaticEndWith.Borders(wdBorderLeft).LineStyle=wdLineStyleNone.Borders(wdBorderRight).LineStyle=wdLineStyleNoneWith.Borders(wdBorderTop).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth150pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderB

4、ottom).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth150pt.Color=wdColorAutomaticEndWith----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方With.Borders(wdBorderHorizontal).LineStyle=wdLineStyleSingle.LineWidth=wdLineW

5、idth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderVertical).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWith.Borders(wdBorderDiagonalDown).LineStyle=wdLineStyleNone.Borders(wdBorderDiagonalUp).LineStyle=wdLineStyleNone.Borders.Shadow

6、=FalseEndWithWithOptions.DefaultBorderLineStyle=wdLineStyleSingle.DefaultBorderLineWidth=wdLineWidth150pt.DefaultBorderColor=wdColorAutomaticEndWithSelection.Tables(1).Rows.Alignment=wdAlignRowCenterSelection.Tables(1).PreferredWidthType=wdPreferredWidthPercentSelection.Tables(1

7、).PreferredWidth=100Selection.Tables(1).Rows.WrapAroundText=FalseSelection.Rows.HeightRule=wdRowHeightAutoSelection.Rows.Height=CentimetersToPoints(0)Selection.Font.Size=9Selection.Font.Name="宋体"Selection.Font.Name="TimesNewRoman"Options.DefaultHighlightColorIndex=wdNoHighlightS

8、election.Range.HighlightColorIndex=wdNoHighligh