ник: MS_4G
Здравствуйте все!
Спасибо всем, кто откликнулся, но пока нет положительныъ результатов.
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