|
|
|
Программная очистка CLIPBOARD в VBA
|
|||
|---|---|---|---|
|
#18+
Нужно в макросе очистить буфер обмена. Нигде найти этого не могу. Пробовал записать макрос в 2003 Ворде, эта операция в макрос не пишется. А вообще, проблема такая. выполняется некий макрос, последний оператор : Application.Quit Все прекрасно отрабатывало, пока не пришлось в макросе копировать через буфер обмена. Application.Quit не отрабатывает - остается висеть пустой экран Ворда (док закрылся в макросе программно), если закрывать ручками - сообщает про непустой буфер и предлагает сохранить. Вопрос такой Как очистить в макросе этот буфер или какой операнд добавить к Application.Quit, чтобы приложение закрылось, не глядя на буфер. Или осчастливте ссылочкой. На MSDN не нашел ничего. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.11.2007, 18:52 |
|
||
|
Программная очистка CLIPBOARD в VBA
|
|||
|---|---|---|---|
|
#18+
Мне известно несколько способов. 1. Работает в Office 2000: CommandBars("Clipboard").Controls("Clear Clipboard").Execute 2. Вызывая API функции в порядке, приведенном мною при их декларации. Т.е. открыл, почистил, закрыл. Сам не использовал. Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function EmptyClipboard Lib "user32" () As Long Public Declare Function CloseClipboard Lib "user32" () As Long 3. Используя класс DataObject: Private Sub ClipbrdClear() Dim objDataObj As DataObject Set objDataObj = New DataObject objDataObj.SetText vbNullString 'здесь и очистка. objDataObj.PutInClipboard End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.11.2007, 19:08 |
|
||
|
Программная очистка CLIPBOARD в VBA
|
|||
|---|---|---|---|
|
#18+
А какой параметр надо передать в OpenClipboard? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2007, 10:14 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=34960294&tid=2163017]: |
0ms |
get settings: |
11ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
87ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
53ms |
get tp. blocked users: |
1ms |
| others: | 239ms |
| total: | 432ms |
| 0 / 0 |
