Using Macro to Close Word File

  • Thread starter Thread starter dwake
  • Start date Start date
Try the below. Make sure the name of word document is typed correctly....

Sub ControlWord()
Dim appWord As Object
Set appWord = GetObject(, "Word.Application")
appWord.Documents("Content Management.doc").Close False
End Sub
 
Tried that and it didnt work. The problem I'm having is closing the word
document after it has been used. Here is my code below. Any help would be
appreciated.

Sub WordToExcel()
Dim MyWd As Object
Set MyWd = GetObject("Audit Tracking.doc")

MyWd.ActiveWindow.Selection.WholeStory
MyWd.ActiveWindow.Selection.Copy

Sheet8.Range("A1").PasteSpecial xlPasteValues
End Sub
 
Try

Sub ControlWord()
Dim appWord As Object
Set appWord = GetObject(, "Word.Application")
appWord.Documents("Audit Tracking.doc").ActiveWindow.Selection.Copy
Range("A1").PasteSpecial xlPasteValues
appWord.Documents("Audit Tracking.doc").Close False
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Need help on VBA excel macro and API to close an external application 0
Closing file with macro 3
Excel to word macro 1
Macro to Close Files - getting past message 5
problem with macro setting 1
Close Excel with a Macro 2
Word to Excel: Export comments with text and line number 0
Macro to close Excel 2007 2

Back
Top