【Word VBA】単語の先頭1文字の大文字/小文字を切り替えたくないですか？

選択範囲の単語の先頭の1文字を大文字にしたり小文字にしたりできます。
1つ以上の単語を選択して実行できます。

↑　　　↓

こんな感じで、実行するたびに切り替えます。

無理矢理作った感じのプログラムですが、たいていの場合素直に動きます。

プログラム

Sub Case_Control()

　If Selection.Range.Case = wdTitleWord Then
　　Selection.Range.Case = wdLowerCase
　Else
　 Selection.Range.Case = wdTitleWord
　End If

End Sub