在程序中如何获得WORD文本的插字符位置？

[sjd163]

在程序中如何获得WORD文本的插字符位置？

[sjd163]

GetCaretPos只能作用于自己程序的编辑窗口

[sjd163]

大侠们帮忙啊！

[windcsn]

我想你应该HOOK WORD程序，然后对WH_MOUSE进行HOOK，取得它鼠标的光标和WH_KEY 来得到它键盘消息

[loki2k]

使用MSWORD.OLB吧

[SCSDN]

GetCaretPos不行吗

[菲斯可儿]

查查ms提供的com类，有没有相应的方法。

[sjd163]

大侠们帮忙啊！

[mjfhigh]

先获得word窗口的句柄，然后用GetCaretPos看这样可以吗/

[sjd163]

GetCaretPos对其它窗口无效

[sjd163]

Help me!

[SCSDN]

up

[goodboyws]

classwizard——add class from a type library, 选择msword.olb(在Office安装目录下\Office11)
选择添加_Application、Documents 、_Document、Window几个类然后添加以下代码
Application wordApp;
wordApp.CreateDispatch("word.Application");
Documents wordDocs;
wordDocs.AttachDispatch(wordApp.GetDocuments());
wordApp.SetVisible(TRUE); //This shows the application.
COleVariant covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
_Document testDoc;
testDoc.AttachDispatch(wordDocs.Open(
COleVariant("C:\\a.doc",VT_BSTR),
covFalse, // Confirm Conversion.
covFalse, // ReadOnly.
covFalse, // AddToRecentFiles.
covOptional, // PasswordDocument.
covOptional, // PasswordTemplate.
covFalse, // Revert.
covOptional, // WritePasswordDocument.
covOptional, // WritePasswordTemplate.
covOptional,
covOptional,
covOptional,
covOptional,covOptional,covOptional,covOptional) // Format.
);
Selection Sel;
Range Rag;
Sel.AttachDispatch(wordApp.GetSelection());
Rag.AttachDispatch(Sel.GetRange());
long start, end;
start = Rag.GetStart();
end = Rag.GetEnd();
start、end就是光标位置，没有选中两个值一样

[goodboyws]

有几处错误：
1. 选择添加类_Application，Documents，_Document，Selection，Range
2. 第一句代码Application wordApp;改为_Application wordApp;