Копировать из 1С в буфер обмена( без ВК):
|
1 2 3 4 |
ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь); Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow; Окно.ClipboardData.SetData("Text", ТекстПисьма); ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123"))); |
Вставить в 1С из буфера обмена:
|
1 2 3 4 5 |
ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь); Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow; СодержимоеБуфера = Окно.ClipboardData.GetData("Text"); ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123"))); ТекстПисьма = ТекстПисьма + СодержимоеБуфера; |
При определенных настройках политики безопасности, способ с ПолеHTMLДокумента НЕ работает, используйте:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Функция ПолучитьТекстБуфераОбмена() Экспорт #Если Клиент Тогда Объект = Новый COMОбъект("htmlfile"); Возврат Объект.ParentWindow.ClipboardData.Getdata("Text"); #КонецЕсли КонецФункции Функция УстановитьТекстВБуферОбмена(Текст) Экспорт #Если Клиент Тогда Объект = Новый COMОбъект("htmlfile"); Объект.ParentWindow.ClipboardData.Setdata("Text", Текст); Возврат Текст; #КонецЕсли КонецФункции |
Для 7.7:
|
1 2 3 4 |
Set objHTM = CreateObject("htmlfile"); Текст = "Помощь в 1С"; objHTM.ParentWindow.ClipboardData.Setdata("Text", Текст); Текст = objHTM.ParentWindow.ClipboardData.GetData("text"); |
Используя WSH:
|
1 2 3 4 5 6 |
// через SendKeys передаем Ctrl-C и Ctrl-V wsh=Новый COMОбъект("WScript.Shell"); // Скопировать текст wsh.SendKeys("^c"); // Вставить текст wsh.SendKeys("^v"); |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
// через SendKeys передаем Ctrl-C и Ctrl-V wsh=СоздатьОбъект("WScript.Shell"); // Скопировать текст wsh.SendKeys("^c"); // или так: wsh.SendKeys("^(C)"); // Вставить текст wsh.SendKeys("^v"); // или так: wsh.SendKeys("^(V)"); //Объект Clipboard WshExtra = СоздатьОбъект("WshExtra.Clipboard"); // Скопировать текст WshExtra.Copy("Запись в буфер обмена") // Вставить текст Текст = WshExtra.Paste(); |
About the Author
