Добрый день.  
Нашел в форуме код. Не работает. Код прописываю в модуле вба эксель.  
Посмотрите, пожалуйста, что не так в коде?  
 
Option Explicit  
Dim objWord As Object  
Dim objDoc As Object  
 
Public Sub PD()  
Set objWord = CreateObject("Word.Application")  
Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\PD.docm")  
'Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\PD.doc") - так таже не работает  
 
objDoc.Save  
objDoc.Close  
objWord.Quit  
End Sub