![]() |
#6
|
||||
|
||||
![]()
In that case, try:
Code:
Sub Reformat() Dim i As Long, StrTmp As String With Selection For i = 1 To .Words.Count If .Words(i) = LCase(.Words(i)) Then StrTmp = StrTmp & .Words(i) Else StrTmp = StrTmp & UCase(Left(.Words(i), 1)) & LCase(Mid(.Words(i), 2, Len(.Words(i)) - 1)) End If Next .Text = StrTmp End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
IanM_01 | Word | 5 | 11-21-2015 02:29 AM |
IF Function | Azleenda | Excel | 2 | 11-10-2015 10:06 PM |
![]() |
lcaretto | Excel Programming | 2 | 05-26-2014 07:19 PM |
Creating a graph for Future Value function (FV function) | bmoody | Excel | 2 | 11-06-2013 10:52 AM |
if function help | jim831 | Excel | 2 | 10-29-2010 07:06 PM |