Trouble working with word

[Rob2k2]

I am using the following code to open a word document and insert two pictures:-

Public WordApp As New Word.Application
Public TestDoc As Word.Document
Dim Sel As Word.Selection

Private Sub LPCBtn_Click()

Dim LogoRange As Word.Range

Set TestDoc = WordApp.Documents.Open("C:\Documents and Settings\Robert\Desktop\Print Single Letter\TestDocument.doc&quot
Set TestDoc = ActiveDocument

With TestDoc
Set LogoRange = ActiveDocument.Bookmarks("TopLogo&quot.Range
Selection.InlineShapes.AddPicture FileName:="C:\Documents and Settings\Robert\Desktop\Print Single Letter\LPCLogo.tiff", LinkToFile:=False, SaveWithDocument:=True, Range:=LogoRange
Set LogoRange = ActiveDocument.Bookmarks("BottomLogo&quot.Range
Selection.InlineShapes.AddPicture FileName:="C:\Documents and Settings\Robert\Desktop\Print Single Letter\LPCFooter.tiff", LinkToFile:=False, SaveWithDocument:=True, Range:=LogoRange
End With
WordApp.Visible = True
Set TestDoc = Nothing
Set WordApp = Nothing
End Sub

The problem is when i first click the button, everything works fine. I then close word and try and click the button again and I get an error on this line:-

Set TestDoc = ActiveDocument

"The remote server machine does not exist"

Any ideas?

 

[VBslammer]

I suspect it has something to do with the module-level declaration of the app variable:

Public WordApp As New Word.Application

When you set it to nothing, how do you reinstantiate it?

Set WordApp = Nothing

Also, when you open the document with:

Set TestDoc = WordApp.Documents.Open(...)

It's already assigned to the active document so:

Set TestDoc = WordApp.ActiveDocument

is redundant. VBSlammer

Unemployed in Houston, Texas

 

[JohnYingling]

Try
WordApp.Quit false ' Quit and do not save
Set WordApp = Nothing

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript