Need Applescript for Converting Upper/Lower Case

B

Br0wn Recloose

hi,

i have a situation where i frequently receive xls files with lots o
text written in ALL CAPS. i need for that text to use "proper
capitalization (Title Case would be an adequate alternative, and lowe
case would be a last resort.), but am looking to avoid lots of typing.

i'm on mac osx, and believe i'd prefer an applescript solution. i'v
dabbled a bit in applescript but don't know enough to pull this on
off. an applescript would also be excellent because i figure i coul
probably modify it without too much trouble, to work with othe
applications.

if there is a non-applescript solution, i'd be interested to know tha
as well. i could also make use of a PC solution, such as a VBscript
if necessary.

thanks!
jo
 
D

David Adamson

Here is something that will work that I found in an example ages ago.

Can't remember who developed it


Sub ConvertToTitle()
Dim wks As Worksheet
Dim rngCell As Range
Dim iCols As Integer
Dim iRows As Integer

For Each wks In Sheets

With wks.UsedRange
For iCols = 1 To .Columns.Count
For iRows = 1 To .Rows.Count
Set rngCell = .Cells(iRows, iCols)
If Not rngCell.HasFormula Then _
rngCell.Value = StrConv(rngCell.Text, 3)
Next iRows
Next iCols
End With
Next wks

End Sub
 
B

Br0wn Recloose

looks good, i'll give this a whirl next time i'm near a PC! if anybody
has an applescript equivalent that would be great.

thanks,
jon
 
J

JE McGimpsey

You can use applescript - it depends on what version of XL you're using
- XL04 exposes the entire Excel object model to applescript, XLv.X
doesn't.

But you don't need to have a PC to use VBA (which is what David Adamson
gave you) - All current versions of MacXL use VBA, for the most part
compatible with WinXL.
 
Top