7 September 2020 THIS IS A SECOND LOOK - all functionality is working. If you make a lot of major changes to the GUI (font sizing, localization, window sizing etc.) and things get irretrievably ugly don't hesitate to reset the application to defaults (there is a button on the Preferences dialog and you can delete the Settings folder.

The artificial stupidity is not quite as stupid as it was. The algorithm that creates the permutations of suggestions is considerably improved. The order in which these offerings are presented is still hardcoded (though I am considering adding that as a user option) though it now generates all possible permutations with no duplications.

I have attached a zip files both the newest Readme text file and the newest application. I did not bother to include new text files as they have not changed. If you want the complete Visual Studio solution get it from my dropbox here:

https://www.dropbox.com/s/3phsbicjw0m4sad/CorrectThat0.2betaSolution.zip?dl=0

	CorrectThat0.2beta.zip  (203 KB)
	CorrectThatReadme0.2beta.txt  (8 KB)

-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

Here is a new driver script (it has been tested as both a KnowBrainer and a Dragon script in 15.3) - you will need to modify the last statement to reflect where you actually place the application:

Sub Main

   Dim recognized As String
   Dim phraseWords() As String
   Dim numberOfWords, iteration As Integer

   Clipboard ("")' clear the clipboard
   SendKeys "^c", 1
   Wait 0.4
   recognized = Clipboard
   If recognized = "" Then
      Dim EngineControl As New DgnEngineControl
      EngineControl.DlgShow(dgndlgRecognitionHistory,0,,0)

      Wait 0.5
   'Copy the the second to last uttered item in the recognition history box to the clipboard
      SendKeys "{Up}{Tab}", 1
      SendKeys "^c", 1
      Wait 0.4
   'Close the recognition history window
      SendKeys "{Esc}"
      'Wait 0.5  'Needed for script stability
      recognized = Trim(Clipboard$()) 'Recognition history window adds one space to the end of everything
      Wait 0.4
      phraseWords = Split(recognized, " ")
      numberOfWords = UBound(phraseWords)'UBound is zero-based
'MsgBox CStr(numberOfWords)' so the real number of words is numberOfWords + 1
      ' For i = 1 To numberOfWords + 1
      For iteration = 0 To numberOfWords' either way
         SendKeys "+^{Left}", 1
      Next iteration
      Wait 0.1
      SendKeys "^c", 1
      Wait 0.4
      recognized = Clipboard
      Wait 0.4
      'SendKeys "{Delete}", 1
   End If
   ' ShellExecute "D:\CorrectThat\CorrectThat\bin\Release\CorrectThat.exe " & recognized
   ShellExecute "Z:\CoryJ\CorrectThat.exe " & recognized
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