Need a code to open Word via Excel VBA

[eduzs]

I am working on a project and I need to code it using VBA to open an existing Word doc (hidden windows if possible), type anything in anywhere in this doc, print this Word doc, then close the doc, and if there's no other open document close the Word application and set focus (activate) back the Excel window with the worksheet last on focus.

Need help.

Thanks

 

[Macropod]

At its most basic you could use code like:

Sub Demo()
'Note: A reference to the Word library must be set, via Tools|References
Dim wdApp As New Word.Application, wdDoc As Word.Document
Const StrDocNm As String = "Full document name & path"
If Dir(StrDocNm) = "" Then Exit Sub
Set wdDoc = wdApp.Documents.Open(Filename:=StrDocNm, ReadOnly:=False, AddToRecentfiles:=False)
With wdDoc
    'process the document
    
    'print the document
    .PrintOut
    'save & close
    .Close SaveChanges:=True
End With
Set wdDoc = Nothing: Set wdApp = Nothing
End Sub

However, since you don't say what is to be updated or where the data for that come from, I can't help you with that. Note that a VBA refernce to the Word library is required and that the code also assumes the changes are to be saved. You'll also need to supply the full document name & path, as indicated in the code.

 

[eduzs]

It seens that work fine, I will adapt to my existing code.

Thanks