Copy Text From Text Box to Clipboard

[PumaMan]

Hi, I'm just learning VBA and I'd like to copy the text that resides within
the text box of a word doc to the clipboard.

I'm copying from a text box instead of a string variable because I want the
text to retain it's formatting when copied (any bullet points, boxes etc.)

Thanks,
Elbio

 

[DaveLett]

Hi Elbio,
Have a look at the article "Manipulating the clipboard using VBA" at
http://word.mvps.org/FAQs/MacrosVBA/ManipulateClipboard.htm

Because you're a beginner, you might want to keep the routines at the URL
handy. I point to them frequently.

Dave

 

[PumaMan]

Hi Dave,

This is a great link thank you, but it doesn't instruct on how to set the
text within a textbox to the clipboard.

Am I missing something?

Regards,
Elbio

 

[Amish]

A great way to learn these things is to turn on the recorder and try
it out. Not always the most efficient way, but it usually will get you
some code that you can edit down. In this case you would get something
like:

ActiveDocument.Shapes("Text Box 4").Select
Selection.WholeStory
Selection.Copy

Note that the object name is the potentially tricky part in any
automated macro.
The .copy commands throws it to the clipboard - there are some
complexities with the newer office clipboards that contain multiple
entries, but it still works.

 

[DaveLett]

Hi,
The relevant code is:

Dim MyData As DataObject
Dim strClip As String
strClip = "Hi there"

Set MyData = New DataObject

MyData.SetText strClip
MyData.PutInClipboard

You'll need to change the line
strClip = "Hi there"
so that it sets strClip to the value of your textbox.

HTH,
Dave