word vba设置表格样式

Sub 表格处理()
'功能：光标在表格中处理当前表格；否则处理所有表格！
Application.ScreenUpdating = False '关闭屏幕刷新
Application.DisplayAlerts = False '关闭提示
On Error Resume Next '忽略错误
'***************************************************************************
Dim mytable As Table, i As Long
If Selection.Information(wdWithInTable) = True Then i = 1
For Each mytable In ActiveDocument.Tables
If i = 1 Then Set mytable = Selection.Tables(1)
With mytable
'取消底色
.Shading.ForegroundPatternColor = wdColorAutomatic
.Shading.BackgroundPatternColor = wdColorAutomatic
Options.DefaultHighlightColorIndex = wdNoHighlight
.Range.HighlightColorIndex = wdNoHighlight
.Style = "表格主题"

'单元格边距
.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 '允许自动重调尺寸

'设置边框
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleThinThickMedGap
.Borders(wdBorderTop).LineWidth = wdLineWidth225pt
.Borders(wdBorderBottom).LineStyle = wdLineStyleThickThinMedGap
.Borders(wdBorderBottom).LineWidth = wdLineWidth225pt

With .Rows
.WrapAroundText = False '取消文字环绕
.Alignment = wdAlignRowCenter '表水平居中 wdAlignRowLeft '左对齐
.AllowBreakAcrossPages = False '不允许行断页
.HeightRule = wdRowHeightExactly '行高设为最小值 wdRowHeightAuto '行高设为自动
.Height = CentimetersToPoints(0) '上面缩进量为0
.LeftIndent = CentimetersToPoints(0) '左面缩进量为0
End With

With .Range
With .Font '字体格式
.Name = "宋体"
.Name = "Times New Roman"
.Color = wdColorAutomatic '自动字体颜色
.Size = 12
.Kerning = 0
.DisableCharacterSpaceGrid = True
End With

With .ParagraphFormat '段落格式
.CharacterUnitFirstLineIndent = 0 '取消首行缩进
.FirstLineIndent = CentimetersToPoints(0) '取消首行缩进
.LineSpacingRule = wdLineSpaceSingle '单倍行距 wdLineSpaceExactly '行距固定值
'.LineSpacing = 20 '设置行间距为20磅，配合行距固定值
.Alignment = wdAlignParagraphCenter '单元格水平居中
.AutoAdjustRightIndent = False
.DisableLineHeightGrid = True
End With

.Cells.VerticalAlignment = wdCellAlignVerticalCenter '单元格垂直居中

End With

'设置首行格式
.Cell(1, 1).Select ' 选中第一个单元格
With Selection
.SelectRow '选中当前行
Selection.Rows.HeadingFormat = wdToggle '自动标题行重复
.Range.Font.Bold = True '表头加粗黑体
.Shading.ForegroundPatternColor = wdColorAutomatic '首行自动颜色
.Shading.BackgroundPatternColor = -603923969 '首行底纹填充
End With

'自动调整表格
.Columns.PreferredWidthType = wdPreferredWidthAuto
.AutoFitBehavior (wdAutoFitContent) '根据内容调整表格
.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整表格

End With

If i = 1 Then Exit For
Next
'***************************************************************************
Err.Clear: On Error GoTo 0 '恢复错误捕捉
Application.DisplayAlerts = True '开启提示
Application.ScreenUpdating = True '开启屏幕刷新
End Sub

word vba设置表格样式相关推荐

使用VBA统一word文档表格样式
在多人协作的word文档中,经常会出现同一性质的内容格式不一致的情况.要快速统一同一性质的内容的格式,最佳实践无疑是使用样式功能.但是对于表格而言,对表格样式的编辑无法做到使表格在页面居中,而且对于标 ...
仿Word自动套用格式，用CSS设置表格样式
找一个虽然不是很好看,但设置起来比较复杂的吧:彩色底纹-强调文字颜色6 Word中的效果如图示: [样式分析]: Word中设置表格格式,主要是设置边框和底纹,可选定整个表格或者部分单元格右击→表格属 ...
Word或WPS中批量设置表格样式的宏
在编写word文档的过程中,有时候会使用很多的表格,执行如下宏,批量设置全部表格的样式 Sub 批量设置表格样式() ' ' 批量设置表格样式 Macro 'On Error Resume NextD ...
word套用表格样式怎么设置_仿Word自动套用格式使用CSS设置表格样式实例
找一个虽然不是很好看,但设置起来比较复杂的吧:彩色底纹-强调文字颜色6 Word中的效果如图示: [样式分析]: Word中设置表格格式,主要是设置边框和底纹,可选定整个表格或者部分单元格右击→表格属 ...
word套用表格样式怎么设置_仿Word自动套用格式，用CSS设置表格样式
找一个虽然不是很好看,但设置起来比较复杂的吧:彩色底纹-强调文字颜色6 Word中的效果如图示: [样式分析]: Word中设置表格格式,主要是设置边框和底纹,可选定整个表格或者部分单元格右击→表格属 ...
Delphi设置表格样式
//设置表格样式 wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLine ...
word 如何设置表格边框和文字间的距离
word 如何设置表格边框和文字间的距离 2010-06-23 14:58 OlandoV | 分类:办公软件 | 浏览10533次现在领导要我做1张表格,但是给出来的样板上某些表格中的文 ...
使用宏设置word中的表格样式
使用 VBA 代码批量更改 Word 表格样式以下代码为chatgpt生成如果您有大量的 Word 文档,其中包含许多表格,并且您想要统一它们的样式,那么手动更改每个表格的样式可能是一项繁琐的任务 ...
python 设置 word中所有表格样式（行间距、缩进、字体、字号、颜色、磅值）
项目场景: 提示:这里简述项目相关背景: 例如:客户要求设置word 中所有表格的样式,包括行间距.缩进.字体.字号.颜色.磅值等. 问题描述提示:RPA没有这么多的操作命令,只能靠python的w ...
word自动设置表格格式
在处理word时,经常会需要调整表格样式,工作比较繁琐,收集整理了自动设置表格格式的宏,代码如下: Sub 设置表格格式()'功能:光标在表格中处理当前表格:否则处理所有表格!Application. ...

word vba设置表格样式

word vba设置表格样式相关推荐

最新文章

热门文章