How To Automate the Microsoft Office Binder Object through OLE (153305)

MORE INFORMATION

Step-by-Step Example

1. Start a new project in Visual Basic. Form1 is created by default.
2. Place a CommandButton on Form1.
3. On the Tools References menu, click the Office Binder Type Library.
4. Add the following code to the General Declarations section of Form1:

   Option Explicit
   
         Private Sub Command1_Click()
            Dim objBinder As Object
            Dim objWord As Object
            Set objBinder = CreateObject("Office.Binder")
            objBinder.Visible = True
            Set objWord = CreateObject("Word.Basic")
            With objWord
               .FileNewDefault
                .FormatStyle Name:="Heading 1", Apply:=True
                .Insert "OLE Automation to Office Binder"
                .InsertPara
                .FileSaveAs "c:\ole_test.DOC"
                .FileClose
            End With
            Set objWord = Nothing
            With objBinder
             .Sections.Add filename:="c:\ole_test.doc"
             .Sections(1).Name = "Ole Sample from VB"
             .SaveAs filename:="c:\vbNewBinder.obd", _
                 saveOption:=bindOverwriteExisting
             .Visible = False
            End With
            Set objBinder = Nothing
         End Sub
   					

5. Run the project, and click the CommandButton. The Microsoft Word document and Microsoft Office binder files are created on the root of the C: drive. You could just as easily create an object for Microsoft Excel, Microsoft Project, or Microsoft PowerPoint, and save the files into the Binder object in exactly the same way.