ucase function

[Guest]

Hi,

I know there is a Ucase function and an Lcase function.

Is there a function that just capitalises the first letter of a word and
make the remaining letter of the word all lowercase.

That is will make powerpoint -> Powerpoint

Thanks

 

[Greg]

Try something like:

Sub FirstCap()
Dim myRng As Range
Set myRng = Selection.Range
myRng.Case = wdTitleWord
End Sub

 

[Jay Freedman]

Hi,

I know there is a Ucase function and an Lcase function.

Is there a function that just capitalises the first letter of a word
and make the remaining letter of the word all lowercase.

That is will make powerpoint -> Powerpoint

Thanks

Greg's example will change the capitalization of text in the body of a
document, which may be what you want. If you're dealing with a string
variable in memory, you can do this:

myStr = UCase(Left(myStr, 1)) & LCase(Mid(myStr, 2))

 

[Jezebel]

Strictly, the brief didn't call for de-capitalising the rest of the string.
Better --

myStr = UCase$(Left$(myStr, 1)) & Mid$(myStr, 2)


Separately, the string version of these functions is about 1000 times faster
than the variant version. (Entirely irrelevant unless you're calling them
repeatedly.)

 

[Guest]

Thanks everyone.

It's a great help.

I learnt a bit more of vba as well.

Thanks again