devxlogo

Programmatically Close The Binder Object

Programmatically Close The Binder Object

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

devx-admin

Share the Post: