Sub Main

Dim lowerCase As String

Dim upperCase As String

lowerCase = LCase (ListVar1)

MsgBox lowerCase

upperCase = UCase (ListVar1)

MsgBox upperCase

End Sub

The above is a proof of concept I call it "Test <dictation>"; I made it a global command. The next step would be to adapt to the code to your needs; I would probably create 2 new global commands:
Capitalize All <dictation>

Lowercase All <dictation>

a single command might look like:

list: "scules" with the contents:

Lowercase

Capitalize

and the command would be:
<scules> All <dictation>

Capitalize All <dictation>

would look like:

Sub Main

Dim upperCase As String

upperCase = " " & UCase (ListVar1) & " "

' somewhere on the forum is code for inserting smart spaces

' I didn't bother to use it in the above and if being lazy I would use:

' upperCase = UCase (ListVar1)

' and manage the leading and trailing spaces in dictation

SendKeys upperCase , 1

End Sub

-Edgar
DPI 15.3, 64-bit Windows 10 Pro, OpenOffice & Office 365, Norton Security, Shure X2U XLR to USB mic adapter with Audio Technica DB135 vocal mic, Asus X299-Deluxe Prime, Intel Core i9-7940X (14 core, 4.3 GHz overclocked to 4.9 GHz), G.SKILL TridentZ Series 64GB (4 x 16GB) DDR4 3333 (PC4 26600) F4-3333C16Q-64GTZ, NVIDIA GIGABYTE GeForce GTX 1060 GV-N1060G1 GAMING-6GD REV 2.0 6GB graphics card with 3 1920x1080 monitors