Cannot destroy Word Object in Excel

[dai50]

I'm using a Word object to write information to the registry from within
an Excel Macro (this is in order to generate a PDF file using CutePDF).
Everything works fine but the Winword object is still resident in
memory.

The code is as follows:

Function SetRegKeys(Section as String, Key as String, KeyValue) as
Boolean
Dim wrd As Word.Application
SetRegistrySetting = False
Set wrd = New Word.Application
On Error Resume Next
wrd.System.PrivateProfileString("", Section, Key) = CStr(KeyValue)
On Error GoTo 0
Set wrd = Nothing
SetRegistrySetting = True
End Function

It's probably self evident but I should add that I am no VBA expert.

Thanks

 

[Jim Thomlinson]

You need to close the application before you set it to nothing...

wrd.close
set wrd = nothing

 

[NickHK]

I'm curious as why you are using Word to write to the Registry, if this code
is in Excel.
If VBA Savesetting cannot save to the correct key, the API versions
certainly can.

NickHK

 

[dai50]

Re: Cannot destroy Word Object in Excel
Nick
This is the only method I found (on a forum) to write to the Registry.
I was also perplexed as to why a word object was used and would prefer
a less convoluted process. I found that using
Wrd.Application.Quit

prior to

set wrd = nothing

removed word from memory and resolved the problem but I'll check your
suggestion - so may be here soon.

Many Thanks

Dai


____________________________________
I'm curious as why you are using Word to write to the Registry, if this
code
is in Excel.
If VBA Savesetting cannot save to the correct key, the API versions
certainly can.

NickHK

message