Создание подшивки средствами VBA
Создание подшивки средствами VBA
В этом упражнении Вы создадите новый файл подшивки и добавите в него документы Microsoft Word и Microsoft Excel.
> Создание подшивки и добавление компонентов
- Запустите Microsoft Visual Basic.
- Создайте новый проект типа Standard EXE.
- В меню Project щелкните References.
- Установите ссылку на Microsoft Binder 8.0 Object Library.
- Включите в форму командную кнопку cmdCreate, назвав ее &Create Binder.
- В событии 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
- В меню Run щелкните Start.
- Щелкните кнопку Create Binder.
Приложение создаст экземпляр подшивки Office Binder и посредством автоматизации добавит в нее документ Word и электронную таблицу Excel.
- Завершите работу программы и закройте Visual Basic.