Как проверить, от какого Office Application Code VBA работает от?

Я в настоящее время использую код VBA, который изначально был предназначен для документа Excel. Я мог бы просто ризать код для использования в Word, но я думаю, что может быть лучше продлить приложение, чтобы он совместим на «потенциально» любого приложения MS Office. Но я не совсем уверен, как это сделать.

Например, код на основе Excel извлекает путь к пути документа:

If libDir = "" Then libDir = ThisWorkbook.Path

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

Но можно было бы узнать, какое офисное приложение запущено код VBA, чтобы я мог сохранить оба.

 'IF VBA run from Word Then
     If libDir = "" Then libDir = ThisWorkbook.Path
 'ELSE VBA run from Excel then
     If libDir = "" Then libDir = ActiveDocument.path
 'End If

До сих пор я вижу, что я могу узнать, если слово или Excel открыто, но я не могу предположить, что потому, что он открыт, он работает на этом конкретном модуле. Но это за пределами моих знаний VBA.

Я также пробовал это currentProject.Path , но это не работает.

заранее спасибо

0
задан Community 23 May 2017 в 11:52
поделиться