How to move Word cursor? Topic is solved

[leihu]

Dear Experts,

I've created a hotkey to scroll Word documents. It scrolls the text and the cursor together. After scrolling, if I hit any arrow key, the document is scrolled back to its original location where the cursor was. You can mimic this by turning the mouse wheel, and then hit any arrow key (Word must be in web layout view).

Is there any COM method (or any method) to move the cursor to the current view without scrolling back the text?

Thanks in advance!

HL

[flyingDman]

Try using bookmarks. To set a bookmark use:

Code: Select all

oWord := ComObjActive("Word.Application")
oWord.activedocument.Bookmarks.Add("test")

to go to a bookmark:

Code: Select all

oWord := ComObjActive("Word.Application")
oWord.Selection.Goto(-1,,,"test")

[leihu]

Hi @flyingDman,

Thanks for your prompt reply. But, this is not what I want. I don't have a specific location to bookmark and go back later. I want the cursor (insertion point) that is scrolled away with text to be moved to the current view port, wherever it is.

Any idea?

Thanks!

[FanaticGuru]

I've created a hotkey to scroll Word documents. It scrolls the text and the cursor together. After scrolling, if I hit any arrow key, the document is scrolled back to its original location where the cursor was. You can mimic this by turning the mouse wheel, and then hit any arrow key (Word must be in web layout view).

Is there any COM method (or any method) to move the cursor to the current view without scrolling back the text?

In general it is a good idea to post your code. It does not seem likely that your script "scrolls the text and the cursor together" as pushing arrow down causes the view to more to where the cursor is, which apparently is still at its original location.

I know of no way to make the cursor move to within the current view with COM. What text is currently within the view is not information that COM can provide. The window could be sized down so that only a single word or no words at all are in view.

You might be able to achieve it outside of COM by having AHK click in the center of the Word window which would hopefully move the cursor to within the current view, then use COM to scroll to the current cursor position.

Or you might rework your scrolling script to actually move the cursor and view together.

FG

[leihu]

Hi @FanaticGuru,

The code for scrolling the Word doc doesn't have much to do with this question. Clicking the centre of the Word window is not acceptable as this also moves my mouse cursor. Also, I don't like moving the cursor and view together because most of time I don't want the insertion point to change. But thank you very much for your reply and suggestions.

If you think there's no way to move the cursor to the current view using COM or any other methods, I'll give up.

Thanks once again!

HL

[FanaticGuru]

If you think there's no way to move the cursor to the current view using COM or any other methods, I'll give up.

I just said that it cannot be done fully with COM. The "any other method" is fairly easy. You just simulate a click in the active Word window. You do not have to actually move the mouse to do this. You can simulate a mouse click using ControlClick without actually moving and clicking the mouse.

Code: Select all

F1::
{
	wdApp := ComObjActive("Word.Application")
	wdHwnd := wdApp.ActiveWindow.Hwnd
	Width := wdApp.PointsToPixels(wdApp.ActiveWindow.Width, false)
	Height := wdApp.PointsToPixels(wdApp.ActiveWindow.Height, true)
	ControlClick('X' Width / 2 ' Y' Height / 2, wdHwnd)
}

This just basically goes for the middle of the overall window, but a more sophisticated method could be used if the exact positioning of the cursor is important.

Hitting the down arrow moves the insertion point, moving the insertion point always scrolls the window to show the new insertion point. The only way to not have the window scroll when hitting the down arrow is to have the insertion point already in view.

FG

[leihu]

ControlClick! Cool! Thanks a lot!

If you think there's no way to move the cursor to the current view using COM or any other methods, I'll give up.

I just said that it cannot be done fully with COM. The "any other method" is fairly easy. You just simulate a click in the active Word window. You do not have to actually move the mouse to do this. You can simulate a mouse click using ControlClick without actually moving and clicking the mouse.

Code: Select all

F1::
{
	wdApp := ComObjActive("Word.Application")
	wdHwnd := wdApp.ActiveWindow.Hwnd
	Width := wdApp.PointsToPixels(wdApp.ActiveWindow.Width, false)
	Height := wdApp.PointsToPixels(wdApp.ActiveWindow.Height, true)
	ControlClick('X' Width / 2 ' Y' Height / 2, wdHwnd)
}

This just basically goes for the middle of the overall window, but a more sophisticated method could be used if the exact positioning of the cursor is important.

Hitting the down arrow moves the insertion point, moving the insertion point always scrolls the window to show the new insertion point. The only way to not have the window scroll when hitting the down arrow is to have the insertion point already in view.

FG