| Вопрос: Помогите - не работает макрос!!! | Добавлено: 11.09.05 12:27 |
Автор вопроса:  Nataliy
|
|
На одном из форумов программистов мне дали следующий макрос для Word, суть которого состоит в том, что любое изображение или текст попадая в буфер обмена автоматически вставляется в открытый документ Word, но макрос не работает. Может кто-нибудь найдет ошибку?.
Const IMAGE_BITMAP = 0 Const IMAGE_ICON = 1 Const CF_BITMAP = 2 Const IMAGE_ENHMETAFILE = 3 Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long Private Sub LoadBitMap() Dim FormatAvailable As Boolean Dim cl As New DataObject OpenClipboard 0& ' проверяем наличие необх. формата в буфере FormatAvailable = IsClipboardFormatAvailable(CF_BITMAP) CloseClipboard ' вставляем в док. If FormatAvailable Then Selection.Paste 'чистим буфер cl.SetText "" cl.PutInClipboard ' проверяем каждые 5 сек. Application.OnTime Now + TimeValue("00:00:5"), "LoadBitMap" End Sub Sub start() ' стартуем здесь Application.OnTime Now + TimeValue("00:00:5"), "LoadBitMap" End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  NICK_SB ICQ: 318931712 Вопросов: 0 Ответов: 1 |
Профиль | | #1 | Добавлено: 19.09.05 01:22 |
| А в чем именно выражается не работа макроса???? | ||
Страница: 1 |