Как очистить буфер обмена в экселе

Форум пользователей Visio

При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя . !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.

Очистить буфер обмена.

Заголовок сообщения: Очистить буфер обмена.
Добавлено: 05 июл 2022, 01:40

В Excel и Word есть возможность вставить отдельные фрагменты или очистить буфер обмена. Я так понимаю, что в Визио так нельзя, а можно ли тогда программно очистить буфер обмена?
Содержимое спрятано под спойлер ↓

Спойлер: ▼

2022-07-05_00-36-08.png [ 20.81 Кб | Просмотров: 306 ]
Заголовок сообщения: Re: Очистить буфер обмена.
Добавлено: 05 июл 2022, 10:25

Лет 8 назад экспериментировал: пытался поженить Visio и виндовскую библиотеку fm20.dll. Из буфера нормально вставлялся только текст.

Экспериментировал недолго, больше из баловства. Особой необходимости не было!

С офисными приложениями тоже особо не извращался программно не управлял буфером обмена. Но что то мне подсказывает, что тоже не все так радужно раз Karl E. Peterson в статье Soup Up Office VBA рассказывает как принести работу с буфером в VBA.
В статье того же автора можно посмотреть какие функции связанные с буфером обмена есть в библиотеках Windows https://classicvb.net/samples/ClipEx/

Дополнено позднее: 06.07.2022 У меня не выходит каменный цветок MS Office 2019 64bit
Excel 2013 64-bit VBA: Clipboard API doesn’t work

Заголовок сообщения: Re: Очистить буфер обмена.
Добавлено: 05 июл 2022, 13:23

Возможно поможет — в Windows есть функция вставки по истории.
Вместо Ctrl + V надо нажимать ⊞ Windows + V

_________________
Полезные инструменты для создания диаграмм Visio:
https://unmanagedvisio.com/

Заголовок сообщения: Re: Очистить буфер обмена.
Добавлено: 06 июл 2022, 00:54
nbelyh писал(а):

Возможно поможет — в Windows есть функция вставки по истории.
Вместо Ctrl + V надо нажимать ⊞ Windows + V

То что нужно. Спасибо.

Часовой пояс: UTC + 3 часа [ Летнее время ]

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB

VBA Excel. Буфер обмена (копирование, вставка, очистка)

Копирование содержимого и форматов ячеек (диапазона) в буфер обмена осуществляется методом Range.Copy, а вставка – методом Worksheet.Paste:

‘Копирование одной ячейки в буфер обмена
Range ( «A10» ) . Copy
Cells ( 10 , 1 ) . Copy
‘Копирование диапазона ячеек в буфер обмена
Range ( «B8:H12» ) . Copy
Range ( Cells ( 8 , 2 ) , Cells ( 12 , 8 ) ) . Copy
‘Вставка ячейки (диапазона) из буфера обмена на рабочий лист
ActiveSheet . Paste Range ( «A20» )
ActiveSheet . Paste Cells ( 20 , 1 )

При вставке диапазона ячеек из буфера обмена на рабочий лист достаточно указать верхнюю левую ячейку места (диапазона) вставки. Для вставки из буфера обмена отдельных компонентов скопированных ячеек (значения, формулы, примечания и т.д.), а также применения к диапазону транспонирования или вычислений, используется метод Range.PasteSpecial (специальная вставка).

Буфер обмена и переменная

Передача текста между переменной и буфером обмена в VBA Excel осуществляется с помощью объекта DataObject. Стоит иметь в виду, что на некоторых компьютерах DataObject может некорректно работать при открытом окне проводника.

Объект DataObject

DataObject – это область временного хранения форматированных фрагментов текста, используемая в операциях переноса данных.

Подробнее об элементе DataObject вы можете прочитать на сайте разработчиков. Методы объекта DataObject:

Метод	Описание
GetFromClipboard	Копирует данные из буфера обмена в DataObject
GetText	Извлекает текстовую строку из объекта DataObject в указанном формате
PutInClipboard	Перемещает данные из DataObject в буфер обмена
SetText	Копирует текстовую строку в DataObject, используя указанный формат

Копирование текста из переменной в буфер обмена

