propercase function

		Microsoft Office Forums > Microsoft Word > Word VBA
propercase function

FAQ

Thread Tools

Display Modes

05-08-2016, 10:44 PM

macropod

Windows 7 64bit propercase function

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,343

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]

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Restrict Editing function disable insert textbox function	IanM_01	Word	5	11-21-2015 02:29 AM
IF Function	Azleenda	Excel	2	11-10-2015 10:06 PM
#REF! Error in calling VBA function disappears when function is copied	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

Other Forums: Access Forums

All times are GMT -7. The time now is 07:21 PM.