根据选中单词坐标定位窗体显示位置（不知能否实现）

666611430

根据选中的单词坐标定位窗体显示位置

***这段时间开发一个插件，遇到了很棘手的问题，由于能力有限，请高手踢脚。感谢万分。

总体要求：

1. 窗体根据被选中单词坐标，只能显示在正文边框内，不得超出正文边框外，即如11图所示蓝色边框内。

2. 当页面参数被改变时(页边距，页面方向，纸张大小，页面缩放等等)，也不得影响窗体显示位置。

3. 根据选中单词对屏幕的坐标决定窗体显示在被选中单词左边还是右边，上边还是下边。

4.如果根据选中单词定位窗体，不超出正文边框，就以选中单词右边作为标准，窗体显示在选中单词下方，于选中单词右边对齐。
5.对于选中单词和窗体之间的距离，无论是哪一种情况都是一定的，无加以要求。

sylun

可以查看GetPoint和RangeFromPoint方法

666611430

sylun 发表于 2020-5-10 23:17
可以查看GetPoint和RangeFromPoint方法

谢谢兄弟的关注和指点。
按照你的指点，我查阅了相关内容并凑合了一下代码，但效果不太理想，请兄弟看一下。

1. Public Sub getpix()
   
2. Const Annotation = " [If value is negative, the selection is invisible]"
   
3. Dim o As Object
   
4. Set o = GetObject(, "Word.Application")
   
5. Dim pHgt As Long, pWid As Long, pTop As Long, pL As Long, kb723 As Long
   
6. o.ActiveWindow.GetPoint pL, pTop, pWid, pHgt, Selection.Range  'read the left,top,width,height of the selection
   
7. kb723 = o.ActiveWindow.UsableHeight - o.ActiveWindow.Height + pTop
   
8. MsgBox pTop & vbCrLf _
   
9.        & o.ActiveWindow.Height & vbCrLf _
   
10.        & o.ActiveWindow.UsableHeight & vbCrLf _
    
11.        & kb723 & Annotation & vbCrLf _
    
12.        & pWid
    
13. 
    
14. End Sub

复制代码

上述插图中，对第一种情况和第三种情况的效果不理想。请兄弟完善一下，谢谢。

666611430

自己顶一下，请大侠赐教。

666611430

sylun 发表于 2020-5-10 23:17
可以查看GetPoint和RangeFromPoint方法

请问能不能留一下联系方式？请你赐教，谢谢。

sylun

楼主可以getpoint为关键词搜索一下本版的帖子。getpoint获得的数据只是屏幕位置参数，其长与宽可用，且是以像素为单位，用时需转换为磅值。左上角坐标位置可用selection对象的information属性中的两对位置参数，是相对于文档的（wdHorizontalPositionRelativeToPage与wdHorizontalPositionRelativeToTextBoundary，wdVerticalPositionRelativeToPage与wdVerticalPositionRelativeToTextBoundary）
至于窗体的位置是否能自适应，没有研究

666611430

sylun 发表于 2020-5-17 19:59
楼主可以getpoint为关键词搜索一下本版的帖子。getpoint获得的数据只是屏幕位置参数，其长与宽可用，且是以 ...

谢谢兄弟的关注和指点。通过兄弟的指点本帖的问题以基本解决了，精确定位有点麻烦，我自己看资料再完善完善。
------------------------------
非常感谢兄弟上次帖子中的帮忙，非常有帮助了。
http://club.excelhome.net/thread-1534814-1-2.html
-----------------------------
***现在又想让我要把效果修改成如图所示

***正文最后显示效果***
1.单词的选择方式与上次帖子中的选择方式一样。
2.加序号
3.若有重复单词，只保留一个。
4.加对单词拆分，效果如上图所示。
5.如图红线所示距离以一个TAB隔开
-----------------------------------------------------------
***希望兄弟再一次帮我一个忙。如果兄弟觉得可以留个联系方式，兄弟帮了我大忙，有一点心意给兄弟表示表示。谢谢。

666611430

7楼的要求对我工作的完成非常需要，由于自己水平有限，怎么调试也调试不出来。请@Sylun老师和其他能手们帮我小白解决一下。期待。