Hello Friends,

Can anyone help with the following?

I am using a Control Toolbox text box on a worksheet so that users can
enter freetex ongoing, I need the users to be able to highlight a
range of the text to either copy to the clipboard or print it. At the
moment I can only copy all of the data contained in the text box with
the below code, can anyone add to this please?

Private Sub Label2_Click()
Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText TextBox1.Text
MyData.PutInClipboard
'wdapp.Selection.Copy
Set MyData = Nothing

'With Sheet10.TextBox1
' .SelStart = 0
' .SelLength = Len(TextBox1.Text)
' .Copy
' '.Shapes("TextBox1").Select Selection.Characters.Text
'End With
End Sub

Look at the .SelText property of the text box.

NickHK

<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hello Friends,
>
> Can anyone help with the following?
>
> I am using a Control Toolbox text box on a worksheet so that users can
> enter freetex ongoing, I need the users to be able to highlight a
> range of the text to either copy to the clipboard or print it. At the
> moment I can only copy all of the data contained in the text box with
> the below code, can anyone add to this please?
>
> Private Sub Label2_Click()
> Dim MyData As DataObject
> Set MyData = New DataObject
> MyData.SetText TextBox1.Text
> MyData.PutInClipboard
> 'wdapp.Selection.Copy
> Set MyData = Nothing
>
> 'With Sheet10.TextBox1
> ' .SelStart = 0
> ' .SelLength = Len(TextBox1.Text)
> ' .Copy
> ' '.Shapes("TextBox1").Select Selection.Characters.Text
> 'End With
> End Sub
>

Fantastic,

its easy when you know how.

Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText TextBox1.SelText
MyData.PutInClipboard
'wdapp.Selection.Copy
Set MyData = Nothing

thank you very much Nick


NickHK wrote:
> Look at the .SelText property of the text box.
>
> NickHK
>
> <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > Hello Friends,
> >
> > Can anyone help with the following?
> >
> > I am using a Control Toolbox text box on a worksheet so that users can
> > enter freetex ongoing, I need the users to be able to highlight a
> > range of the text to either copy to the clipboard or print it. At the
> > moment I can only copy all of the data contained in the text box with
> > the below code, can anyone add to this please?
> >
> > Private Sub Label2_Click()
> > Dim MyData As DataObject
> > Set MyData = New DataObject
> > MyData.SetText TextBox1.Text
> > MyData.PutInClipboard
> > 'wdapp.Selection.Copy
> > Set MyData = Nothing
> >
> > 'With Sheet10.TextBox1
> > ' .SelStart = 0
> > ' .SelLength = Len(TextBox1.Text)
> > ' .Copy
> > ' '.Shapes("TextBox1").Select Selection.Characters.Text
> > 'End With
> > End Sub
> >