Здравствуйте все! С Новым Годом!
Появились два примитивных вопроса.

1. База данных работает из-под Access 2003, с использованием в некоторых случаях средств VBA. Появилась необходимость выполнить во время работы базы программными средствами следующие операции с буфером обмена Office: а) очистить содержимое буфера обмена; б) занести в буфер обмена содержимое некоего поля некоторой формы, для определенности форма FFF, поле PPP, текстовое; к моменту выполнения соответствующего программного кода форма открыта, но не обязательно активна. В книгах я ничего на этот счет не нашел.

2. Общеизвестно, что при работе с Word для открытия файлов не .doc (.txt, .rtf) надо в настройках указывать подтверждение преобразования при открытии; если такую настройку не сделать, то открывается ахинея (а в Word 2007 такая настройка устанавливается автоматически), при этом на подтверждение преобразования оператором тратится некоторое время. Вопрос: можно ли сделать так (если нужно, программными средствами, и тогда — какими?), чтобы при открытии в Word файлов (хотя бы .rtf) Word сам распознавал необходимость преобразования и производил такое преобразование, но не требовал ответа оператора и соответственно затрат его времени?

Если кто знает, подскажите как сделать или хотя бы где прочесть. Заранее признателен.

Здравствуйте все!
Спасибо всем, кто откликнулся, но пока нет положительныъ результатов.

1. Коллега час навел на тексты А. Пешкина, я взял их и попробовал. Получается так: буфер обмена очищается, но нужное значение в него не заносится. Ниже привожу текст скрипта, который это делает. Может быть, дело в том, что у Пешкина работа в Юникоде, а у меня все данные в ANSI; а тогда что нужно поменять?

2. Коллега _sian_ посоветовал использовать макрорекордер. Сделано следующее: использована стандартная схема создания макроса через Начать запись, открыт файл в формате RTF, подтверждено преобразование при открытии, закрыт файл, Остановить запись макроса. В результате получился пустой макрос. Для надежности сделано два варианта: запись нового макроса в Word и в Excel — с одним и тем же результатом. При этом в Word флажок подтверждения преобразования стоит. То есть (пока что) макрорекордер не ловит преобразование файла.

Если кто может, подскажите, что тут еще надо сделать.

Option Compare Database
' Функции для работы с буфером обмена Office.
Public Declare Function GlobalUnlock Lib "Kernel32" (ByVal hMem As Long) As Long

Public Declare Function GlobalLock Lib "Kernel32" (ByVal hMem As Long) As Long

Public Declare Function GlobalAlloc Lib "Kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long

Public Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long

Public Declare Function CloseClipboard Lib "user32" () As Long

Public Declare Function EmptyClipboard Lib "user32" () As Long

Public Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long

'Public Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long

'Public Declare Function GlobalSize Lib "Kernel32" (ByVal hMem As Long) As Long

Public Declare Function lstrcpy Lib "Kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long

Public Const GHND = &H42
Public Const CF_TEXT = 1
'Public Const MAXSIZE = 4096

Public Function fnCLPSetData(sS As String) As String
Dim hGlobalMemory As Long, lpGlobalMemory As Long
Dim hClipMemory As Long, X As Long

' Allocate moveable global memory.
' -------------------------------------------
hGlobalMemory = GlobalAlloc(GHND, Len(sS) + 1)

' Lock the block to get a far pointer to this memory.
lpGlobalMemory = GlobalLock(hGlobalMemory)

' Copy the string to this global memory.
lpGlobalMemory = lstrcpy(lpGlobalMemory, sS)

' Unlock the memory.
If GlobalUnlock(hGlobalMemory) = 0 Then
' Call fnMsgBoxErrOK("fnCLPSetData" + vbCrLf + "Could Not unlock memory location. Copy aborted.", "Ошибка")
fnCLPSetData = ""
GoTo l_End
End If 'GlobalUnlock(hGlobalMemory) = 0

' Open the Clipboard to copy data to.
If OpenClipboard(0&) = 0 Then
' Call fnMsgBoxErrOK("fnCLPSetData" + vbCrLf + "Could Not Open the Clipboard. Copy aborted.", "Ошибка")
fnCLPSetData = ""
Exit Function
End If 'OpenClipboard(0&) = 0

' Clear the Clipboard.
X = EmptyClipboard()

' Copy the data to the Clipboard.
hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory)

l_End:
If CloseClipboard() = 0 Then
' Call fnMsgBoxErrOK("fnCLPSetData" + vbCrLf + "Could Not close Clipboard.", "Ошибка")
End If 'CloseClipboard() = 0

fnCLPSetData = sS
End Function


. . .

' Это обращение к занесению данных в буфер
fnCLPSetData (strDS)

. . .
' Это вставка из буфера его содержимого в нужное место
DoCmd.RunCommand acCmdPaste