Запретить показ параметров текстового поля

[Ципихович Эндрю]

Здравствуйте, подскажите как запретить показ параметров текстового поля - FormFields в Ворде, спасибо

[Ципихович Эндрю]

оказывается это чудо строка: Cancel = True

[Ципихович Эндрю]

двинусь дальше, как отследить, что на указанное поле кликнули мышью я знаю, а как после этого события указать показать параметры текстового поля?

[Ципихович Эндрю]

то есть имитация двойного клика мышью программно как делается?

[Ципихович Эндрю]

Private Declare Function GetCursorPos Lib "user32" ( _
lpPoint As POINTAPI) As Long

Private Declare Sub mouse_event Lib "user32" ( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
'

Sub r()

GetCursorPos z
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

End Sub

думал так, но увы
??

[Ципихович Эндрю]

вспомнил, но именно поле не открывает

Option Explicit

Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4

Private Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

'объявление структуры POINTAPI:
Type POINTAPI
X As Long
Y As Long
End Type
'

Sub r()

mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

End Sub

[Ципихович Эндрю]

если подумать то примерно этой строки Selection.FormFields(1).Application .Visible = True должно хватать за глаза, но увы, прошу помощи