Sub Primer2 ( )
Dim s As String , myData As New DataObject
s = «Копирование текста из переменной в буфер обмена»
‘Копируем текст из переменной в DataObject
myData . SetText ( s )
‘Перемещаем текст из DataObject в буфер обмена
myData . PutInClipboard
‘Проверяем содержимое буфера обмена
ActiveSheet . Paste Range ( «A1» )

Копирование текста из буфера обмена в переменную

Sub Primer3 ( )
Dim s As String , myData As New DataObject
Range ( «A1» ) = «Копирование текста из буфера обмена в переменную»
‘Копируем данные из ячейки в буфер обмена
Range ( «A1» ) . Copy
‘Копируем данные из буфера обмена в DataObject
myData . GetFromClipboard
‘Извлекаем текст из объекта DataObject и присваиваем переменной s
s = myData . GetText
‘Проверяем содержимое переменной s

Очистка буфера обмена

Application . CutCopyMode = False
Sub Primer4 ( )
Range ( «A1» ) = «Очистка буфера обмена»
Range ( «A1» ) . Copy
ActiveSheet . Paste Range ( «A2» )
ActiveSheet . Paste Range ( «A3» )
Application . CutCopyMode = False
On Error Resume Next
ActiveSheet . Paste Range ( «A4» )
ActiveSheet . Paste Range ( «A5» )

Оператор On Error Resume Next необходим для обработки (пропуска) ошибки, возникающей при вставке из пустого буфера обмена.

Функции для работы с буфером обмена

‘Функция записи текста в буфер обмена
Function SetClipBoardText ( ByVal Text As Variant ) As Boolean

SetClipBoardText = CreateObject ( «htmlfile» ) . parentWindow . clipboardData . SetData ( «Text» , Text )

End Function
‘Функция вставки текста из буфера обмена
Function GetClipBoardText ( ) As String
On Error Resume Next
GetClipBoardText = CreateObject ( «htmlfile» ) . parentWindow . clipboardData . GetData ( «Text» )
End Function
‘Функция очистки буфера обмена
Function ClearClipBoardText ( ) As Boolean

ClearClipBoardText = CreateObject ( «htmlfile» ) . parentWindow . clipboardData . clearData ( «Text» )

End Function
Sub Primer ( )
Dim s As String
s = «Копирование текста из переменной в буфер обмена»
‘Копируем текст в буфер обмена
SetClipBoardText ( s )
‘Вставляем текс из буфера обмена в ячейку «A1»
Range ( «A1» ) = GetClipBoardText
‘Очищаем буфер обмена, если это необходимо
ClearClipBoardText
Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

8 комментариев для “VBA Excel. Буфер обмена (копирование, вставка, очистка)”

В А1 вставляется какой-то непечатаемый символ и всё. При переходе к другому приложению и попытке вставить содержимое буфера — фиаско.

Добрый день, Михаил!
Такое встречается, начиная с Windows 8, когда открыта хотя бы одна папка в Проводнике. Я добавил в статью функции для работы с буфером обмена, они должны работать.

В Win 8.1 такой проблемы не наблюдаю, уж по всякому погонял, пытаясь вызвать ошибку — всегда правильно отрабатывает ))
А за статью большое спасибо!

Нашёл такую информацию на случай получения ошибки относительно типа данных DataObject.
Чтобы заработал тип данных «DataObject» нужно подключить инструмент «Microsoft Forms Object Libraries». Для этого необходимо выполнить действия в редакторе макросов Эксель:
1. Открыть Tools/References;
2. Через кнопку Browse открыть файл C:\WINDOWS\SYSTEM32\FM20.DLL. Файл «FM20.DLL» может оказаться в другой подпапке Windows, поискать по названию. Может быть в «SysWOW64» или в «System».

Добрый день. Подскажите пожалуйста в чем ошибка? Как только открывается вторая табличка, то файлы скопированные пропадают из буфера и пишет ошибку 424 Objekt required.

Sub Макрос1()
‘
‘ Макрос1 Макрос
‘
‘ Сочетание клавиш: Ctrl+й
‘
ActiveSheet.Range(«$A$11:$AD$182»).AutoFilter Field:=1, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
Range(«D11:D247»).Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.Copy
Dim fn As String: wb = ThisWorkbook.Path & «\ПВКоборудование.xlsm»
With Application
.EnableEvents = True
.Calculation = xlCalculationManual
.ScreenUpdating = True
.Visible = True
Workbooks.Open Filename:=wb
Sheets(«наименования»).Select
Range(«C1»).Select
AktiveSheet.Paste
End With
End Sub

