home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 October / PCPRO_OCT.ISO / code / win / code_1.txt next >
Encoding:
Text File  |  1995-08-08  |  214 b   |  8 lines
  1. Sub NewWordObjectInBinder()
  2. Dim newBinder As Object
  3. Set newBinder = CreateObject("Office.Binder")
  4. newBinder.Visible = True
  5. newBinder.Sections.Add Type:="Word.Document"
  6. newBinder.Sections(1).Activate
  7. End Sub
  8.