根据单元格字数给不同的颜色

duquancai

菜菜行者 发表于 2017-5-20 13:55
一般在整理时，表格的列宽是已经固定的，不用考虑。
希望能根据职务一列中行数进行判断，单无格中内容 ...

Sub SHISHI()
    Dim tb As Table, c As Cell, p As Range
    Set p = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
    If p = ActiveDocument.Content Then
        k = MsgBox("要进行全文处理吗？", vbYesNoCancel + vbQuestion, "全文处理判断")
        If k <> vbYes Then Exit Sub
    End If
    If p.Tables.Count = 0 Then Exit Sub
    For Each tb In p.Tables
        For Each c In tb.Columns(2).Cells
            With c.Range
                .End = .End - 1: n = .ComputeStatistics(1)
                If n = 2 Then
                    .Font.ColorIndex = 6
                ElseIf n = 3 Then
                    .Font.ColorIndex = 11
                End If
               
            End With
        Next
    Next
End Sub

duquancai

菜菜行者 发表于 2017-5-20 13:55
一般在整理时，表格的列宽是已经固定的，不用考虑。
希望能根据职务一列中行数进行判断，单无格中内容 ...

代码在审核！
但是这种“自然换行的”还是慎用！
且不说因列宽改变而导致总行数的变化，
就说因字符格式改变导致总行数的变化也会让你抓狂：
1、字符的字体改变
2、字符的字号改变
3、字符之间的间距改变
4、同一个字体和同一样的字号，不同的字符其占位宽度也会不一样的，这一点有时间自己去体会。5、还有因为标点符号的全角或者半角也同样导致其占位宽度不一样。

菜菜行者

duquancai 发表于 2017-5-20 14:16
代码在审核！
但是这种“自然换行的”还是慎用！
且不说因列宽改变而导致总行数的变化，

在运行宏之前，关于表格的列宽，字体字号和间距，这些都是事先处理好了的。不会影响到批处理的判断。