GetCaretPos can't get the correct value

[wak]

When i call GetCaretPos in MS Word Addin, It always return's a same value.
When i Enable IME,it can return the correct value. Some one can tell me why?

 

[Jean-Guy Marcil]

When i call GetCaretPos in MS Word Addin, It always return's a same value.
When i Enable IME,it can return the correct value. Some one can tell me why?

What is "GetCaretPos?"

Many methods that work with the selection object will not work correctly (or
not at all) if the active window is not visible.

 

[wak]

What is "GetCaretPos?"

Many methods that work with the selection object will not work correctly (or
not at all) if the active window is not visible.

GetCaretPos is Win32Api, I think i can use API to do some tasks instead VBA.
I want to get the current caret postion.

 

[Helmut Weber]

Hi,

at work, with Office 2002 and Windows XP
I see the same behaviour as you do.

However, at home, with Vista Small Business
and Office XP, the following code is working:

Option Explicit
' ---------------------------------------------
Public Declare Function GetCaretPos Lib "user32" _
(lpPoint As POINTAPI) As Long

Private Type POINTAPI ' 8 Bytes
x As Long
y As Long
End Type

Public Sub WhereAmI()
Dim p As POINTAPI
Dim l As Long
l = GetCaretPos(p)
ActiveDocument.Range.InsertAfter _
"(" & p.x & "," & p.y & ")"
MyStart
End Sub

Sub MyStart() ' for ongoing evaluation of caret position
Application.OnTime _
When:=Now + TimeValue("00:00:03"), _
name:="WhereamI"
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

 

[wak]

Hi,

at work, with Office 2002 and Windows XP
I see the same behaviour as you do.

However, at home, with Vista Small Business
and Office XP, the following code is working:

Option Explicit
' ---------------------------------------------
Public Declare Function GetCaretPos Lib "user32" _
(lpPoint As POINTAPI) As Long

Private Type POINTAPI ' 8 Bytes
x As Long
y As Long
End Type

Public Sub WhereAmI()
Dim p As POINTAPI
Dim l As Long
l = GetCaretPos(p)
ActiveDocument.Range.InsertAfter _
"(" & p.x & "," & p.y & ")"
MyStart
End Sub

Sub MyStart() ' for ongoing evaluation of caret position
Application.OnTime _
When:=Now + TimeValue("00:00:03"), _
name:="WhereamI"
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Thanks for your code, it realy work.
but I want to know a common way to get
the caret pos of all versions of word,
and outlook have the same problem,
(GetCaretPos works ok in powerpoint).
Microsoft knows the caret pos, so i believe
there is a way to get it correct, any idea?

 

[lujunzizi]

this may help you, as now word support getting all object's position to window.

Window.GetPoint 方法 (Word)

Office VBA 参考主题

learn.microsoft.com