Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

any vbs to turn first letters of words in a field to uppercase? 1

Status
Not open for further replies.
barny2006

barny2006

MIS
Mar 30, 2006
521
US
hi folks,
is there an app/vbs/vba that can turn first letters of words in a field to uppercase and the rest lf the letters to lowercase?
 
Sort by date Sort by votes
Use an input mask: >L???????????????????????????
the > symbol means switch that character to uppercase, the L stands for letter, and the ? stands for any character.

Tom

Live once die twice; live twice die once.
 
Upvote 0 Downvote
cool,
but i think that's for the whole field. i want each word in the field to have uppercase for the first char.
 
Upvote 0 Downvote
copied from:


Code: 
data = " 21"",""BOB D."",""StePHhens"",""SA052"",""CALL REAL ESTATE""," _
& """CALL01"",""(804)411-2222"" "

With New RegExp
.Global = True
.IgnoreCase = True

.Pattern = "\b(\w)(\w*?)\b"
WScript.echo .Replace(data, GetRef("ProperCase"))

.Pattern = "\b([a-z])([a-z]*?)\b"
WScript.echo .Replace(data, GetRef("ProperCase"))
End With

Function ProperCase(match, submatch1, submatch2, index, source)
ProperCase = UCase(submatch1) & LCase(submatch2)
End Function


Hope this helps.

[vampire][bat]
 
Upvote 0 Downvote
Do you want to force capitlization on entry or after update?
If after update, try this:

Code: 
Private Sub [!]MyText[/!]_AfterUpdate()
Dim strMyText As String

strMyText = Me.[!]MyText[/!].Value
strMyText = StrConv(strMyText, vbProperCase)
Me.[!]MyText[/!].Value = strMyText

End Sub

You will need to change the items in red to the actual name of your text box, of course. [smile]
Hope this helps...
Tom

Live once die twice; live twice die once.
 
Upvote 0 Downvote
this is a batch process that process the whole table to be ready for printing on letters (mail/merge).

thank you folks. it works great with any string.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

bdwilcox
  • Question
Trying to adapt VBScript to search if machine is in an AD group 6
Replies
8
Views
801
SoftwareRT
SoftwareRT
lunter
  • Locked
  • Question
How to create vbArray+vbByte (8209) in *.vbs stript
Replies
0
Views
157
lunter
lunter
Michastro
  • Locked
  • Question
Send an order to an IP power in VBS
Replies
0
Views
146
Michastro
Michastro
paullem
  • Locked
  • Question
vbscript to read properties of JPEG file
Replies
4
Views
303
paullem
paullem
Brianfree
  • Locked
  • Question
Excel Rows to Column 1
Replies
2
Views
204
Brianfree
Brianfree

Part and Inventory Search

Sponsor

Back
Top