工地资料专用--下标模块

约定的童话

Sub 下标()
    Dim s As String, m As String
    arr = Array("mfcu", "λ3", "λ1", "Sn", "fcu,min", "λ2", "λ4", "fcu,k")
    For i = 0 To UBound(arr)
        s = arr(i)
        For h = 1 To Len([b24])
            m = [b24].Characters(h, Len(s)).Text
            If m = s Then
                With [b24].Characters(h + 1, Len(s) - 1).Font
                    .Size = 6
                End With
            End If
        Next
    Next
End Sub

chr(63)那个符号不太好处理，用的f代替...

leolee82

第一眼就看到这个单词了："fcu,k"