Использование VBscript для хранения пользовательских типов и констант для обмена данными между Word и Excel VBA?

Question

Я использую VBA для автоматизации некоторых задач в некоторых файлах Word и Excel (Office 2010) и между ними. Прямо сейчас у меня есть код VBA, который используется только Word, хранящимся в файле Word, и код VBA, который используется только в Excel, хранящемся в файле Excel, причем материал VBA с перекрестными приложениями хранится в файле Word. Тем не менее, есть некоторые пользовательские типы и константы, которые я хотел бы использовать как в специфичном для Word, так и в VBA-коде Excel. Есть ли нейтральный для приложения способ хранить эти общие типы данных и константы в отдельном модуле, например, в VBscript, где он может использоваться как Excel, так и Word, без необходимости определять их в обоих местах? Если да, как я могу ссылаться на этот внешний файл в каждом шаблоне?

Answer 1

Вы можете сохранить их в .bas-файле и импортировать обновление. Для Excel, импорт с помощью:

Public Sub GetModules() 
    ThisWorkbook.VBProject.VBComponents("modCommons").Name = "DELETEME" 
    ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("DELETEME") 
    ThisWorkbook.VBProject.VBComponents.Import ("C:\modCommons.bas") 
End Sub 

modCommons.bas

Attribute VB_Name = "modCommons" 
    Public Const itest As Integer = 101 
    Public Const itest2 As Integer = 102 

    Public Sub TestSub 
     msgbox "test success" 
    End Sub 

Для Word, заменить ThisWorkbook с ThisDocument.