![]() |
KnowBrainer Speech Recognition | ![]() |
Topic Title: Switching between Split view in Microsoft word document Topic Summary: 2 views of a Microsoft word document which I need to switch between Created On: 09/09/2020 05:39 AM Status: Post and Reply |
|
![]() |
![]() |
- tnortham2919 | - 09/09/2020 05:39 AM |
![]() |
![]() |
- Scribe | - 09/09/2020 10:12 AM |
![]() |
![]() |
- Alan Cantor | - 09/09/2020 10:28 AM |
![]() |
![]() |
- kkkwj | - 09/10/2020 08:39 PM |
![]() |
![]() |
- Alan Cantor | - 09/10/2020 11:31 PM |
![]() |
![]() |
- kkkwj | - 09/12/2020 07:12 PM |
![]() |
![]() |
- Lunis Orcutt | - 09/12/2020 10:29 PM |
![]() |
![]() |
- Tiger Feet | - 09/11/2020 06:06 AM |
![]() |
![]() |
- Scribe | - 09/11/2020 10:10 AM |
![]() |
![]() |
- Alan Cantor | - 09/11/2020 10:48 AM |
![]() |
![]() |
- PG LTU | - 09/11/2020 11:26 AM |
![]() |
![]() |
- Edgar | - 09/13/2020 09:29 AM |
![]() |
![]() |
- wristofdoom | - 09/13/2020 12:36 PM |
![]() |
![]() |
- wristofdoom | - 09/13/2020 12:36 PM |
![]() |
![]() |
- tnortham2919 | - 10/03/2020 03:34 PM |
![]() |
|
That's a very creative way to use the MouseGrid command! I like that the exact numbers don't need to be known, just any sequence that will move the mouse pointer into the right ballpark.
A small refinement: instead of saying "mouse grid 6 4 2", pausing, and then "click," the two statements can be combined into one: "mouse grid 6 4 2 click." From a practical perspective, one digit may be sufficient to get you to the proper side of the screen, e.g., "mouse grid 8 click." |
|
|
|
![]() |
|
Hi Alan, thank you for the compliment on a creative way to use the MouseGrid command. Any time I can surprise an old hand like yourself, I must be doing something right!!
Yes, you are right about appending Click to the "mousegrid 6 4 2" command. That's exactly what I do, all in one breath and utterance. I forgot to add the click word when I made my original answer and post, but figured that people would catch on to the idea anyway. (And they did, and fixed my omission right away anyway. :-) Glad to help!
I should also add although the precise numbers don't matter that much (since you're not trying to hit a button), I did adjust my numbers to put the cursor in the part of the window that I was interested in. In my original case with Visual Studio, I wanted the insertion point to end up more or less on the left side of the buffer, about halfway down. So, that's where I clicked the mouse pointer. ------------------------- Win10/11/x64, AMD Ryzen 7 3700X/3950X, 64/128GB RAM, Dragon 15.3, SP 7 Standard, SpeechStart, Office 365, KB 2017, Dragon Capture, Samson Meteor USB Desk Mic, Amazon YUWAKAYI headset, Klim and JUKSTG earbuds with microphones, excellent Sareville Wireless Mono Headset, 3 BenQ 2560x1440 monitors, Microsoft Sculpt Keyboard and Logitech G502 awesome gaming mouse. |
|
|
|
![]() |
|
KnowBrainer VB II includes New Mouse which captures the X&Y coordinates of your cursor, creates a new KnowBrainer application specific command (this cannot be accomplished in Dragon), names and saves your command in about 2 seconds. This is a single step command, slightly faster than using multiple MouseGrid strings but probably considerably easier to remember. However, if you would prefer to keep this in Dragon you can accomplish the same task by adding a few more quick steps and... if you wish to automate the process in Dragon via KnowBrainer VB II check out New Dragon Mouse command. We designed these commands for situations when you simply have no other choice, like hotkeys. The following command was created by Larry Allen, Polar Engineering and Valerie Matthews. We only added the verbal confirmation because there is otherwise no way to tell it worked, until you paste it.
Option Explicit
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Type POINTAPI
x As Long
y As Long
End Type
' declare Win32 API functions
Declare Function GetCursorPos Lib "user32" _
Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Declare Function GetWindowRect Lib "user32" _
Alias "GetWindowRect" (ByVal hwnd As Long, _
lpRect As RECT) As Long
Declare Function GetForegroundWindow& Lib "user32" ()
Function GetWinCurPos(hwnd As Long) As POINTAPI
Dim pt As POINTAPI
Dim wRect As RECT
Dim result As POINTAPI
GetCursorPos pt
GetWindowRect hwnd, wRect
result.x = pt.x - wRect.Left
result.y = pt.y - wRect.Top
GetWinCurPos = result
End Function
Sub Main
Dim hwnd As Long
Dim result As POINTAPI
Dim clip As String
hwnd = GetForegroundWindow
result = GetWinCurPos(hwnd)
clip = "SetMousePosition 1," & result.x & _
"," & result.y
clip = clip & Chr(13) & Chr(10) & _
"Wait 0.5" & Chr(13) & Chr(10) & _
"ButtonClick 1,1" & Chr(13) & Chr(10) & _
"Wait 0.5" & Chr(13) & Chr(10)
'
Clipboard clip
'
TTSPlayString "ready"
End Sub
------------------------- Change "No" to "Know" w/KnowBrainer 2022 |
|
|
|
FuseTalk Standard Edition v4.0 - © 1999-2023 FuseTalk™ Inc. All rights reserved.