Edgar,

This seems to work in Version 15.61. I'm also able to include multi-word command names, e.g., "Testing bold hello through goodbye"

Testing <dictation>

Sub Main
Dim x As String
Let x = ListVar1
Dim EngControl As New DgnEngineControl
EngControl.Register
EngControl.RecognitionMimic (x)
EngControl.UnRegister (False)
End Sub

@Alan - your EngControl version works except…

Sub Main

   Dim EngControl As New DgnEngineControl

   Dim x As String

   Let x = "select " & ListVar2

   EngControl.Register

   EngControl.RecognitionMimic (x)

   EngControl.UnRegister (False)

   Wait 3

   SendKeys "{Esc}", 1

   Wait 0.5

   Select Case ListVar1

      Case "Normal", "Regular", "Regularize", "Normalize"

         SendKeys "^n", 1

      Case "Strikethrough", "Strike Out", "Strikeout"

         SendKeys "^s", 1

   End Select

End Sub

Even if I make the delay much longer than 3 seconds (3 seconds would be intolerable anyway) the Select Case code processes before the selection is made. I can see the result of the ‘SendKeys "^s", 1’ statement briefly (the Strikethrough icon toggles for three seconds). It would appear that the ‘EngControl.RecognitionMimic’ is not exercised until the command exits.

-------------------------

-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

 

 

 

What is this supposed to do exactly?

When I run this command in Notepad, it simply types the text that was uttered.

 

It's unclear to me how this could help to select and then modify some pre-existing text (by adding bold, etc)

-------------------------

Dragon Professional Individual v15.6. Windows 10. Knowbrainer 2017.