Dim MyProject As VBProject Dim
|
Public Sub WorkWithVBProject() 'Компоненты и ссылки проекта ' Dim MyProject As VBProject Dim MyProject As Object 'Dim MyComp As VBComponent Dim MyComp As Object 'Dim MyRef As Reference Dim MyRef As Object Set MyProject = ActiveDocument.VBProject With MyProject 'Печать имени и типа для каждой существующей компоненты проекта Debug.Print "Число компонент проекта - ", .VBComponents.Count For Each MyComp In .VBComponents Debug.Print "Имя компоненты - ", MyComp.Name, "Тип - ", MyComp.Type If MyComp.Name = "NewMacros" Then MyComp.Name = "DocOneMacros" Next MyComp 'Добавление формы - новой компоненты проекта .VBComponents.Add vbext_ct_MSForm 'Печать имени и типа для каждой существующей компоненты проекта Debug.Print "Число компонент проекта - ", .VBComponents.Count For Each MyComp In .VBComponents Debug.Print "Имя компоненты - ", MyComp.Name, "Тип - ", MyComp.Type If MyComp.Name = "NewMacros" Then MyComp.Name = "DocOneMacros" Next MyComp 'Печать имени и типа для каждой существующей ссылки проекта For Each MyRef In .References Debug.Print "Имя ссылки -", MyRef.Name, "Тип -", MyRef.Type Next MyRef End With End Sub |
| Листинг 4.3. |
| Закрыть окно |
