[求助]请教:如何取得word文档左上角的位置??

flyswift

我用application.left,application.top可以取得word窗口左上角的位置..

但是偶不知道如何取得文档窗口左上角的位置了..

请高人指点一下..多谢了!!!

[此贴子已经被作者于2005-4-17 16:54:09编辑过]

flyswift

偶顶一下..

小弟很急啊....希望哪位大哥出来解答一下吧~~~~~~~~

先谢啦~~~~~~~~

守柔

我本来想把代码写出来的。

你急的话，你看一下这样是否可行：

ACTIVEDOCUMENT.RANGE(0,0)的位置是可以知道的,通过INFORMATION属性,然后,减去页面设置的.PageSetup.TopMargin\.PageSetup.LeftMargin便是此位置的坐标.

我没有实践过,请楼主试一下.

flyswift

多谢版主大哥!!~~~~

还是请版主大哥帮忙写详细点吧....我查Range对象,好像并没有left,top属性啊..不知道该怎样获得Range(0,0)的位置..

还有,我主要想得到的是文档窗口左上角,相对于程序窗口左上角的偏移量...因为我编写的VC程序只能得到程序窗口的位置,有了这个偏移量,才能计算出文档窗口的位置.

再谢!thanks again

守柔

这是我原来的某个程序中的代码，你姑且试一下：

Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean) SLT = Sel.Information(wdHorizontalPositionRelativeToPage) '获得光标的LEFT位置 STP = Sel.Information(wdVerticalPositionRelativeToPage) '获得光标的TOP位置 End Sub将此处的SEL替换为activedocument.range(0,0)试一下。

flyswift

Sub MyMacros1() Dim range As range Dim Left, Top, MarginLeft, MarginTop As Integer Set range = Application.ActiveDocument.range(0, 0) Left = range.Information(wdHorizontalPositionRelativeToPage) Top = range.Information(wdVerticalPositionRelativeToPage) MarginLeft = Application.ActiveDocument.PageSetup.LeftMargin MarginTop = Application.ActiveDocument.PageSetup.TopMargin Left = Left - MarginLeft Top = Top - MarginTop Application.Selection.TypeText (Left) Application.Selection.TypeText (" ") Application.Selection.TypeText (Top) End Sub

我写了个这个宏,但是运行后left=90,top=72,

MarginLeft =90,Margintop=72.结果相减后得到0了..

这样好像并不能求得文档左上角 相对于 程序窗口左上角的偏移啊..

请守柔大哥解疑

守柔

请楼主同该链接贴子的楼主联系一下,他后来完成了,但是,没有把代码贴上来.

http://club.excelhome.net/viewthread.php?tid=88252

flyswift

守柔大哥,这篇帖子我看了,并且留了言.....联系了作者,还在等待回复.

不过,经过昨天晚上的研究,我发现用VC代码可以取得WORD程序的"灰色窗口"的句柄,也就是说,我可以精确定位这个窗口的位置....但是,始终无法取得中间白色文档区域的窗口句柄..因此我猜想,中间白色文档区域并不是一个WORD的子窗口,在WORD的具体实现中,它可能只是在"灰色窗口"中画了一个白色的矩形而已...

因此,如图所示,A点的位置我可以取得,那么只要求得了X和Y的值,我就可以求得B点的位置了...

请守柔大哥指教,如何取得X和Y的值??

flyswift

呀,忘了传图了...

怎么回复里好像不能传图啊..

我把图片帖在一楼里啊