麻烦请帮我看一下这个WORD表格排版的宏

lhw721

我这有个表格处理的宏，也还算可以用，只是字体处理的不好，我最终是要表格里的汉字用五号宋体，而数字和字母用”Times New Roman“字体，麻烦帮我看一下要怎么修改。万分感谢！


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 = wdAlignRowLeft
                .HeightRule = wdRowHeightAtLeast
                .Height = CentimetersToPoints(0.65)
            End With
            With .Range
                With .Cells
                    .DistributeWidth
                    .VerticalAlignment = wdCellAlignVerticalCenter
                End With
                .Font.Size = 10.5
                With .ParagraphFormat
                    .Alignment = wdAlignParagraphCenter
                    .CharacterUnitFirstLineIndent = 0
                    .FirstLineIndent = CentimetersToPoints(0)
                    .Space1
                End With
            End With
            .Shading.BackgroundPatternColor = wdColorAutomatic
            .AutoFitBehavior (wdAutoFitContent)
            .AutoFitBehavior (wdAutoFitContent)
            .Select
            .AutoFitBehavior (wdAutoFitWindow)
            .AutoFitBehavior (wdAutoFitWindow)
            With .Rows(1).Range.Font
                .Name = "宋体"
                .Name = "Times New Roman"
            End With
                Options.DefaultBorderLineWidth = wdLineWidth150pt
    With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderLeft)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderRight)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
        End With
        End With
        If n = 1 Then Exit For
    Next
End Sub                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 

413191246se

楼主，你这个代码是我的旧版原作，我现在附上新版本《表格处理》宏，请试试：

1. Sub 表格处理()
   
2. '功能：光标在表格中处理当前表格；否则处理所有表格！
   
3.     Dim t As Table, i As Long
   
4.     If Selection.Information(wdWithInTable) = True Then i = 1
   
5.     For Each t In ActiveDocument.Tables
   
6.         If i = 1 Then Set t = Selection.Tables(1)
   
7.         With t
   
8.             With .Rows
   
9.                 .WrapAroundText = False '取消文字环绕
   
10.                 .Alignment = wdAlignRowLeft '左对齐
    
11.                 .LeftIndent = CentimetersToPoints(0) '左缩进 0 厘米
    
12.                 .HeightRule = wdRowHeightAtLeast '表格行高（最小值）
    
13.                 .Height = CentimetersToPoints(0.7) '表格行高（0.7 厘米）
    
14.             End With
    
15.             With .Range
    
16.                 With .Font '字体格式
    
17.                     .Name = "宋体"
    
18.                     .Name = "Times New Roman"
    
19.                     .Color = wdColorPink '粉红--------------------此行代码可以屏蔽！！！
    
20.                     .Size = 10.5
    
21.                     .Kerning = 0
    
22.                     .DisableCharacterSpaceGrid = True
    
23.                 End With
    
24.                 With .ParagraphFormat '段落格式
    
25.                     .CharacterUnitFirstLineIndent = 0 '取消首行缩进
    
26.                     .FirstLineIndent = CentimetersToPoints(0) '取消首行缩进
    
27.                     .LineSpacingRule = wdLineSpaceSingle '单倍行距（.Space1）
    
28.                     .Alignment = wdAlignParagraphCenter
    
29.                     .AutoAdjustRightIndent = False
    
30.                     .DisableLineHeightGrid = True
    
31.                 End With
    
32.                 .Cells.VerticalAlignment = wdCellAlignVerticalCenter '垂直居中
    
33.             End With
    
34.             If .LeftPadding <> CentimetersToPoints(0.19) Then .LeftPadding = CentimetersToPoints(0.19) '默认单元格边距（0.19厘米）
    
35.             If .RightPadding <> CentimetersToPoints(0.19) Then .RightPadding = CentimetersToPoints(0.19) '默认单元格边距（0.19厘米）
    
36.             .AutoFitBehavior (wdAutoFitContent) '根据内容调整表格
    
37.             .AutoFitBehavior (wdAutoFitContent) '根据内容调整表格
    
38.             .Select
    
39.             .AutoFitBehavior (wdAutoFitWindow) '根据窗口调整表格
    
40.             .AutoFitBehavior (wdAutoFitWindow) '根据窗口调整表格
    
41.             With .Rows(1).Range.Font '表头加粗黑体
    
42.                 .Name = "黑体"
    
43.                 .Name = "Times New Roman"
    
44.                 .Bold = True
    
45.             End With
    
46.         End With
    
47.         If i = 1 Then Exit For
    
48.     Next
    
49. End Sub

复制代码

菜菜行者

413191246se 发表于 2016-9-6 22:09
楼主，你这个代码是我的旧版原作，我现在附上新版本《表格处理》宏，请试试：

当表头不是一行，是某列中多行合并，则出错，希望可以改错！


麻烦顺便帮看一下面这贴
http://club.excelhome.net/thread-1299420-1-1.html

谢谢

413191246se

现在表格处理，一直是针对规则表格，合并/拆分表格暂无法处理。