здравствуйте, у меня есть модуль, форма и класс модуля, но моём компе они работают, но если их экспортировать, удалить Нормал.дот, снова их импортировать, то они не работают как надо, по задумке при выделении нужного текста они дожны сработать - вызваться форма, что не так?
модуль Запуск_класса_модуля_SP
| Visual Basic |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Option Explicit
'служит для запуска класса модуля SelectionPaste, который служит для запуска процедур при событиях:
'выделение определённого текста в документе
'нажатие правой кнопки мыши
'после двойного щелчка левой клавиши мыши
Dim x As New SelectionPaste
'
Sub Запуск_класса_модуля_SelectionPaste()
Set x.App = Word.Application
End Sub |
|
класс модуля SelectionPaste
| Visual Basic |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
| Option Explicit
Public WithEvents App As Word.Application
'
Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)
'событие нажатие правой кнопки мыши
'Before - Прежде чем
'Right - Право
'Click -Нажмите
'проверка на работоспособность
'MsgBox$ "Класс SelectionPaste - Нажата правая кнопка мыши"
End Sub
'нажатие левой кнопки мыши не обрабатывается !!! Private Sub App_WindowBeforeLeftClick(ByVal Sel As Selection, Cancel As Boolean)
Private Sub App_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
'событие после двойного щелчка левой клавиши мыши
'Before - Прежде чем
'Double - Двойной
'Click -Нажмите
'проверка на работоспособность
'MsgBox$ "Класс SelectionPaste - Двойной щелчок левой клавиши мыши"
End Sub
Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
'проверка на работоспособность
'If Len(Selection) <> 0 Then MsgBox$ "Класс SelectionPaste - Выделено"
'отключаем дёргание экрана при выполнении кода
Application.ScreenUpdating = False
'MsgBox$ Selection.Text
If Selection.Text = "января " Or _
Selection.Text = "февраля " Or _
Selection.Text = "марта " Or _
Selection.Text = "апреля " Or _
Selection.Text = "мая " Or _
Selection.Text = "июня " Or _
Selection.Text = "июля " Or _
Selection.Text = "августа " Or _
Selection.Text = "сентября " Or _
Selection.Text = "октября " Or _
Selection.Text = "ноября " Or _
Selection.Text = "декабря " Or _
Selection.Text = "военнообязанный" Or _
Selection.Text = "военнообязанный" & vbCr Or _
Selection.Text = "военнообязанная" Or _
Selection.Text = "военнообязанная" & vbCr Or _
Selection.Text = "женат" Or _
Selection.Text = "женат" & vbCr Or _
Selection.Text = "холост" Or _
Selection.Text = "холост" & vbCr Or _
Selection.Text = "замужем" Or _
Selection.Text = "замужем" & vbCr Then
'показать форму с именем ..., режим - по умолчанию 0, что означает открыть форму в немодальном режиме
январь_декабрь.Show
End If
'отменяем отключенное ранее обновление - дёргание экрана при выполнении кода
Application.ScreenUpdating = True
End Sub |
|
спасибо
(
