VBA Word Doc не будет закрываться на определенных компьютерах или с некоторыми версиями Word

В программе Excel vba у меня есть функция, которая возвращает строку текста документа из документа Word. Он работает на каждом компьютере, который я пробовал, кроме моего рабочего ноутбука. На моем рабочем ноутбуке он не может закрыть документ Word.

Следующий код работает на моих домашних компьютерах с Word 2011 и рабочей станцией с Word 2010, но не на моем рабочем ноутбуке с Word 2013. При работе на моем рабочем ноутбуке программа зависает на doc.Close.

Я проверил, что все доступные мне ссылки / библиотеки включены (библиотеки объектов Word, библиотеки объектов Excel, библиотеки объектов Microsoft Office). Я стучу головой о стену этим. Вот код:

Private Function getDocText(filePath As String) As String Dim host As New Word.Application Dim doc As Word.Document Dim doctext As String Set doc = host.Documents.Open(filePath) doctext = doc.Content.Text doc.Close host.Quit getDocText = doctext End Function 

Давайте будем гением компьютера.