"distant server not responding" when openin a word file

[MrBaRRon]

Hi everybody,

I use this code to open a Word file from ACCESS:

Set wrd = CreateObject(Word.Application)
Wrd.visible = true
wrd.Documents.open "c:\test_vba\test_vba.doc"

It works well the first time, but when I close Word and the document and I click again on my button to execute the procedure, it show me this message error: " Distant server not responding error n° 462"

I don't understand why because when I retry just after , it works well. So It works one time on two.

Why ???

Thank U

 

[MrBaRRon]

Sorry but I have to say you that it's not the code that opens the file which not works but this one to modify the document:

Selection.Collapse Direction:=wdCollapseStart
Set Mytable = Activedocument.Tables.add(range:=Selection.range, Numrows:=5, Numcolumns:= 5)

It works one time but the time after not and the time after yes...

Thank U

 

[PHV]

And I guess you have some word processes in the task manager, as you have some implicit instantiation of words object.
e.g., replace this:
Selection.Collapse Direction:=wdCollapseStart
Set Mytable = Activedocument.Tables.add(range:=Selection.range, Numrows:=5, Numcolumns:= 5)
By this:
Wrd.Selection.Collapse Direction:=wdCollapseStart
Set Mytable = Wrd.Activedocument.Tables.Add(Range:=Wrd.Selection.Range, NumRows:=5, NumColumns:=5)
And so on ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[MrBaRRon]

No It doesn't works anymore. Thank u guy and if u have another idea say it to me. ; )

 

[PHV]

Just post your code, from Set wrd = CreateObject to Set wrd = nothing.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244