Как вставить форматированный текст в RichTexBox?

[Кукша12]

Как вставить форматированный текст в RichTexBox?
В смысле есть разукрашенный текст в основном окне документа(жирный, разноцветный, с курсивом...) Мне нужно вставить его в таком же виде в диалоговое окно RichTexBox, поправить, и потом вставить обратно с теми украшательствами, которые остались/образовались в RichTexBox.

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

[GSerg]

И как же делаем программно?

[Кукша12]

И как же делаем программно?

Ну, начал с ...Box.Text = Selection.Text - не вышло, потом пытался с фокусом ввода, сохранением форматирования и прочим. Вставка срабатывала, но формат терялся.
Просто у меня вообще нет примеров, как это делать правильно, тыкаюсь наобум, иначе бы и не спрашивал.

[Viper]

а мысль попробовать записать макрос при выполнении копирования форматированного текста не приходила в светлую голову автора?

[Кукша12]

записать макрос при выполнении копирования форматированного текста

Ну, я так и думал, что кто-нить это посоветует...
С момента вызова диалогового окна запись команд в макрос прекращается вплоть до его закрытия. Может я что вырубил по незнанию...
!Viper, попробуй сам, прежде чем советовать - если у тебя срабатывает, стало быть я не прав - буду искать что напортил и буду тебе премного благодарен...

[Viper]

Есть такая фишка. Побороть можно сделав тестовую форму с RichTextBox не в VBA а в VB. Запускаешь проект с формой, а в Word запускаешь запись макроса и делаешь действия по копированию.

[Кукша12]

Понял, спасибо. Одна беда - нет у меня VB, не нужен был никогда и соответственно не шарю я как в нём это делается...

Может, есть где русское руководство по RichTextBox?
(ну хоть англицкое)

[Viper]

В RichTextBox есть свойство RTFText, это как раз для текста с форматированием. В Selection имеется свойство FormattedText. Не пробовал соединить эти свойства?

По поводу описания - MSDN или поиск по форуму или в Google

[Кукша12]

удалено автором

[Кукша12]

Пробовал в том числе и так:

Forma.Okno.TextRTF = Selection.FormattedText

Текст вставляется, формат - нет

Пробовал ещё DataObject, но там тоже самое. В нём метод GetFormat показывает только наличие какого-то формата...

Нужна команда тупой вставки из буфера обмена в окно RichTextBox!

[Кукша12]

Сделал:

Private Sub UserForm_Initialize()
VoprosZamena.Ishodnoe.SetFocus
SendKeys "^v", True
End Sub