1

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

Здравствуйте, речь идёт о FormFields в Ворде

2

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

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

3

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

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

4

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

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

5

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

вроде должно так, но увы:

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

6

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

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

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

7

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

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