Создание переменной
|
Private Sub Document_New() Const MyPath = "e:\O2000\Book2\Cd\Ch1\" Const Lin1 = "OpenDoc" Dim Beg As Long 'Создание переменной - хранителя информации в новом документе With ActiveDocument.Variables If Not ExistVar("CounterDoc") Then 'Добавляем переменную .Add Name:="CounterDoc", Value:= 0 End If End With With ActiveDocument.VBProject.VBComponents("ThisDocument").CodeModule 'Создание процедуры - события в новом документе Call .CreateEventProc("Open", "Document") 'Определение точки вставки в процедуру 'Beg = .ProcStartLine("Document_Open", 0) Beg = .ProcBodyLine("Document_Open", 0) 'Вставка текста в процедуру Call .InsertLines(Beg + 1, Lin1) End With 'Добавление модуля в проект нового документа ActiveDocument.VBProject.VBComponents.Add (vbext_ct_StdModule) 'Переименование модуля ActiveDocument.VBProject.VBComponents("Module1").Name = "AddedModule" With ActiveDocument.VBProject.VBComponents("AddedModule").CodeModule 'вставка текста процедуры из файла .AddFromFile (MyPath & "AddingModule.bas") End With End Sub |
| Листинг 4.5. |
| Закрыть окно |
