排版时候统一设置表格格式

郭宏伟66 · 发表于 2019-9-27 11:56

各位老师潜水几个月受益匪浅
现在排版遇到一个问题总结如下
1、统一所有表格宽度如16.25厘米或者100%比例
2、表格第一行标题自动居中
3、默认单元格边距左 0.05厘米右0.05厘米或者全部是0也可以（即选中表格——右键——表格属性——表格选项中的默认单元格边距设置）
以上三个问题能不能用VBA语法统一解决效果图如下

盼请各位老师解答不胜感激！

413191246se · 发表于 2019-9-27 21:03

本帖最后由 413191246se 于 2019-9-28 00:00 编辑

楼主，你好！
* 第 2 个问题：表格第一行不叫标题，叫表头，它可以居中，也可以不居中。
* 第 3 个问题：表格默认单元格边距如果不是默认，会有麻烦，就是失去基准，不规范，不建议这么做（与第 1 个问题有抵触）。
* 建议提供附件。

郭宏伟66 · 发表于 2019-9-30 17:01

413191246se 发表于 2019-9-27 21:03
楼主，你好！
* 第 2 个问题：表格第一行不叫标题，叫表头，它可以居中，也可以不居中。
* 第 3 个问题： ...

多谢老师耐心解答、相关的附件附上去、如图就是每个表的最终结果即数字瘦体靠右居中对齐汉字靠左居中对齐表头居中对齐所有文字汉字宋体数字瘦体都为五号字体这个是表格的相关要求
我一般做审计报告的排版工作表很多每次都要一个个的重新调整表格的文字数字格式以及表头问题多了就觉得赶不上趟了

413191246se · 发表于 2019-10-1 23:00

楼主，看你图片这么排版，不如弃 Word 而用 Excel。

郭宏伟66 · 发表于 2019-10-8 08:40

不好意思老师假期忙没看过帖子、用EXCEL么可是我大部分都是排版的审计报告附注、EXCEL的话恐怕不行因为还要打印前面后面还有一大堆的文字叙述我在网上参照了一些代码和您哪个帖子的代码如下
Sub 表格处理()
   On Error Resume Next
   Dim t As Table, n As Long
   If Selection.Information(wdWithInTable) = True Then Selection.Tables(1).Select: n = 1
   For Each t In ActiveDocument.Tables
      If n = 1 Then Set t = Selection.Tables(1) Else t.Select
      With t
         With .Rows
               .WrapAroundText = False
               .Alignment = wdAlignRowCenter
               .HeightRule = wdRowHeightAtLeast
               .Height = CentimetersToPoints(0.7)
         End With
         .Shading.BackgroundPatternColor = wdColorAutomatic
            Selection.Tables(1).Select
         .TopPadding = CentimetersToPoints(0)
            .BottomPadding = CentimetersToPoints(0)
            .LeftPadding = CentimetersToPoints(0)
            .RightPadding = CentimetersToPoints(0)
         With .Rows(1).Range.Font
               .Name = "黑体"
               .Name = "Arial Narrow"
               .Bold = True
               .Size = "五号"
         End With
      End With
      If n = 1 Then Exit For
   Next
End Sub
出来的效果如下实现了单元格内默认边距及字体无法实现数字靠右对齐及标题居中对齐和最左侧靠左对齐及表内汉子的部分居中对齐如图

413191246se · 发表于 2019-10-10 02:39

* 楼主，你好！——建议提供真实附件才好（当然关键信息应当处理一下），请试用下面的宏（因为表格是不规则表格，无法对其进行列宽设置，须自行手动设置列宽。本宏采用默认列宽）：

