Comments on: Macros: Text Utilities Part I http://www.openofficetips.com/2005/08/29/macros-text-utilities-part-i/ My contribution to the OOo community - including a blog with daily tips, templates and scripts. Enjoy. Thu, 09 Feb 2012 22:53:25 +0000 http://wordpress.org/?v=2.2.1 By: Jo http://www.openofficetips.com/2005/08/29/macros-text-utilities-part-i/#comment-9939 Jo Tue, 01 Jan 2008 19:01:32 +0000 http://www.openofficetips.com/2005/08/29/macros-text-utilities-part-i/#comment-9939 If you're going to post code, you should consider another blogging platform, or changing it so that it doesn't use smartypants (or whatever its using) to turn all your quotation and speech marks into facy varients that are incorrect syntax for your language If you’re going to post code, you should consider another blogging platform, or changing it so that it doesn’t use smartypants (or whatever its using) to turn all your quotation and speech marks into facy varients that are incorrect syntax for your language

]]> By: Robin http://www.openofficetips.com/2005/08/29/macros-text-utilities-part-i/#comment-5759 Robin Fri, 23 Nov 2007 17:30:40 +0000 http://www.openofficetips.com/2005/08/29/macros-text-utilities-part-i/#comment-5759 I also needed a "title case" so I extended your script + a script I found in the forums: http://www.oooforum.org/forum/viewtopic.phtml?t=23299 I've got limited experience with macros but this seems to work: Sub TitleC dim ignore as string oDesktop = createUnoService("com.sun.star.frame.Desktop") oDocument = ThisComponent oSelectedCells = oDocument.CurrentSelection oActiveCells = oSelectedCells.RangeAddress oSheets = oDocument.Sheets oSheet = oSheets.getByIndex(oActiveCells.Sheet) ' active table ignore="a,the,than,with,from,of,to,and" For nRow = oActiveCells.StartRow To oActiveCells.EndRow For nCol = oActiveCells.StartColumn To oActiveCells.EndColumn oCell = oSheet.getCellByPosition(nCol,nRow) CellVal = oCell.getString() tCaseArr = split(lcase(CellVal," ")) for q = 0 to ubound(tCaseArr) if instr(ignore,tCaseArr(q)) I also needed a “title case” so I extended your script + a script I found in the forums: http://www.oooforum.org/forum/viewtopic.phtml?t=23299

I’ve got limited experience with macros but this seems to work:

Sub TitleC
dim ignore as string
oDesktop = createUnoService(”com.sun.star.frame.Desktop”)
oDocument = ThisComponent
oSelectedCells = oDocument.CurrentSelection
oActiveCells = oSelectedCells.RangeAddress
oSheets = oDocument.Sheets
oSheet = oSheets.getByIndex(oActiveCells.Sheet) ‘ active table
ignore=”a,the,than,with,from,of,to,and”
For nRow = oActiveCells.StartRow To oActiveCells.EndRow
For nCol = oActiveCells.StartColumn To oActiveCells.EndColumn
oCell = oSheet.getCellByPosition(nCol,nRow)
CellVal = oCell.getString()
tCaseArr = split(lcase(CellVal,” “))
for q = 0 to ubound(tCaseArr)
if instr(ignore,tCaseArr(q))

]]>