VBA对大小写字母的转化如何快捷处理

chenlifeng123

比如字符有： Abc,  ABCDef，我是中国人A
通过转化变成 abc.   abcdef,  我是中国人a……

    即把但凡包含大写字母的字符，都转为小写，非字母不管。
我会逐一用循环来处理，但感觉不精简，请问有更好的办法吗？感谢老师~！

duquancai

不管黑猫白猫，能逮住耗子的就是好猫！能用就行。

duquancai

Sub 全部小写()
    ActiveDocument.Content.Case = 0
End Sub

leikaiyi123

Sub 大小写转换()
    If Selection.Range.Case = 0 Then Selection.Range.Case = 1 Else Selection.Range.Case = 0
End Sub

chenlifeng123

duquancai 发表于 2017-9-26 12:18
Sub 全部小写()
    ActiveDocument.Content.Case = 0
End Sub

我之前 采用的是用函数 LCase 或 UCase来转换，这个只能逐一处理，没有老师的方法快捷高效。

13907933959

duquancai 发表于 2017-9-26 12:18
Sub 全部小写()
    ActiveDocument.Content.Case = 0
End Sub

杜前辈好！
真是高！一句就搞定！

13907933959

leikaiyi123 发表于 2017-9-27 08:56
Sub 大小写转换()
    If Selection.Range.Case = 0 Then Selection.Range.Case = 1 Else Selection.Range ...

网友好！
感谢分享！
这个要光标停在字母那里，运行一遍小写，再运行一遍大写，感觉很方便！很好用！

cuteword

不是有个shift+f3切换大小写吗？

leikaiyi123

13907933959 发表于 2017-9-27 10:50
网友好！
感谢分享！
这个要光标停在字母那里，运行一遍小写，再运行一遍大写，感觉很方便！很好用！

补充:要选中
Sub test()
    Selection.Range.Case = 5 '0小写，1大写，2首字母大写，5切换大小写，6半角,7全角
End Sub

13907933959

leikaiyi123 发表于 2017-9-28 23:23
补充:要选中
Sub test()
    Selection.Range.Case = 5 '0小写，1大写，2首字母大写，5切换大小写，6半 ...

网友好！
感谢您的无私，补充让我明白了更多，谢谢！