Sub aaab审计报告()
'页面设置/默认2.54cm/3.17cm/A4纸张
Dim s As Section
For Each s In ActiveDocument.Sections
With s.PageSetup
If .Orientation = wdOrientPortrait Then
.TopMargin = CentimetersToPoints(2.54)
.BottomMargin = CentimetersToPoints(2.54)
.LeftMargin = CentimetersToPoints(3.17)
.RightMargin = CentimetersToPoints(3.17)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
Else
.TopMargin = CentimetersToPoints(2.5)
.BottomMargin = CentimetersToPoints(2.5)
.LeftMargin = CentimetersToPoints(2.54)
.RightMargin = CentimetersToPoints(2.54)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
End If
.HeaderDistance = CentimetersToPoints(1.5)
.FooterDistance = CentimetersToPoints(1.75)
End With
Next
'循环遍历所有表格
Dim t As Table, m&, h&, i&
For Each t In ActiveDocument.Tables
With t
'取消文字环绕
With .Rows
.WrapAroundText = False
.Alignment = wdAlignRowLeft
.LeftIndent = CentimetersToPoints(0)
End With
'默认单元格边距
.LeftPadding = CentimetersToPoints(0.19)
.RightPadding = CentimetersToPoints(0.19)
'根据内容/窗口扩展表格
.AutoFitBehavior (wdAutoFitContent)
.Select
.AutoFitBehavior (wdAutoFitWindow)
'行高最小值
With .Rows
.HeightRule = wdRowHeightAtLeast
.Height = CentimetersToPoints(0.6)
End With
'清除格式/设置字体段落格式
Selection.ClearFormatting
With .Range
With .Font
.NameFarEast = "宋体"
.NameAscii = "Times New Roman"
.Color = wdColorBlue '蓝色（本行代码可删除）
.Kerning = 0
.DisableCharacterSpaceGrid = True
End With
With .ParagraphFormat
.Space1
.Alignment = wdAlignParagraphCenter
.AutoAdjustRightIndent = False
.DisableLineHeightGrid = True
End With
.Cells.VerticalAlignment = wdCellAlignVerticalCenter
End With
'''选定第 6 单元格
.Range.Cells(6).Select
m = Selection.Information(wdEndOfRangeRowNumber)
h = .Range.Information(wdMaximumNumberOfRows)
Selection.MoveDown Unit:=wdLine, Count:=h - m, Extend:=wdExtend
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
'''选定第 7 单元格
.Range.Cells(7).Select
m = Selection.Information(wdEndOfRangeRowNumber)
h = .Range.Information(wdMaximumNumberOfRows)
Selection.MoveDown Unit:=wdLine, Count:=h - m, Extend:=wdExtend
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
'''选定第 8 单元格
.Range.Cells(8).Select
m = Selection.Information(wdEndOfRangeRowNumber)
h = .Range.Information(wdMaximumNumberOfRows)
Selection.MoveDown Unit:=wdLine, Count:=h - m, Extend:=wdExtend
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
'''选定第 9 单元格
.Range.Cells(9).Select
m = Selection.Information(wdEndOfRangeRowNumber)
h = .Range.Information(wdMaximumNumberOfRows)
Selection.MoveDown Unit:=wdLine, Count:=h - m, Extend:=wdExtend
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
'''选定第 1 至第 5 单元格
With .Range
i = 0
Do
i = i + 1
.Cells(i).Range.Font.NameFarEast = "黑体"
.Cells(i).Range.Bold = True
.Cells(i).Range.Font.Color = wdColorRed '红色（本行代码可删除）
Loop Until i = 5
End With
'合计单元格
With .Range.Cells(34).Range
.Font.NameFarEast = "黑体"
.Font.Bold = True
.Font.Color = wdColorPink
.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
End With
Next
Selection.HomeKey 6
MsgBox "处理完毕！！！！！！！！！！", 0 + 48, "审计报告"
End Sub

复制代码

权花錵 · 发表于 2019-10-12 15:53

我也是审计所的排版人员，一直在想能不能弄个自动排版报告的宏。楼主要不要加个联系方式一起探讨一下啊哈哈，

郭宏伟66 · 发表于 2019-10-16 21:41

413191246se 发表于 2019-10-10 02:39
* 楼主，你好！——建议提供真实附件才好（当然关键信息应当处理一下），请试用下面的宏（因为表格是不规则 ...

好的老师我研究下然后再来请教十分感谢辛苦了！

郭宏伟66 · 发表于 2019-10-16 21:49

权花錵发表于 2019-10-12 15:53
我也是审计所的排版人员，一直在想能不能弄个自动排版报告的宏。楼主要不要加个联系方式一起探讨一下啊哈哈 ...

可以啊同病相连的人

权花錵 · 发表于 2019-10-18 11:17

我看了你的问题自己弄了下代码，测试过了也能运行，你要的要求也达到了。

Sub 表格格式()

Dim mytable As table
For Each mytable In ActiveDocument.Tables
With mytable
   .PreferredWidthType = wdPreferredWidthPoints '将表格宽度方式设定为固定值
   .PreferredWidth = CentimetersToPoints(16.25)  '将表格宽度方式设定为16.25
   .Rows(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '表格第一行设定为居中
   .LeftPadding = CentimetersToPoints(0) '左边单元格边距为0
   .RightPadding = CentimetersToPoints(0)'右边单元格边距为0
End With
Next
End Sub
其实楼主可以买些书来看看，excelhome出的别怕vba其实很简单这书还是不错的，虽然讲的是excelvba，不是wordvba，但是语法结构都有介绍，大体也通用。了解语法结构了，再尝试自己写代码。你这个代码我是通过宏录制然后再用循环语句来达到要求的。楼主有好的代码也可以来跟我分享qq2311581496，如果解决了你的问题你就采取我的答案吧

		自动登录	找回密码
密码			免费注册

[求助] 排版时候统一设置表格格式

最新热点 /1