Здравствуйте, Иван!
Попробуйте заменить строку
AktiveSheet.Paste
на
ActiveSheet.Paste Range(«C1»)
Спасибо. Помогло
Константин 16.03.2023 в 10:51

Проблема на виндовс 10 осталась только вместо 2-х квадратов пустоту переносит при открытой одной вкладке.
Dim longString As String
‘Dim sel As Object
»Dim obj3ADes As New DataObject
‘Dim obj3ADes As String
strFile = Intersect(listobjTechs.ListRows(1).Range, listobjTechs.ListColumns(«Value»).DataBodyRange)
Set objWordApp = CreateObject(«Word.Application») ‘Word session creation Word.Application
objWordApp.Visible = True
Set objWordDoc = objWordApp.Documents.Open(strFile) ‘open the .doc file
Dim listrowRowChecked As ListRow
Dim listcolumnColumnChecked As ListColumn
For Each listrowRowChecked In listobjectData.ListRows
Set objWordDoc = objWordApp.Documents.Open(strFile)
For Each listcolumnColumnChecked In listobjectData.ListColumns
If listcolumnColumnChecked.Name Like «» Then
‘REPLACEMENTS
‘Debug.Print listcolumnColumnChecked.Name, «is a placeholder» ‘TEST
objWordApp.Selection.Find.ClearFormatting
objWordApp.Selection.Find.Replacement.ClearFormatting
longString = Intersect(listcolumnColumnChecked.DataBodyRange, listrowRowChecked.Range).Value
‘obj3ADes.SetText longString
SetClipBoardText longString
‘obj3ADes.PutInClipboard
With objWordApp.Selection.Find
.ClearFormatting
.Text = listcolumnColumnChecked.Name
.Replacement.ClearFormatting
.Replacement.Text = «^c»
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
‘objWordApp.Selection.Find.Execute Replace:=wdReplaceAll
Else:
‘Debug.Print listcolumnColumnChecked.Name, «is no placeholder» ‘Test
End If
ClearClipBoardText
Next listcolumnColumnChecked

Скачайте менеджер буфера обмена и сохраняйте полную историю скопированных данных

Испытайте полнофункциональную пробную версию Clipdiary в течение 60 дней. Вся сохраненая история и настройки останутся, если вы решите приобрести лицензию. Вы можете удалить Clipdiary в любой момент используя панель управления Windows или просто удалить папку с портабельной версией.

Триал: Полно-функциональная версия для 60-дневного испытания или некоммерческого использования

Дата выхода: 10 Декабря 2021

ОС: Windows 10/8/7

Версия для Windows Vista/XP 3.9: Инсталятор, Портабельная

Портабельная версия: Просто распакуйте архив в любое место и используйте clipdiary-portable.exe для запуска программы.

История изменений

Версия 5.710 Декабря 2021

Добавлены: Новые глобальные горячие клавиши для открытия втрой и третьей вкладки Шаблонов (Настройки — Горячии клавиши)
Добавлена: Новая глобальная горячая клавиша включения\выключения слежения за буфером обмена (Настройки — Горячии клавиши)
Добавлена: Возможность копировать шаблоны между разными базами данных (вкладками)
Добавлена: Возможность создавать одновременно несколько шаблонов из истории буфера обмена
Добавлена: Поддерджка открытия базы данных Шаблонов в режиме Только для Чтения
Добавлена: Функция сортировки ярлыков (Ярлыки — Управления ярлыками — Сортировать)
Улучшено: Поддержка высоких разрешений

Версия 5.620 Августа 2021

Добавлена: Поддержка множественных вкладок\баз данных для шаблонов (Настройки — База данных).
Исправлено: Значительно улучшена стабильность вставки для Windows 10.
Добавлены: Новые горячие клавиши для шаблонов Alt-стрелка вверх\вниз — раскрыть\свернуть все папки.
Исправлено: Как всегда куча небольших исправлений и улучшений

Версия 5.5117 Сентября 2020

