Создание подшивки средствами VBA



Создание подшивки средствами VBA

В этом упражнении Вы создадите новый файл подшивки и добавите в него документы Microsoft Word и Microsoft Excel.

> Создание подшивки и добавление компонентов

  1. Запустите Microsoft Visual Basic.
  2. Создайте новый проект типа Standard EXE.
  3. В меню Project щелкните References.
  4. Установите ссылку на Microsoft Binder 8.0 Object Library.
  5. Включите в форму командную кнопку cmdCreate, назвав ее &Create Binder.
  6. В событии cmdCreate_Click введите следующий код:

    Dim BND As OfficeBinder.Binder

    Set BND = CreateObject("Office. Binder")

    BND.Visible = True

    BND.Sections.Add ("Word.Document")

    BND.Sections.Add ("Excel.Sheet")

    BND.SaveAs filename:="NewBinder.obd"



    BND.Close 0

    Set BND = Nothing

  7. В меню Run щелкните Start.
  8. Щелкните кнопку Create Binder.

    Приложение создаст экземпляр подшивки Office Binder и посредством автоматизации добавит в нее документ Word и электронную таблицу Excel.

  9. Завершите работу программы и закройте Visual Basic.



Содержание раздела