[AccessD] Automation Problem - Closing Word

Rocky Smolin at Beach Access Software rockysmolin at bchacc.com
Sat Apr 7 13:30:13 CDT 2007


Aha.  Quit.  Thank you.

Rocky
 




 	
	

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: Saturday, April 07, 2007 10:20 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Automation Problem - Closing Word

Add this line

  objWord.Documents.Close
  objWord.Quit
  Set objWord = Nothing



Rocky Smolin at Beach Access Software wrote:

>Dear List:
> 
>I am getting the text of a document into a string variable from a word doc.
>Then I want to close word.  I get the text of the document OK (which 
>then goes into an email).
> 
>But with the code below, the document closes but Word says open.    How can
>I get WORD closed up?
> 
>    Dim objWord As Object
>    
>    ' Get the body text
>    Set objWord = CreateObject("Word.Application")
>    objWord.Documents.Open (argDocument)
>    objWord.Selection.WholeStory
>    strBody = objWord.Selection
>    'MsgBox strBody
>    objWord.Documents.Close
>    Set objWord = Nothing
>
> 
>MTIA
> 
>Rocky
> 
>
>
> 	
>	
>  
>

--
Marty Connelly
Victoria, B.C.
Canada

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 268.18.26/750 - Release Date: 4/6/2007
9:30 PM
 




More information about the AccessD mailing list