TEXT conert to Title Case

[Thejan Mendis]

Hi,

Anybody can help me to make a macro to convert text in a textbox to TITLE
CASE.


TJ

 

[Ren? Probst]

hello

Assuming it is the first Textbox (or better the first Shape) within
the main story in the document, than like this:

Sub TestJ()
Dim oRange As Range
Set oRange = ActiveDocument.Shapes(1).TextFrame.TextRange
oRange.Case = wdTitleWord
End Sub


Greatings
René Probst
Switzerland

 

[Mark Tangard]

In the textbox's _Exit event, use:

TextBox1.Text = StrConv(TextBox1.Text, vbProperCase)