判断文字对齐及数字对齐方式

woyaofacai

借用大神的代码，能否加入自动判断文字就靠左对齐，数字就靠右对齐呢？
WORD格式排版.rar (15.54 KB, 下载次数: 14)

2015-12-1 23:22 上传

点击文件名下载附件

  如附件中的批注
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.Rows
            .WrapAroundText = False
            .Alignment = wdAlignRowLeft
            .HeightRule = wdRowHeightAtLeast
            .Height = CentimetersToPoints(0.65)
        End With
        With t.Range
            .Font.Name = "宋体"
            .Font.Name = "Times New Roman"
            .Font.Size = 10.5
            With .Cells
                .DistributeWidth
                .VerticalAlignment = wdCellAlignVerticalCenter
            End With
            With .ParagraphFormat
                .Alignment = wdAlignParagraphCenter
                .CharacterUnitFirstLineIndent = 0
                .FirstLineIndent = CentimetersToPoints(0)
                .Space1
            End With
            End With
         With Selection.Tables(1)
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0)
        .RightPadding = CentimetersToPoints(0)
        .Spacing = 0
        .AllowPageBreaks = True
        .AllowAutoFit = True
    End With
    Next
End Sub

kqbt

是不是这样？

1. Sub 区别对齐方式()
   
2.   Dim wTab As Table, wCel As Cell
   
3.   For Each wTab In ActiveDocument.Tables
   
4.     For Each wCel In wTab.Range.Cells
   
5.       If Len(wCel.Range) > 2 Then
   
6.         If Len(wCel.Range) > 2 And IsNumeric(Left(wCel.Range, Len(wCel.Range) - 2)) Then
   
7.           wCel.Range.ParagraphFormat.Alignment = wdAlignParagraphRight
   
8.         Else
   
9.           wCel.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
   
10.         End If
    
11.       End If
    
12.     Next
    
13.   Next
    
14. End Sub

复制代码

woyaofacai

是的，解决了这个问题，谢谢