Здравствуйте, уважаемые знатоки VBA, помогите пожалуйста.
Необходимо текст из переменной отформатировать и скопировать в буфер обмена, для последующей вставки.
В БО текст копирую этим кодом:
Есть ещё такой вариант, не знаю есть ли между ними разница:
Возможно ли в VBA форматирование текста, копируемого в буфер обмена?
Может возможно использовать что-то типа:
Если да, то как это записать в случае с переменной?
Хотя бы выделять "полужирным", уже было бы счастье)
Необходимо текст из переменной отформатировать и скопировать в буфер обмена, для последующей вставки.
В БО текст копирую этим кодом:
| Код |
|---|
Sub TEST_1()
Dim Byf$
Byf = "This is bold." & Chr(13) & "This is normal."
SetClipBoardText Byf
End Sub
Function SetClipBoardText(ByVal Text As Variant) As Boolean
SetClipBoardText = CreateObject("htmlfile").parentWindow.clipboardData.SetData("Text", Text)
End Function
|
Есть ещё такой вариант, не знаю есть ли между ними разница:
| Код |
|---|
Sub TEST_2()
Dim Byf$
Byf = "This is bold." & Chr(13) & "This is normal."
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText Byf: .PutInClipboard
End With
End Sub
|
Может возможно использовать что-то типа:
| Код |
|---|
<p><em><span style="font-family:Calibri;color: rgb(0, 41, 114);font-size:11pt;">Коллеги, Здравствуйте.</em></span></p> |
Хотя бы выделять "полужирным", уже было бы счастье)