Добавлена: Опция «Отслеживать изменения файла». По умолчанию выключена, если вы хотите синхронизировать шаблоны через расшаренную папку, следует включить ее вручную.
Исправлено: Несколько ошибок обнаруженных после выхода версии 5.5

Версия 5.531 Августа 2020

Добавлена: Возможностью синхронизировать базу данных Шаблонов между компьютерами с помощью сервисов Dropbox, MS OneDrive и подобных.
Добавлена: Функция автоматического создания резервных копий базы данных Шаблонов.
Добавлено: Восстановление базы данных Шаблонов из резервной копии.
Добавлена: Новая опция — Подтверждение при выходе (Настройки — Дополнительно — Исправление проблем).
Исправлено: Падение программы с ошибкой при выключении компьютера
Исправлено: При вставке текста методом «Напечатать» не обрабатывались шаблоны

Версия 5.419 Декабря 2019

Добавлено: Меню Вставки — простой и быстрый способ вставить один из последних клипов или шаблон (требует настройки, смотри Настройки — Горячие клавиши).
Добавлено: Функция «Напечать» — ввод строки эмуляцией нажатия клавиш на клавиатуре.
Исправлена: Ошибка при захвате клипов из MS Excel.
Улучшено: Ну и как обычно, еще много всякого по мелочи.

Версия 5.306 Мая 2019

Добавлено: 4 новых глобальных горячих клавиши (смотри Настройки -> Горячии клавиши)
Добавлено: Быстрые клавиши для выбора клипа\шаблона в главном окне (Используйсте ctrl+)
Добавлено: Возможность просмотра и редактирования клипов

Версия 5.217 Июля 2018

Добавлено: Теперь в Шаблонах можно использовать текст с форматированием (RTF)
Добавлено: Поддержка макросов в Шаблонах
Улучшено: Много всего. )

Версия 5.124 Июля 2017

Добавлена: Поддержка типа «Клип» для Шаблонов (можно использовать в качестве шаблона текст с форматированием, HTML, картинки, файлы. )
Улучшено: Поддержка систем с высоким разрешением
Добавлена: Возможность использовать обратный порядок клипов в списке — новые сверху. Настройки — Дополнительно
Улучшено: Новый подход к отображению клипов. Больше\Меньше\Все, вместо постраничной навигации. Меню Вид — Количество клипов (CTRL+F1). Настройки — Дополнительно
Добавлена: Новая опция: база данных в памяти (без сохранения данных на диск)
Добавлено: Для html клипов теперь сохраняется информация об адресе веб-страницы с которой он был скопировал. Ссылку можно посмотреть в подсказке или открыть оригинальный URL используя контекстное меню клипа
Улучшено: Отображение текста клипа в подсказке — теперь служебная информация снизу, вернуть старый режим можно в опциях
Улучшено: Оптимизация — теперь работа с большой базой данных или с большим количеством клипов в списке — заметно быстрее
Добавлен: Шоткат для сохранения клипа в файл CTRL+SHIFT+S
Исправлено: Множество редких ошибок

Версия 5.010 Февраля 2017

Добавлены: Шаблоны.

Версия 4.012 Июля 2016

Добавлено: Поддержка шифрования базы данных (AES-256)
Добавлено: Вызов окна программы мышкой (Опции -> Горячии клавиши -> Мышь)
Добавлено: Поддержка вставки в обратном порядке в диалоге мультивставки (F6)
Добавлено: Новая кнопка — «Сбросить фильтр оставив выделение на текущем клипе» (Ctrl+F9)
Добавлено: %Position% макрос для подсказки быстрого копирования
Учтите, начиная с этой версии Clipdiary не работает на Windows XP

Версия 3.911 Февраля 2016

Добавлено: Умный захват: вы можете использовать умный захват для копирования данных из любой программы (вместо ctrl+C или CTRL+Insert), даже если слежение за буфером обмена отключено. Также это удобно для захвата данных с одновременным присваиванием клипу метки.
Добавлена: Возможность открытия Clipdiary по центру активного монитора.
Добавлено: Подменю Метки в контекстное меню для клипа.
Добавлено: Вставка списка скопированных файлов как простого текста (SHIFT+Enter).
Улучшено: Поведение расширенного поиска.

