Как сохранить привязку Excel к библиотеке объектов Microsoft Word 15.0?

Question

У нас очень сложный шаблон электронной таблицы Excel 2010. Каждая новая копия шаблона должна проходить через несколько человек во время его жизни.

К сожалению, один из первых людей, использующих шаблон, имеет установленный Office 365. После того, как он коснулся его, электронная таблица, похоже, привязана к библиотеке объектов Microsoft Word 15.0, которая недоступна на ПК Excel 2010. В то время как отдельный сломанный файл можно устранить, сняв флажок с отсутствующей библиотеки объектов Word в Инструментах кода VBA> Ссылки, мне нужно найти способ предотвратить это в первую очередь.

Я подробно рассмотрел код и не могу найти ссылки на библиотеку объектов MS Word, так что же в первую очередь вызывает привязку Excel к нему? Есть ли что-нибудь, что я могу сделать, чтобы это предотвратить?

Answer 1

непроверенная, но положить что-то подобное в вашем Workbook_BeforeSave случае, вероятно, работать:

With ThisWorkbook.VBProject.References 
    For i = .Count To 1 Step -1 
     If InStr(.Item(i).Name, "Word") <> 0 Then .Remove .Item(i) 
    Next 
End With 

Отказ от ответственности: У меня нет Office 365 и не знаю, почему он будет автоматически добавить ссылку на слово 15.0 ; во всяком случае, вышесказанное предполагает, что это так.

Answer 2

Чтобы удалить, поместите внутри модуля: Я знаю, что это не предотвратит его в первую очередь, но это может помочь, по крайней мере, удалить его перед следующим человеком.

Private Sub RemoveRef() 
    Dim Reference As Object 
    For Each Reference In ThisWorkbook.VBProject.References 
      If Reference.Description = "Microsoft Word 15.0 Object library" Then 
       ThisWorkbook.VBProject.References.Remove Reference 
      End If 
    Next 
End Sub