Так, в общем решение нашел.
1. Опираем отчет на источник срок, указанный выше (чтобы он отображал только ту запись, данные из которой мы хотим экспортировать в Ворд).
2. Делаем по тихому(без всяких диалоговых окон) OutputTo отчета в папку Temp (созданную рядышком с MDB, т.е. с адресом Application.CurrentProject.Path & "\Temp\" с нужным нам именем Application.CurrentProject.Path & "\Temp\" & NFile, где NFile - нужное мне имя (ну, например AAA.rtf).
3. Запускаем вот эту процедуру (где-то слямзил, не помню где, а то б выложил ссылку. Но автору этого творчества огромный респект!) с параметром NFile:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Public Sub CreateNewMemo(Fname As String)
'создает новое письмо с вложением для нескольких адресатов
Dim OL_App As Outlook.Application
Dim OL_ItemMail As Outlook.MailItem
Dim RecipientTask As Recipient
Dim OL_Pattern As Outlook.RecurrencePattern
Set OL_App = CreateObject("Outlook.Application") ' получаем объект Outlook
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
' получаем ссылку на папку черновики
Set OL_FolderMail = OL_NameSpace.GetDefaultFolder(olFolderDrafts)
Set OL_ItemMail = OL_App.CreateItem(olMailItem) ' создаем новое письмо
With OL_ItemMail
.To = "" 'адрес получателя
.CC = "" 'копия
.BodyFormat = olFormatHTML ' задание формата письма HTML,
' для простого текстового письма этот параметр задавать не надо
.Subject = "ШТ" ' заголовок письма
.Attachments.Add Application.CurrentProject.Path & "\Temp\" & Fname
.OriginatorDeliveryReportRequested = True 'Уведомление о доставке
.ReadReceiptRequested = True 'Уведомление о прочтении
.Display (True)
'.Save ' сохраним письмо
'.Send ' отправим письмо
Kill Application.CurrentProject.Path & "\Temp\" & Fname
End With
End Sub
И Вуаля! Появляется желаемое окошко OutLook'а, где файл-вложение с нужным мне именем! Причем выполнение кода оснановлено (окно в режиме Modal). Далее мы либо отправляем письмо, либо отказываемся от его отправления. После этого с помощью Kill удаляем файл из папки Temp. В общем как-то так... Мало ли, кому пригодиться...
