Because of customer complaints and confusion, Microsoft Office applicationswill begin to implement this strategy for programmatically closing Officeapplications. First, hide the object by setting Object.Visible to false.Then let the object variable go out of scope or set it to Nothing.
Private Sub Command3_Click() Dim objBinder As OfficeBinder.Binder Dim objWord As Word.WordBasicSet objBinder = CreateObject("Office.Binder") objBinder.Visible = True Set objWord = CreateObject("Word.Basic") With objWord .FileNewDefault .FormatStyle Name:="Heading 1", Apply:=True .Insert "Really cool tip from VBPJ" .InsertPara .FileSaveAs "c:VBPJ Tip.DOC" .FileClose End With Set objWord = Nothing With objBinder .Sections.Add filename:="c:VBPJ Tip.doc" .Sections(1).Name = "VBPJ Tip" .SaveAs filename:="c:VBPJ.obd", _ saveOption:=bindOverwriteExisting .Visible = FalseEnd WithSet objBinder = Nothing 'Close the Binder ObjectEnd Sub