Window.GetPoint (Word)

Retorna as coordenadas de tela da forma ou intervalo especificado.

Se o intervalo ou forma não estiver totalmente visível na tela, ocorrerá um erro.

GetPoint (ScreenPixelsLeft, ScreenPixelsTop, ScreenPixelsWidth, ScreenPixelsHeight, obj)

Dim pLeft As Long 
Dim pTop As Long 
Dim pWidth As Long 
Dim pHeight As Long 
 
ActiveWindow.GetPoint pLeft, pTop, pWidth, pHeight, _ 
 Selection.Range 
MsgBox "Left = " & pLeft & vbLf _ 
 & "Top = " & pTop & vbLf _ 
 & "Width = " & pWidth & vbLf _ 
 & "Height = " & pHeight

Arguments

O seguinte argumento é opcional

ScreenPixelsLeft (Long) - O nome da variável para a qual você deseja que o Microsoft Word retorne o valor referente à borda esquerda do objeto.

ScreenPixelsTop (Long) - O nome da variável para a qual você deseja que o Microsoft Word retorne o valor referente à borda superior do objeto.

ScreenPixelsWidth (Long) - O nome da variável para a qual você deseja que o Microsoft Word retorne o valor referente à largura do objeto.

ScreenPixelsHeight (Long) - O nome da variável para a qual você deseja que o Microsoft Word retorne o valor referente à altura do objeto.

obj (Shape) - Um objeto Range ou Shape.