Помогите с макросом - передача заметки в буфер обмена и обратно

[svaleks 0]

Уважаемые специалисты !

Помогите начинающему программисту написать простой макрос,

в доступных примерах ничего похожего не нашел, а может,

просто не понял. Файл swxJRNL.swj тоже не помог.

Задача:

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

......

......

......

- вставляем из буфера текст заметки в чертеж на старое место

Спасибо.

[Kelny 1 286]

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

......

......

......

- вставляем из буфера текст заметки в чертеж на старое место

<{POST_SNAPBACK}>

Тут кроется какая-то неточность: Вы копируете текст или заметку? Зачем столь сложная процедура: "копирования и вставки обратно в тоже место"? Почему вы хотите это делать через буфер обмена?, а не скажем передачей содержимого заметки в переменную и возврат содержимого переменной в туже заметку или в другую, это уже как вам больше нравиться!

Файл swxJRNL.swj тоже не помог.

<{POST_SNAPBACK}>

Если вы чего-то стоящее хотите получить этот журнал, да и запись макросов вам сильно не помогут. В солиде очень плохо и туда пападает лишь малая часть того что реально вы делаете в солиде. Лучше справку по API прочитать там много примеров и проще разобраться.

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

<{POST_SNAPBACK}>

Вот есть такая реализация только тут солид вобще говоря ни причем, из солида можно взять значение заметки, а копирование и вставка в буфер будет выглядеть примерно так:

Я работаю над созданием программы на VB 6.0. Как сделать так, чтобы текст из текстового файла копировался в буфер обмена ?

Ответ:

Автор ответа: Дмитрий Данелия

Dim sFileName As String, sText As String

Dim iFileNo As Integer

Private Sub Form_Load()

sFileName = "c:\config.sys"

iFileNo = FreeFile

Open sFileName For Input As iFileNo

sText = Input(LOF(iFileNo), iFileNo)

Close iFileNo

Clipboard.SetText sText

End Sub

' Получить текст из Буфера Обмена

Private Sub Form_Click()

Text1.Text = Clipboard.GetText

End Sub

Автор ответа: Шатрыкин Иван

Очистить буфер - Clipboard.Clear

Положить текст в буфер - Clipboard.SetText Text1.Text

Вставить текст из буфера - Text1.Text = Clipboard.GetText

Положить картинку в буфер - Clipboard.SetData Picture1.Picture

Вставить картинку из буфера - Picture1.Picture = Clipboard.GetData

Только тут похоже VBA не обойтись, тут полноценный Visual Basic нужен для работы с буфером обмена хотя могу ошибаться.

[Shvg 68]

Не совсем понятна постановка задачи... И еще, обьект Clipboard может в VB не совсем корректно работать с символами Unicode. У меня такое было, когда надо было програмно скопировать содержимое TextBox-a в буфер обмена, пришлось применять: SendKeys ("^C"). В принципе, вроде одно и тоже, а резудьтат был разный.

[Kelny 1 286]

И еще, обьект Clipboard может в VB не совсем корректно работать с символами Unicode.

<{POST_SNAPBACK}>

Полагаю что тут проблема не в Clipboard (по крайней мере не только в нем), извечная проблема ANSI в Unicode и наоборот и проблема с кодовыми страницами, по этому поводу думаю будет интересно почитать статью вот здесь: <noindex>http://www.microsoft.com/Rus/Msdn/Activ/MS...riables1_2.mspx</noindex>

[Shvg 68]

Полагаю что тут проблема не в Clipboard (по крайней мере не только в нем), извечная проблема ANSI в Unicode и наоборот

Я наверное не совсем точно выразился. Clipboard, я почти не применял. Так вспомнил, что была у меня года 4 назад эта проблема, при копировании в буфер имени файла чертежа, для вывода на печать в файл....

[svaleks 0]

Всем спасибо за помощь !

Тут кроется какая-то неточность: Вы копируете текст или заметку? Зачем столь сложная процедура: "копирования и вставки обратно в тоже место"? Почему вы хотите это делать через буфер обмена?, а не скажем передачей содержимого заметки в переменную и возврат содержимого переменной в туже заметку или в другую, это уже как вам больше нравиться!

Такая сложная процедура нужна мне, потому что текст заметки требуется отредактировать

во внешнем специальном редакторе. Понятно, что все это можно делать вручную -

выделил заметку, скопировал в буфер, запустил редактор, вставил из буфера и т.д.,

но захотелось уменьшить количество всех этих операций - макросы ведь придуманы

именно для этого ?

С буфером ничего не получилось, сделал по образцу из ответа Kelny - в макросе записываю текст

заметки в файл, запускаю свой редактор, который этот файл считывает, после окончания редактирования файл сохраняется и считывается обратно в заметку.

[Myklkl 1]

Работать с буфером в принципе можно, нодо только объект иметь. Допустим, textbox1 of Userform1.

Тогда оттуда можно копмровать и туда можно вставлять.(Кстати, чисто для вашего случая можно там же и редактировать! А зачем вам еще лишний файл создавать и еще программу открывать!)

Или надо самому создать виртуальный новый объект.

Вот почитайте <noindex>http://www.cpearson.com/excel/clipboar.htm</noindex>

Я проверял, все работает...