ACC: How to Use Automation to Create a Microsoft Office Binder

SUMMARY

This article shows you how to create a Microsoft Office Binder that includes documents from a variety of Microsoft Office programs.

This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the "Building Applications with Microsoft Access" manual.

   Private Sub cmdOLEBinder_Click()
       Dim boObj As Object, boSec As Object
       Set boObj = CreateObject("Office.Binder")
       boObj.Visible = True
       boObj.Sections.Add ("Word.Document")
       boObj.Sections.Add ("Excel.Sheet")
       boObj.Sections.Add ("PowerPoint.Show")
       boObj.SaveAs FileName:="Mybind.obd"
       Set boObj = Nothing
   End Sub