Пересылка кода клавиш (из PowerPoint в Word)

Интересно, что при запуске из редактора VBA с помощью клавиши F5 команда SendKeys "{ENTER}" действует как нажатие клавиши ENTER в редакторе VBA.
Указанный макрос работает только при запуске из программы Word (Разработчик - Макросы - [Название_макроса]).

Если такой макрос поместить не в Normal.dot, а в модуль другого документа, то из данного документа он будет не виден и запустить его из приложения Word не получится.
Или я не прав?

Хотел бы воспроизвести эту ситуацию. Но, к сожалению, у меня макрос не виден.
Еще раз описываем условия, если я правильно их понял.
Допустим, открыты 2 файла - Документ 1 и Документ 2.
Ваш макрос находится в модуле файла Документ 1.
Если я нахожусь в файле Документ 2, то я могу выполнить макросы из 4-х источников:
- Активных шаблонов;
- Normal.dotm (общего шаблона);
- команд Word и
- Документ 2 (модуль второго файла).
Ни в одном из этих случаев макрос из Документа 1 не виден.
Как Вам удалось все же его запустить?

У меня все сработало.
Пусть макрос Text1 находится в модуле файла Doc2.docm.
Открываем еще один файл с именем Doc1.docx (мне кажется важным, чтобы оба файла были открыты в различных окнах одного экземпляра Word, а не в двух разных экземплярах).
Делаем активным файл Doc2.docm и запускаем макрос Text1.

Sub Text1()
    Documents("Doc1.docx").Activate
    ' Файл Doc1.docx должен быть открыт в Ворде, но неактивен.

    Selection.TypeText Text:="=rand()"
    SendKeys "{ENTER}"
End Sub

Попробуйте.

К сожалению, я не являюсь специалистом по макросам в PowerPoint, но попробуем разобраться.
Основная проблема при решении Вашей задачи - правильно активировать Word из PowerPoint. Тогда все получится.
Предварительно не забываем добавить в редактор макросов PowerPoint объектную библиотеку Word (Tools – References).

У меня заработал следующий макрос, запускаемый из PowerPoint:

Public Sub Документ_Word()
    Dim w As New Word.Application
    Dim d As Word.Document
    
    'открыть документ и записать его в переменную 
    '(на диске должен иметься файл D:\a.docx)
    Set d = w.Documents.Open("D:\a.docx")
    
    'отобразить Word
    w.Visible = True
    
    'активировать Word
    w.Activate
    
    w.Selection.TypeText "=rand()"
    SendKeys "{Enter}"
    
End Sub

В чем отличие от Вашего макроса - надо подумать.