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

菜菜行者

下图中，职务一列，根据不同的字数，给不一样的字体颜色
如果是10个字的，则改为蓝色，如果是19个字的，则心为青表，如果是20个字的，则改红色。



单元格内容不同字数给不同颜色.rar (3.66 KB, 下载次数: 5)

2017-5-20 00:42 上传

点击文件名下载附件

duquancai

Sub SHISHI()
    Dim tb As Table, c As Cell
    For Each tb In ActiveDocument.Tables
        For Each c In tb.Columns(2).Cells
            Select Case Len(c.Range) - 2
            Case 20
                c.Range.Font.ColorIndex = wdRed
            Case 19
                c.Range.Font.ColorIndex = 11
            Case 10
                c.Range.Font.ColorIndex = 2
            End Select
        Next
    Next
End Sub

菜菜行者

duquancai 发表于 2017-5-20 01:27
Sub SHISHI()
    Dim tb As Table, c As Cell
    For Each tb In ActiveDocument.Tables

谢谢杜老师，代码效果很好，正是我想要的。
如果能再稍微修改一下就更好了，
就是选择区域内的表格才处理。

菜菜行者

duquancai 发表于 2017-5-20 01:27
Sub SHISHI()
    Dim tb As Table, c As Cell
    For Each tb In ActiveDocument.Tables

参考其他的，使用了Selection，解决了。
谢谢杜老师

duquancai

菜菜行者 发表于 2017-5-20 10:29
参考其他的，使用了Selection，解决了。
谢谢杜老师

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
            Select Case Len(c.Range) - 2
            Case 20
                c.Range.Font.ColorIndex = wdRed
            Case 19
                c.Range.Font.ColorIndex = 11
            Case 10
                c.Range.Font.ColorIndex = 2
            End Select
        Next
    Next
End Sub

菜菜行者

duquancai 发表于 2017-5-20 10:37
Sub SHISHI()
    Dim tb As Table, c As Cell, p As Range
    Set p = IIf(Selection.Type = wdSelec ...

这个更厉害了，谢谢。

能否撇开前面的问题，把问题继续延伸

比如我不要处理等于多少个字的，我要处理超过超过2行的，超过3行的。
里面的行有自然换行，也有回车换行的。

kqbt

杜老师的解题思路总是很到位。看着wdRed与11、2，我感觉自己可能强迫症上身了，呵呵

duquancai

菜菜行者 发表于 2017-5-20 11:19
这个更厉害了，谢谢。

能否撇开前面的问题，把问题继续延伸

可以，你得具体说明，具体附件，具体需求。不能泛泛而谈。话说：“单元格的自然换行”也算的话，如果“单元格宽度的变化”以及“字符格式的变化”，那么将有可能完全可能改变单元格区域内的“总行数”！这种情况是你想要的吗？

duquancai

kqbt 发表于 2017-5-20 11:24
杜老师的解题思路总是很到位。看着wdRed与11、2，我感觉自己可能强迫症上身了，呵呵

不好意思！我写代码很不规范！尤其是变量命名我很随意！养成了这个坏毛病！！！

菜菜行者

duquancai 发表于 2017-5-20 11:42
可以，你得具体说明，具体附件，具体需求。不能泛泛而谈。话说：“单元格的自然换行”也算的话，如果“单 ...

一般在整理时，表格的列宽是已经固定的，不用考虑。
希望能根据职务一列中行数进行判断，单无格中内容是2行的给红色，3行的给青色。