Версия 3.822 Декабря 2015

Добавлены: Помеченные клипы — помечайте клипы что бы выделить и сохранить важную информацию, помеченные клипы никогда автоматически не удаляются из базы данных.
Добавлены: Метки — вы можете создавать и использовать метки для организации клипов в папки, к примеру, Важные, Рабочие, Личные, либо любые другие на ваш выбор.
Улучшено: Скорость поиска клипов.
Исправлено: Ошибка при попытке отобразить большие картинки в всплывающей подсказке.

Версия 3.71 Сентября 2015

Добавлен: Предпросмотр картинок в всплывающей подсказке
Улучшено: Теперь можно вставлять клипы быстрее используя клавишу Стрелка Вправо (вместо Enter или двойного клика). Используйте Стрелку Влево для быстрого копирования клипа назад в буфер обмена. CTRL + стрелки — показать\спрятать подcказку. ALT + Стрелки — переключение между страницами истории буфера обмена
Добавлена: Возможность настройки интерфейса: тип и размер шрифта, цвета, размер иконок
Добавлена: Новая опция — выделять жирным использованные клипы
Улучшено: Режим автоматического регулирования количества клипов на странице — теперь никакой линейки прокрутки
Добавлена: Возможность фильтровать большие клипы с текстом, необходима для решения проблем с захватом данных в некоторых приложениях (Excel, OO Calc. )
Улучшен: Переработан внешний вид программы

Версия 3.610 Февраля 2015

Добавлен: Мастер очистки базы данных. Теперь вы можете существенно уменьшить размер базы данных и скорость работы удалив не нужные клипы. (смотри Настройка -> База данных -> Обслуживание базы данных)
Добавлен: Режим расширенного поиска, используйте Файл -> Расширенный поиск что бы показать дополнительные фильтры
Добавлена: Возможность перемещать клипы в списке
Улучшено: Поддержка Windows 8
Улучшено: Получение имени приложения источника клипа и фильтрация проблемных приложений
Исправлена: Проблема с автоматической очисткой базы данных при выходе из программы
Исправлена: Проблема с копированием изображений из браузеров
Добавлена: Возможность выбора формата файла в мастер экспорта клипов

Версия 3.517 Декабря 2012

Добавлен: Просмотр захваченных изображений (F8).
Добавлена: Функция копирования нескольких клипов.
Добавлена: Функция поиска текста клипа в интернете (Alt+G).
Добавлена: Опция автоматического показа подсказки при открытии окна.
Исправленно: Неработающее подменю «Дополнительно» в главном меню и горячая клавиша F6.
Множество мелких исправлений и улучшений.

Версия 3.41 Сентября 2011

Добавлена: Мультивставка — возможность вставки сразу несколько клипов(Enter или F6 для дополнительных опций)

Версия 3.327 Января 2011

Добавлен: Мастер экспорта — теперь возможно сохранить за один раз сразу несколько клипов в файл(ы).
Улучшена: Скорость работы с поиском. Теперь можно сразу после фильтрации использовать клапиши Up\Down для выбора нужного клипа из списка. Так же можно начинать набирать текст для поиска сразу в списке клипов.
Добавлена: Настройка для автоматического перемещения на новую захваченную запись.
Исправлено: Много мелких исправлений и улучшений.

Версия 3.21 Сентября 2010

Добавлена: Подсветка вставленных клипов. Читать в блоге highlighting of the used clipboard history
Добавлена: Функция экспорта картинок в файл (поддерживаемые форматы bmp, jpg, png and xpm).
Добавлена: Настройки инкрементального поиска. Читать в блоге incremental search through clipboard history
Исправлено: Поиск для русских текстов теперь не чувствителен к регистру.

Версия 3.125 Июня 2010

Добавлен: Режим инкрементального поиска
Добавлена: Опция, позволяющая выбрать действие по умолчанию по клавиши Enter и двойному клику на клипе (копирование в буфер обмена или вставка в активное окно)
Добавлена: Закладка для настройки игноринования горячих клавиш Clipdiary в приложениях (полезна для игр и некоторых других ситуаций)
Исправлены: Два бага проявлявщихся на мультимониторных конфигурациях (восстановление позиции окна и координаты подсказки быстрого копирования)
Исправлена: Проблема, возникавщая при наличии русских символов в пути к программе.
Исправленна: Ошибка некорректного восстановления клипов, сделанных в предыдущих сессиях, в ряде случаев происходила потеря части информации например, форматирования текстя для rtf и html форматов

