Copy/Paste buttons to copy and paste only highlighted Text in a Userform textbox to the clipboard

[chazrab]

As title indicates. It basically replaces Ctrl+C and Ctrl+V.
This code copies the entire textbox contents. Don't want that - just a manually highlighted string within the textbox text.

Private Sub CommandButton1_Click()
Dim strclipboard As String
Set objData = New DataObject
strclipboard = TextBox1.Text
objData.SetText strclipboard
objData.PutInClipBoard
objData.GetFromClipboard
strclipboard = ""
strclipboard = objDataSetText
End Sub

As mentioned, the code copies the entire "The quick brown fox ran up a tree"
How would the correct code only copy "ran up a tree" highlighted or "brown fox" highlighted
and paste in any textbox or document with a Paste button. or by right clicking ?

Thanks for anyone's help.
cr

 

[Micron]

The quick brown fox ran up a tree
SelStart property gives you the starting point of the selected text (so 20?). SelLength gives you the number of characters selected (13).
Mid("The quick brown fox ran up a tree", 20,13) will return the sub string.
I have to wonder why anyone would code for this when there is ctrl+c & ctrl+v

Then again, I had no idea that foxes could climb trees, so always learning.

 

[Micron]

I paid more attention to your code after that post. If you're just going to paste into a sheet or userform textbox you don't need the clipboard code, no?
And if that is really your code, it doesn't work, correct? I'd wager that you don't use Option Explicit because you don't declare variables, and this
objDataSetText

would be regarded as a variable.

 

[chazrab]

Hi Micron - I'm trying to understand your reply. Bear with me. No to overkill this but - assigning preset Selstart and Seltext numbers limits
the highlighted copy range - all I want to do is just highlight and copy any highlighted text in a userform textbox - be it the entire textbox text
or a portion of the textbox text - any highlighted portion - grab that highlighted text, copy it to the clipboard, place the
cursor in a textbox on another userform, and use another Paste button( getClipboard selection and Paste selection ?)
to paste that selection of text in the other userform textbox.

Excel has to be able to recognize that it needs to select and copy any highlighted text from the beginning of the blue highlighted
position to the end of the blue highlighted position - and that will vary. To me, this should be beyond simple. I just can't figure it out -

Thanks again for trying to help me as you've done in the past.
cr

 

[Micron]

I think I already understood, so last night I entered text in a userform textbox, highlighted a portion and ran my code and raised a message box with only the highlighted portion. Not sure I saved it, so I'll look and be back ASAP.

 

[chazrab]

Fri 3/3/23 9:43 AM CST:
Thanks a mil Micron - I'll look forward to receiving it

cr

 

[Micron]

This seems to work for me (I've never used the object before) so this may be lacking in terms of error prevention (such as nothing having been selected when button clicked). I recommend adding that if it seems to work for you.

Private Sub CommandButton1_Click()
Dim strclipboard As String
Dim objData As Object

Set objData = New DataObject
strclipboard = Mid(Me.TextBox1, Me.TextBox1.SelStart, Me.TextBox1.SelLength)
objData.SetText strclipboard
objData.PutInClipboard
MsgBox objData.GetText(1)

'strclipboard = ""
'strclipboard = objData.SetText
End Sub

Here's my reference

VBA-Docs/Language/Reference/User-Interface-Help/getformat-gettext-settext-methods-example.md at main · MicrosoftDocs/VBA-Docs

This repo is no longer accepting new issues. To request changes, create a branch, make changes, add @lindalu-MSFT as reviewer, then submit a PR. For more resources, see README.MD - MicrosoftDocs/VB...

github.com