Доброго времени суток всем!
Имеется код:
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.
Private Sub GlobalMacroStorage_QueryDocumentClose(ByVal doc As Document, ByRef Cancel As Boolean)
'MsgBox "kt2"
Dim tmp As String
tmp = ActiveDocument.Name
If (Not (LinkTab Is Nothing)) And (LinkTab.TabWindows.Tabs.Count > 0) Then
LinkTab.TabWindows.Tabs.Remove (tmp)
End If
End Sub
Private Sub GlobalMacroStorage_DocumentNew(ByVal doc As Document, ByVal FromTemplate As Boolean, ByVal Template As String, ByVal IncludeGraphics As Boolean)
Dim tmp4 As String
tmp4 = ActiveDocument.Name
If (Not (LinkTab Is Nothing)) Then
LinkTab.TabWindows.Tabs.Add
LinkTab.TabWindows(LinkTab.TabWindows.Tabs.Count - 1).Name = tmp4
LinkTab.TabWindows(LinkTab.TabWindows.Tabs.Count - 1).Caption = tmp4
LinkTab.TabWindows.Value = (ActiveDocument.Index - 1)
End If
End Sub
Private Sub GlobalMacroStorage_DocumentOpen(ByVal doc As Document, ByVal FileName As String)
Dim tmp5 As String
tmp5 = ActiveDocument.Name
If (Not (LinkTab Is Nothing)) Then
LinkTab.TabWindows.Tabs.Add
LinkTab.TabWindows(LinkTab.TabWindows.Tabs.Count - 1).Name = tmp5
LinkTab.TabWindows(LinkTab.TabWindows.Tabs.Count - 1).Caption = tmp5
LinkTab.TabWindows.Value = (ActiveDocument.Index - 1)
End If
End Sub
Что он должен делать, сейчас не суть. Проблема в том, что на одном компьютере всё нормально работает, на на другом просто не происходит обращения к коду при соответствующем событии (DocumentOpen,DocumentNew итд.) ...
Версии корела в обоих случаях совпадают - Х6
Интересует мнение коллективного разума, куда копать и где собака могла порыться?
