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


Пример 5.8


? ActiveDocument.Scripts.Count 1 ? ActiveDocument.Scripts(1).Id Hello ? ActiveDocument.Scripts(1).Language 2 ? ActiveDocument.Scripts(1).Location 1 ? ActiveDocument.Scripts(1).ScriptText

<!-- Function Hello() Dim Answer Answer = InputBox("Enter Your Name, please") MsgBox ("Hi " & Answer & "!") UserName.innerText = "Hello, " & Answer &"!" End Function -->

Листинг 5.8.

Закрыть окно




Начало  Назад  Вперед



Книжный магазин