Word Document Properties

Part II: Learning the Ropes 
09_046500 ch04.qxp 12/5/06 5:54 PM Page 88

---

Removing excess space
Some strings come with extra baggage in the form of spaces that you don’t
need. The spaces can appear at either end of the string or at both ends. VBA
provides three essential functions for removing excess space:
LTrim
:
Removes the excess spaces from the left side of the string
RTrim
:
Removes the excess spaces from the right side of the string
Trim
:
Removes excess spaces from both ends of the string
You can combine these three functions with other string functions to pro-
duce specific information. Listing 4-5 shows the 
LTrim
, 
RTrim
, and 
Trim
functions in action. It also demonstrates how to combine these three func-
tions with other functions to produce new information.
Listing 4-5
Removing Spaces from a String
Public Sub RemoveSpace()
‘ Declare a string with spaces.
Dim IStr As String
‘ Declare an output string.
Dim Output As String
‘ Add a string to IStr
IStr = “ Hello “
‘ Show the original string length.
Output = “Original String Length: “ + CStr(Len(IStr))
‘ Get rid of the spaces on the left.
Output = Output + vbCrLf + _
“LTrim Length: “ + CStr(Len(LTrim(IStr))) + _
“ Value: “ + Chr(&H22) + LTrim(IStr) +
Chr(&H22)
‘ Get rid of the spaces on the right.
Output = Output + vbCrLf + _
“RTrim Length: “ + CStr(Len(RTrim(IStr))) + _
“ Value: “ + Chr(&H22) + RTrim(IStr) +
Chr(&H22)
‘ Get rid of all the extra spaces.
Output = Output + vbCrLf + _
“Trim Length: “ + CStr(Len(Trim(IStr))) + _
“ Value: “ + Chr(&H22) + Trim(IStr) +
Chr(&H22)
‘ Display the result.
MsgBox Output, vbOKOnly, “Trimming Extra Spaces”
End Sub
89