Версия 3.0525 Мая 2010

Добавлена: Русская локализация

Версия 3.01 Мая 2010

Добавлена: Возможность фильтрации определенных форматов буфера обмена
Добавлены: 4 продвинутые опции для тонкой настройки особенности работы с Clipboard Viewer Ignore Format
Добавленo: Возможность использовать клавишу Windows в комбинации горячих клавиш

Версия 2.923 Марта 2010

Добавлено: Список приложений, в который вы можете добавить программы, с которыми у Clipdiary возникают проблемы при захвате данных. Clipdiary не будет пытаться захватывать данные из приложений из этого списка
Добавлено: Новая опция ‘Delay before catching data’ в расширенных настройках программы. Она позволит избежать проблем при захвате данных из Pidgin и некоторых других приложений
Исправлено: Две ошибки в работе функции вставки простого текста (Ctrl+Shift+V)
Некоторые другие улучшения

Версия 2.816 Февраля 2010

Начиная с этой версии Clipdiary бесплатна для некоммерческого использования в странах бывшего СССР.
Исправлено: проблема с медленной отрисовкой подсказки в Vista\Win7
Добавлено: Расширенные настройки. Теперь вы можете настроить:
- Длину заголовка клипа
- Количество клипов на странице
- Добавление клипа в конец списка клипов при копировании из истории буфера обмена
- Количество записей для проверки вновь захваченного клипа на дублирование
- Возможность вставки с использованием эмуляции нажатия на клавиши Ctrl+V и Shift+Insert
- Авоматическое отображение полного текста клипа в подсказке
- Настраиваемый заголовок для подсказки при быстром копировании
- Время показа подсказки для быстрого копирования и обычной подсказки
- Использование собственного алгоритма перевода строк при показе подсказок (Vista\Win7)
Версия 2.712 Января 2010
- Добавлена: Возможность сохранить клип в текстовый файл.
- Добавлена: Возможность выделить несколько клипов.
Версия 2.615 Декабря 2009
- Добавлена: Опциональная возможность автоматически вставлять клип после быстрого копирования (ctrl + shift + arrow up/down).
- Улучшено: Поведение всплывающей подсказки во время быстрого копирования, теперь она убирается с экрана по отпусканию клавиш.
- Исправлена: Ошибка возникавшая при выключении компьютера под управлением Windows 7.
Версия 2.5103 Декабря 2009
- Исправлена: Утечка памяти в контекстном меню.
- Исправлена: Проблема с проигрыванием звука во время автоматического переподсоединению к буферу обмена.
Версия 2.519 Ноября 2009
- Добавлено: Поддержка Vista Clipboard API. Расширенная поддержка Windows Vista и Windows 7.
- Добавлено: Возможность добавлять Clipboard Viewer Ignore Format при вставке стандартного текста
Версия 2.423 Сентября 2009
- Добавлено : Поддержка drag & drop — теперь вы можете быстро перетаскивать сохраненные данные из Clipdiary в другое приложение.
- Добавлено : Возможность редактирования заголовка клипа — вы можете дать любое подходящие имя сохраненным данным, чтобы быстро найти его впоследствии.
- Добавлено : Контекстное меню для доступа к часто используемым функциям.
Версия 2.327 Июня 2009
- Добавлена : Новая горячая клавиша — теперь вы можете вставить содержимое буфера обмена как текст без форматирования всего в одно действие (CTRL+SHIFT+V по умолчанию)
- Добавлена : Удерживание нажатой клавиши SHIFT при любом способе вставки (двойной клик, иконка на тулбаре, enter) приведет к удалению форматирования и вставки чистого текста.
- Улучшено : Механизм поиска по истории буфера обмена — если очищать фильтр при зажатом CTRL (CTRL+F9 \ CTRL+кнопка clear), фокус останется на текущей выбранной записи, а не перейдет в конец. Таким образом если вы точно не помните содержание нужной строки, но помните что копировали рядом с ней, вы можете найти искомую строку.
- Добавлены : Клавиатурные сокращения для показа\скрытия подсказки с полным текстом клипа : Arrow Right \ Arrow Right.
Версия 2.221 Мая 2009
- Добавлена : Функция Paste as Plain Text — используйте меню Clip -> Paste as Plain Text или клавиши Shift + Enter для вставки текста без форматирования.
- Добавлена : Функция Copy as Plaine Text — используйте меню Clip -> Copy as Plain Text или клавиши Shift + Ctrl + Insert (или C) для удаления форматирования и копирования чистого текста обратно в буфер.
- Добавлена : Поддержка специального формата «Clipboard Viewer Ignore» — если вы используете менеджер паролей, который также поддерживает эту функцию, Clipdiary не будет сохранять ваши пароли в истории буфера обмена.
- Добавлены : Клавиатурные сокращения для быстрой навигации по страницам Alt + Left \ Right \ Page Down \ Page Up.
- Исправлено : Падение программы при попытке поиска с использованием специальных символов.
- Исправлено : Горизонтальная линейка прокрутки теперь всегда возвращается в крайнее левое положение при показе окна истории буфера обмена
Версия 2.117 Февраля 2009
- Добавлена : Возможность проигрывать звук, когда вы копируете что-то в буфер обмена
- Исправлена : Проблема получения данных, скопированных с Google Chrome 2.x
- Добавлена : Специальная горячая клавиша (F9) для очистки фильтра поиска
- Добавлена : Комбинация Ctrl+Del, используемая для удаления клипа, теперь работает и на вспомогательной клавиатуре
- Добавлена : Возможность скачать версию, не требующую инсталяции (используйте _RUN_Clipdiary_Portable.bat для запуска в портабельном режиме)
- Улучшено : Разрешена установка однобуквенных комбинаций в качестве основной горячей клавиши
- Исправлены : Ряд мелких ошибок
Версия 2.012 Января 2009
- Добавлена : Функция поиска
- Улучшено : Взаимодействие с буфером обмена
- Добавлена : Возможность не закрывать окно после копирования или вставки текста
- Добавлено : Настройки базы данных
- Добавлено : Настройки вставки
- Добавлено : Поддержка работы в портабельном режиме
- Улучшено : Большое количество мелких улучшений
Happy People

