Pasting Text Data Into a Textbox on a Multipage Form

[Rob342]

Hi

Does anybody know of a routine where you can paste data into a textbox on a multipage form or even if this is possible
The data could be text on a word doc or excel spreadsheet or simply from a text file

So the theory is the user copies data from ? and then be able to paste it into a textbox on the multipage form ?

Rob

[SamT]

PasteText = "AJdnduAmdirn"

UserForm1.Multipage1.Pages(1).TextBox1.Text = PasteText

With UsreForm1
   With .MultiPage1
      With .Pages1
          With .TextBox1
              .Text = PAsteText
          End With
      End With
   End With
End With

[Rob342]

Hi Sam
Thanks for reply, didn't explain very well.
What the user wants to do is select text from say a word doc and with the user form running is to paste that text from the mouse into the text box.
Rob

[snb]

The user shouldn't copy, to select the text should be sufficient:

In VBA:

Userform1.Textbox301.text=selection.text

Although Textbo301 may be locateed in page3 of a multipage, you can address it directly.

[Rob342]

Hi snb
This works if the text is in the same excel spreadsheet but does not do anything if text is selected in a word doc is it possible to paste directly into a textbox from right clicking with a mouse 0r not ?
Rob

[SamT]

Using the Clipboard might work :

Straight from the UserForms Help file

Dim MyData as DataObject

MyData.GetFromClipboard
TextBox1.Text = MyData.GetText(1)

I would place that in the TextBoxes's doubleClick Event Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyData as DataObject  

MyData.GetFromClipboard
TextBox1.Text = MyData.GetText(1)
End Sub

[snb]

Sub M_snb()
   with getobject("G:\OF\example.docx")
         userform1.textbox301.text=.paragraphs(2).range.text
   end with
End Sub

[Rob342]

Hi Sam
Was getting error code 91 but revamped as code below, It is working via the Dbl_Click event NB Vbax not allowing code tags or pasting of code will try again later

[snb]

I wouldn't mind if this thread was moved again to the spot where it had been placed originally.

[Rob342]

Hi snb
Don't know why they moved it ?
Have tried your code works ok with a couple of tweeks

Sub M_snb()
   with getobject("G:\OF\example.docx")
         textbox301.text=.paragraphs(2).range.text 
   end with
End Sub

SAMT
This works as well

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim clipboard As MSForms.DataObject  
Set clipboard=New MSForms.DataObject
clipboard.GetFromClipboard
TextBox1.Text = clipboard.GetText(1)
End Sub

Have found a routine on Andy Popes website where you can paste directly into a textbox
here the link
http://www.andypope.info/vba/uf_contextualmenu.htm

Rob

[snb]

Them moderators