宏：大写 -> 小写 -> 首字母大写

引言

这是一个简单的宏，但在某些时候可能会非常有用。

如何使用

1. 选择一些文本
2. 按下分配的宏键，将选定文本的大小写更改为大写
3. 再次按下分配的宏键，将大写更改为小写
4. 再次按下分配的宏键，将小写更改为首字母大写
5. 再次按下分配的宏键，将首字母大写更改为大写

以下是宏的完整流程

• 选定大小写 ->
• 大写 ->
• 小写 ->
• 首字母大写 ->
• 大写

代码列表

Sub MakeCaseUpperLower()
Dim doc
set doc = ActiveDocument 

' Be sure active document is a text document
if doc Is Nothing Then
Exit Sub
elseif doc.Type <> "Text" Then
Exit Sub
End If 

strSelected = doc.Selection
strNewUCase = ""
strNewLCase = ""

strNewUCase = UCase(strSelected)
strNewLCase = LCase(strSelected)
' Upper case -> Lower case
if( strNewUCase = strSelected ) then
doc.Selection = LCase(strSelected)
' Lower case -> Capitalized Case
elseif strNewLCase = strSelected Then
doc.Selection = Left(strNewUCase,1) + Right(strNewLCase, Len(strNewLCase)-1)
' Capitalized Case
else
doc.Selection = strNewUCase
End if
End Sub 

结论

这是一些非常简单的代码。请留下您的评论。谢谢。