word自动设置表格格式

在处理word时，经常会需要调整表格样式，工作比较繁琐，收集整理了自动设置表格格式的宏，代码如下：

Sub 设置表格格式()'功能：光标在表格中处理当前表格；否则处理所有表格！Application.ScreenUpdating = False  '关闭屏幕刷新Application.DisplayAlerts = False  '关闭提示On Error Resume Next  '忽略错误'***************************************************************************Dim mytable As Table, i As LongIf Selection.Information(wdWithInTable) = True Then i = 1For Each mytable In ActiveDocument.TablesIf i = 1 Then Set mytable = Selection.Tables(1)With mytable'取消底色.Style = "网格型".Shading.ForegroundPatternColor = wdColorAutomatic.Shading.BackgroundPatternColor = wdColorAutomatic.Shading.Texture = wdTextureNone '无底纹.Range.HighlightColorIndex = wdNoHighlight '去除高亮'单元格边距.TopPadding = PixelsToPoints(0, True) '设置上边距为0.BottomPadding = PixelsToPoints(0, True) '设置下边距为0.LeftPadding = PixelsToPoints(0, True)  '设置左边距为0.RightPadding = PixelsToPoints(0, True) '设置右边距为0.Spacing = PixelsToPoints(0, True) '允许单元格间距为0.AllowPageBreaks = True '允许断页'.AllowAutoFit = True '允许自动重调尺寸With .Rows.Alignment = wdAlignRowCenter '表水平居中.WrapAroundText = False '取消文字环绕.AllowBreakAcrossPages = False '不允许行断页.HeightRule = wdRowHeightExactly '行高设为最小值.Height = CentimetersToPoints(0) '上面缩进量为0.LeftIndent = CentimetersToPoints(0) '左面缩进量为0End WithWith .RangeWith .Font '字体格式.Name = "仿宋".Name = "仿宋".Size = 12.Bold = FalseEnd With.Cells.VerticalAlignment = wdCellAlignVerticalCenter  '单元格垂直居中With .ParagraphFormat '段落格式.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).SpaceBefore = 0.SpaceBeforeAuto = False.SpaceAfter = 0.SpaceAfterAuto = False.FirstLineIndent = CentimetersToPoints(0) '取消首行缩进.LineSpacingRule = wdLineSpaceSingle.Alignment = wdAlignParagraphCenter '单元格水平居中.WidowControl = False.KeepWithNext = False.KeepTogether = False.PageBreakBefore = False.NoLineNumber = False.Hyphenation = True.OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0 '取消首行缩进.LineUnitBefore = 0.LineUnitAfter = 0.MirrorIndents = False.TextboxTightWrap = wdTightNone.CollapsedByDefault = False.AutoAdjustRightIndent = False.DisableLineHeightGrid = True.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False '将活动文档第一段的行首标点符号改为半角字符.AddSpaceBetweenFarEastAndAlpha = False '设置为自动添加指定段落的日语和西文文字之间的空格.AddSpaceBetweenFarEastAndDigit = False.BaseLineAlignment = wdBaselineAlignAutoEnd WithEnd With'设置首行格式With .Rows.First.HeadingFormat = wdToggle '重复标题行.Range.Font.Bold = wdToggle.Shading.ForegroundPatternColor = wdColorAutomatic.Shading.BackgroundPatternColor = -570359809 '-603923969End With'自动调整表格.Columns.PreferredWidthType = wdPreferredWidthAuto.AutoFitBehavior (wdAutoFitContent) '根据内容调整表格.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整表格End WithIf i = 1 Then Exit ForNext'***************************************************************************Err.Clear: On Error GoTo 0 '恢复错误捕捉Application.DisplayAlerts = True  '开启提示Application.ScreenUpdating = True   '开启屏幕刷新
End Sub

设置前的样式：

设置后的样式

word自动设置表格格式相关推荐

word 如何设置表格边框和文字间的距离
word 如何设置表格边框和文字间的距离 2010-06-23 14:58 OlandoV | 分类:办公软件 | 浏览10533次现在领导要我做1张表格,但是给出来的样板上某些表格中的文 ...
如何在 Excel 中设置表格格式并进行排序？
欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何在 Excel 中设置表格格式并进行排序. 选择数据中的一个单元格,选择「开始」-「 ...
CSS 设置表格格式
在word中,表格是一项很常用的功能,并且表格的样式变化多端,用户可以根据需要选择自己喜欢的样式.那么,各式各样的表格到底是怎么实现的呢? 本节,通过一个简单的表格,来揭开word表格的神秘面纱.表格 ...
Java表格实现以及设置表格格式
创建表格 //表内容和表头 jTable = new JTable(record, dateTile); 设置格式 //设置表格的高度 jTable.s ...
Latex \ TexStudio创建表格并设置表格格式
目录创建表格设置表格竖线设置表格横线指定表列宽度打开cmd输入 texdoc booktab 即可获得参考手册创建表格 \begin{tabular} \end{tabular} \beg ...
Mac 版本 word 如何设置 '段落' 格式
刚用 Mac 版本的 Word 时, 一直找不到如何设置 '段落' 格式, 这里记录一下在 Home 目录下找到 Styles Pane, 如下图点击后可以选择 New Style 来新建一个 S ...
Word批量设置表格宽度自动适应页面宽度
怎么批量修改Word表格的宽度呢.Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样. 当页面设置了新的页边距后,所有的表格都需要调整新的宽度.或者文档中有许多大大小小的表格,希 ...
word后续段落格式变掉_如何在Word中设置段落格式
word后续段落格式变掉 Word provides default font formatting and paragraph formatting that is applied to conte ...
在html中设置表格为双线,Word怎么设置表格外框线为红色双线？
回答: 首先,打开Word文档,将需要调整的表格整体选中,如下图所示. 请点击输入图片描述接着,打开"设计"菜单,点击菜单栏右侧的"笔颜色"选项,然后根据自己 ...

word自动设置表格格式

word自动设置表格格式相关推荐

最新文章

热门文章