Тема: Запретить показ параметров текстового поля
Здравствуйте, речь идёт о FormFields в Ворде
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте, речь идёт о FormFields в Ворде
оказывается это чудо строка: Cancel = True
двинусь дальше, как отследить, что на указанное поле кликнули мышью я знаю, а как после этого события указать показать параметры текстового поля?
то есть имитация двойного клика мышью программно как делается?
вроде должно так, но увы:
Private Declare Function GetCursorPos Lib "user32" ( _
lpPoint As POINTAPI) As LongPrivate 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 = &H4Private 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 должно хватать за глаза, но увы, прошу помощи
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться