How to SaveAs a word doc which is already open

[sim2020]

My application opens up a word document in preview mode. I'm trying to close the preview mode, then it opens the file in a compatibility mode. I need to save as the file in a folder.

I've tried like this:

 Sys.Process("WINWORD", 2).Close      - This closes the preview mode

If (Sys.Process("WINWORD").Exists) Then
Set WordObject =Sys.OleObject("Word.Application")
WordObject.ActiveDocument.SaveAs("C:\work.doc")

End If

I get an error in the 'WordObject.ActiveDocument.SaveAs("C:\work.doc")' statement 'This command is not available because no document is open'

How can I handle this? Any help would appreciate.

[tristaanogre]

Sys.OleObject doesn't use an exsisting process of Word but actually creates a new instance.  So, your WordObject is a different instance than the running Word instance hence why it doesn't think there is doc open.

Suggested change... no guarentees, just a suggestion.

 Sys.Process("WINWORD", 2).Close      - This closes the preview mode
Set WordObject = Sys.WaitProcess('WINWORD")
If (WordObject.Exists) Then
WordObject.ActiveDocument.SaveAs("C:\work.doc")

End If

[sonya_m]

Thank you for help tristaanogre! 

Hi @sim2020 , did you solve the issue?   

[sim2020 · Accepted solution]

Thanks, @tristaanogre for the reply. That didn't work, unfortunately. I have managed to find the temp file in a folder and take a copy of that as a solution to my issue.

[sonya_m]

Great to hear you’ve found a workaround!