Clipdiary is a great utility and makes my (programming) life much easier! At first I installed it because auf the unlimited persisting history of everything that goes into the clipboard, which is exactly what I was looking for. Until I found out that the hotkeys for changing between the clipboard entries are also inestimable useful. Now I use them frequently.

Работа с буфером обмена (Windows Clipboard) из VBA

ВНИМАНИЕ: для работы функций требуется установка ссылки на библиотеку Microsoft Forms 2.0 Object Library:
```
Public Sub SetClipboard(Obj As Variant) Dim MyDataObj As New DataObject MyDataObj.SetText Format(Obj) MyDataObj.PutInClipboard End Sub Public Sub SetTextIntoClipboard(ByVal txt As String) Dim MyDataObj As New DataObject MyDataObj.SetText txt MyDataObj.PutInClipboard End Sub Public Function GetClipboard() As Variant GetClipboard = "": On Error Resume Next Dim MyDataObj As New DataObject MyDataObj.GetFromClipboard: GetClipboard = MyDataObj.GetText() End Function Public Sub ClearClipboard() Dim MyDataObj As New DataObject MyDataObj.SetText "": MyDataObj.PutInClipboard End Sub
```
Аналогичная функция ClipboardText (чтение текста из буфера обмена), но не требующая подключения библиотеки:
```
Sub ПримерИспользования() txt = ClipboardText MsgBox txt, vbInformation, "Содержимое буфера обмена Windows" End Sub Function ClipboardText() ' чтение из буфера обмена With GetObject("New:") .GetFromClipboard ClipboardText = .GetText End With End Function Sub SetClipboardText(ByVal txt$) ' запись в буфер обмена With GetObject("New:") .SetText txt$ .PutInClipboard End With End Sub
```
- 69424 просмотра
Комментарии

vba4me, 16 Окт 2014 — 14:53. #1

Позднее связывание универсальнее, но по мне так проще в Excel проверять наполнение буфера через Application.CutCopyMode
Похожие публикации: