Основы офисного программирования и документы Word

Разбор случаев, какой проект подключен


Public Sub CallProcFromProject() 'Вызов процедуры подключаемого проекта ' Разбор случаев, какой проект подключен If NoP = "DocTwo" Then Proc2 ElseIf NoP = "DocThree" Then Proc3 End If End Sub
Public Sub Proc2() 'Вызов процедуры проекта 2 DocTwo.DocTwoModule.TestPrint End Sub Public Sub Proc3() 'Вызов процедуры проекта 2 DocThree.DocThreeModule.TestPrint End Sub
Листинг 4.11.
Закрыть окно
Содержание раздела