Lifting Upper Case words from textBox.Text

[Gem_man]

Can anyone tell me if it is possible to copy words that are all in upper case
from text entered in a text box?

I can find plenty of refernces to charcters in a string but nothing on
complete words.

Any pointers as to what function I should use would be appreciated.

My intention is to use these words to populate a combobox

Many thanks

 

[Gem_man]

I think I had better clarify my request.

User types some text into a textbox say: "HELLO, today I WILL be MOSTLY
eating raw cabbages"

I want to be able to use HELLO, WILL and MOSTLY to populate a ComboBox drop
down list.

Hope this clears up any confusion.

Many thanks

 

[Helmut Weber]

Hi Gem_man,

what kind of textbox are you talking about?

Unfortunately, there are two, which could be created like this:

Sub Macro6()
Selection.InlineShapes.AddOLEControl ClassType:="Forms.TextBox.1"
End Sub
Sub Macro7()
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 90#, _
189#, 90#, 45#).Select
End Sub


Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"