[Issue] Uppercase to lowercase with capital letter
Posted: Fri Jun 27, 2008 4:28 pm
| Edit: Hagar: split the thread from: [Solved] Format uppercase to lowercase with capital letter related to Calc. |
Apache OpenOffice Community Forum
User community support forum for Apache OpenOffice, LibreOffice and all the OpenOffice.org derivatives
https://forum.openoffice.org/en/forum/
[Issue] Uppercase to lowercase with capital letter
Page 1 of 1
Re: format uppercase to lowercase with capital letter
Posted: Fri Jun 27, 2008 8:39 pm
You can easily drop all letters in a selected region to lowercase by Format->Change Case->Lowercase, but changing just the first letter is a little more complex. You need to read up on regular expression searches. Do a find all on \<[A-Z] and this will highlight all first letters. You can now lowercase these as before.
Re: format uppercase to lowercase with capital letter
Posted: Fri Jun 27, 2008 11:42 pm
It would great if it had a third option
Format
__>Change Case
_____>UPPERCASE,
_____>lowercase,
_____>First Letter Uppercase.
Format
__>Change Case
_____>UPPERCASE,
_____>lowercase,
_____>First Letter Uppercase.
[Solved] Format uppercase to lowercase with capital letter
Posted: Sat Jun 28, 2008 12:56 am
First Letter Uppercase / Title Case. Vote for http://qa.openoffice.org/issues/show_bug.cgi?id=1601 
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Sat Jun 28, 2008 12:21 pm
This is what I use.
This Macro:
And I assigned it to Shift-F3 and added it to the Format menu as well. Sorted.
Here are Bhikkhu Pesala's tips for adding macros to menus and buttons: Assigning a Macro to a Button
This Macro:
Code: Select all
Sub CaseToggle
' CaseToggleMk3 phb 20070828
' Should preserve formatting and bookmarks in Writer
' Should work on text within a table in Writer (but not on whole cells)
' Should work on multiple words
' Does not handle non-contiguous text selection
dim document,dispatcher,vcursor,oText,alpha,omega,ThisSeln,oBookmark As Object
dim seln,nextword,nextbit as string
dim loops,posn,nSelCount as integer
dim ctogbmpv(0) as new com.sun.star.beans.PropertyValue
On Error GoTo ExitPoint ' In case selection is not text
nSelCount = thiscomponent.getCurrentSelection().getCount()
if nSelCount>1 then
msgbox ("There seems to be more than one piece of text selected." & _
chr(10) & "Try making one selection.",0,"Case Conversion")
goto ExitPoint
endif
loops=0
document=ThisComponent.CurrentController.Frame
dispatcher=createUnoService("com.sun.star.frame.DispatchHelper")
vcursor=ThisComponent.currentcontroller.getViewCursor()
ctogbmpv(0).Name="Bookmark"
ctogbmpv(0).Value="ctogbm"
dispatcher.executeDispatch(document, ".uno:DeleteBookmark", "", 0, ctogbmpv())
dispatcher.executeDispatch(document, ".uno:InsertBookmark", "", 0, ctogbmpv())
GetSeln: ' Much here is taken from Andrew Brown and Andrew Pitonyak
oText=vcursor.getText()
alpha=vcursor.getStart()
omega=vcursor.getEnd()
ThisSeln=oText.createTextCursorByRange(alpha)
ThisSeln.goToRange(omega,TRUE)
seln=ThisSeln.getString()
if seln<>"" then ' There is a selection - go and change case
goto ChgCase
endif ' make a selection to change
dispatcher.executeDispatch(document, ".uno:GoToNextWord", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:WordLeftSel", "", 0, Array())
loops=loops+1
if loops=2 then goto FinishOff ' in case we failed to find any text to select
goto GetSeln
ChgCase: 'Check case of seln and alter accordingly
if seln=ucase(seln) then 'seln is already UPPER - set to lower
dispatcher.executeDispatch(document, ".uno:ChangeCaseToLower", "", 0, Array())
goto SetToTitle
endif
if seln=lcase(seln) then 'seln is already lower - set to Title
goto SetToTitle
endif 'seln is probably mixed case - set to UPPER
dispatcher.executeDispatch(document, ".uno:ChangeCaseToLower", "", 0, Array())
goto SetToTitle
SetToTitle:
vcursor.collapsetoStart()
posn=0
do while posn<len(seln)
loops=0
nextbit="1"
do while nextbit=lcase(nextbit) and loops<2
vcursor.goRight(1,TRUE)
dispatcher.executeDispatch(document, ".uno:ChangeCaseToUpper", "", 0, Array())
alpha=vcursor.getStart()
omega=vcursor.getEnd()
ThisSeln=oText.createTextCursorByRange(alpha)
ThisSeln.goToRange(omega,TRUE)
nextbit=ThisSeln.getString()
loops=loops+1
loop
if instr(nextbit," ")>0 or instr(nextbit,chr(10))>0 then
vcursor.goLeft(1,TRUE) ' To avoid problems due to punctuation marks
endif
dispatcher.executeDispatch(document, ".uno:WordRightSel", "", 0, Array())
alpha=vcursor.getStart()
omega=vcursor.getEnd()
ThisSeln=oText.createTextCursorByRange(alpha)
ThisSeln.goToRange(omega,TRUE)
nextword=ThisSeln.getString()
posn=posn + len(nextword)
vcursor.collapsetoEnd()
loop
FinishOff: 'set vcursor back to the original position
oBookmark=ThisComponent.getBookmarks().getByName("ctogbm")
ThisComponent.getCurrentController().select(oBookmark)
dispatcher.executeDispatch(document, ".uno:DeleteBookmark", "", 0, ctogbmpv())
ExitPoint:
end Sub Here are Bhikkhu Pesala's tips for adding macros to menus and buttons: Assigning a Macro to a Button
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Mon Jun 30, 2008 2:47 pm
TheGurkha,
where should I place the code of your macro in Openoffice, to make it work?
Thank you.
where should I place the code of your macro in Openoffice, to make it work?
Thank you.
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Mon Jun 30, 2008 2:49 pm
See here: [Tutorial] How to install a code snippet.
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Wed Jul 07, 2010 1:46 am
I am new to Open Office. I am very pleasantly surprised at its many built in features. I still can hardly believe that so vast and robust a project is provided to the community for free. Open Office is certainly a giant labor of love.
On the subject of initial capitals for each word in a selection, I am shocked and surprised at the omission of initial capitals as a built in feature. I find it especially hard to believe there is no built in capitalization feature after reading the help documentation. The help documentation seems to indicate that it is possible to capitalize text without writing a macro. Is it really necessary to write a macro to capitalize text? It seems to me that if you go to all the trouble to write your macro in macro code, one could write the same logic in C++ code and improve the Open Office Writer product. I wonder if any one is investigating the possibility of using the logic in your macro to write a built in function for the Writer.
I reproduce below an issue report that I guess I was chewed out for submitting. I still do not know my way around the Open Office organization.
________________________________________________________________________________________________________________________
Issue 111980
start:
Query | Reports
Issue 111980
Issue #: 111980 Platform: Unknown Reporter: howardmccay (howardmccay)
Component: Word processor OS: Windows Vista
Subcomponent: editing Version: OOO320m9 CC: None defined
Status: CLOSED Priority: P3
Resolution: INVALID Issue type: DEFECT
Target milestone: ---
Assigned to: writerneedsconfirm (writerneedsconfirm)
QA Contact: issues@sw
URL:
* Summary: How to capitalize the first letter of each word in text?
Status whiteboard:
Keywords:
Attachments:
Issue 111980 depends on: Show dependency tree
Issue 111980 blocks:
Votes for issue 111980: Vote for this issue
View issue activity | Format for printing | Format as XML
Description: Opened: Tue Jun 1 05:03:00 +0000 2010 Sort by: Oldest first | Newest first
The help documentation (F1) in the word processor version OOO320m12 reads:
_________________________________________________________________________
Changing the Case of Text
You can change the case of text, format text with small capitals, or capitalize
the first letter of each word in a selection.
When you apply a formatting to your text by Format - Character, the text stays
the same, it is only displayed in another way. On the other hand, when you
choose Format - Change Case, the text is permanently changed.
To Capitalize Text
1.Select the text that you want to capitalize.
2.Do one of the following:
To Change Text to Lowercase
1.Select the text that you want to change to lowercase.
2.Do one of the following:
_________________________________________________________________________
This documentation seems to indicate that it is possible to get the word
processor to capitalize the first letter of each word in selected text,
but fails to indicate how to do this.
The menu Format>Change Case has two options: Uppercase and Lowercase.
There is no initial letter capitalize option.
Microsoft word rotates among all lowercase, all uppercase, and initial capitals
in the selected text when you press shift-F3. Can Open Office Writer do this?
------- Additional comments from mru Tue Jun 1 07:16:29 +0000 2010 -------
This is not a support forum, please refer to mailing list “users@openoffice.org”
or http://support.openoffice.org.
------- Additional comments from mru Tue Jun 1 07:16:54 +0000 2010 -------
Closed.
On the subject of initial capitals for each word in a selection, I am shocked and surprised at the omission of initial capitals as a built in feature. I find it especially hard to believe there is no built in capitalization feature after reading the help documentation. The help documentation seems to indicate that it is possible to capitalize text without writing a macro. Is it really necessary to write a macro to capitalize text? It seems to me that if you go to all the trouble to write your macro in macro code, one could write the same logic in C++ code and improve the Open Office Writer product. I wonder if any one is investigating the possibility of using the logic in your macro to write a built in function for the Writer.
I reproduce below an issue report that I guess I was chewed out for submitting. I still do not know my way around the Open Office organization.
________________________________________________________________________________________________________________________
Issue 111980
start:
Query | Reports
Issue 111980
Issue #: 111980 Platform: Unknown Reporter: howardmccay (howardmccay)
Component: Word processor OS: Windows Vista
Subcomponent: editing Version: OOO320m9 CC: None defined
Status: CLOSED Priority: P3
Resolution: INVALID Issue type: DEFECT
Target milestone: ---
Assigned to: writerneedsconfirm (writerneedsconfirm)
QA Contact: issues@sw
URL:
* Summary: How to capitalize the first letter of each word in text?
Status whiteboard:
Keywords:
Attachments:
Issue 111980 depends on: Show dependency tree
Issue 111980 blocks:
Votes for issue 111980: Vote for this issue
View issue activity | Format for printing | Format as XML
Description: Opened: Tue Jun 1 05:03:00 +0000 2010 Sort by: Oldest first | Newest first
The help documentation (F1) in the word processor version OOO320m12 reads:
_________________________________________________________________________
Changing the Case of Text
You can change the case of text, format text with small capitals, or capitalize
the first letter of each word in a selection.
When you apply a formatting to your text by Format - Character, the text stays
the same, it is only displayed in another way. On the other hand, when you
choose Format - Change Case, the text is permanently changed.
To Capitalize Text
1.Select the text that you want to capitalize.
2.Do one of the following:
To Change Text to Lowercase
1.Select the text that you want to change to lowercase.
2.Do one of the following:
_________________________________________________________________________
This documentation seems to indicate that it is possible to get the word
processor to capitalize the first letter of each word in selected text,
but fails to indicate how to do this.
The menu Format>Change Case has two options: Uppercase and Lowercase.
There is no initial letter capitalize option.
Microsoft word rotates among all lowercase, all uppercase, and initial capitals
in the selected text when you press shift-F3. Can Open Office Writer do this?
------- Additional comments from mru Tue Jun 1 07:16:29 +0000 2010 -------
This is not a support forum, please refer to mailing list “users@openoffice.org”
or http://support.openoffice.org.
------- Additional comments from mru Tue Jun 1 07:16:54 +0000 2010 -------
Closed.
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Wed Jul 07, 2010 10:57 pm
3.3 will introduce more options:
Sentence case
lowercase
UPPERCASE
Capitalize Every Word
tOGGLE cASE
Sentence case
lowercase
UPPERCASE
Capitalize Every Word
tOGGLE cASE
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Thu Jul 08, 2010 6:29 am
Dear Gurkha,
While not as elegant as yours, here is a macro I built for this problem. It works on subsequent words after the first, also and I stuck it on a tool bar under the "A arrow to B arrow to A" icon.
While not as elegant as yours, here is a macro I built for this problem. It works on subsequent words after the first, also and I stuck it on a tool bar under the "A arrow to B arrow to A" icon.
Code: Select all
sub CaseCorrect
rem ---Starting at cursor, it sets a Capital, then the rest of the word lower. -
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Count"
args4(0).Value = 1
args4(1).Name = "Select"
args4(1).Value = true
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args4())
dispatcher.executeDispatch(document, ".uno:ChangeCaseToUpper", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:Escape", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:WordRightSel", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:ChangeCaseToLower", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:Escape", "", 0, Array())
end subRe: [Issue] Uppercase to lowercase with capital letter
Posted: Thu Nov 18, 2010 1:12 am
I don't see them any more in release candidate 5. What's happened?RGB wrote:3.3 will introduce more options:
Sentence case
lowercase
UPPERCASE
Capitalize Every Word
tOGGLE cASE
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Thu Nov 18, 2010 1:29 am
I've it on xubuntu 10.10 with 3.3RC5 just installed:
- Case.png (14.58 KiB) Viewed 82765 times
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Thu Nov 18, 2010 1:40 am
Commented in the issue discussion.
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Fri Nov 19, 2010 1:37 am
Addendum: the new options are available in Calc but not in Writer.
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Sat Nov 20, 2010 9:32 pm
Addendum: after installing the new language pack for Dutch the new options suddenly popped up (the installation damaged the user profile, I couldn't get a proper list of languages in the Options dialog box anymore, so I made a new one).
Re: [Issue] Uppercase to lowercase with capital letter
Posted: Wed Jan 19, 2011 1:11 pm
hello to everybody,
I modyfied the code to achieve this:
UPPER case->lower case->Title case
(in previous version it converted always in Titlecase)
thanks to the original author,
hope this helps,
regards
I modyfied the code to achieve this:
UPPER case->lower case->Title case
(in previous version it converted always in Titlecase)
thanks to the original author,
hope this helps,
regards
Code: Select all
REM ***** BASIC *****
Sub CaseToggle
' CaseToggleMk3 phb 20070828
' Should preserve formatting and bookmarks in Writer
' Should work on text within a table in Writer (but not on whole cells)
' Should work on multiple words
' Does not handle non-contiguous text selection
dim document,dispatcher,vcursor,oText,alpha,omega,ThisSeln,oBookmark As Object
dim seln,nextword,nextbit as string
dim loops,posn,nSelCount as integer
dim ctogbmpv(0) as new com.sun.star.beans.PropertyValue
On Error GoTo ExitPoint ' In case selection is not text
nSelCount = thiscomponent.getCurrentSelection().getCount()
if nSelCount>1 then
msgbox ("There seems to be more than one piece of text selected." & _
chr(10) & "Try making one selection.",0,"Case Conversion")
goto ExitPoint
endif
loops=0
document=ThisComponent.CurrentController.Frame
dispatcher=createUnoService("com.sun.star.frame.DispatchHelper")
vcursor=ThisComponent.currentcontroller.getViewCursor()
ctogbmpv(0).Name="Bookmark"
ctogbmpv(0).Value="ctogbm"
dispatcher.executeDispatch(document, ".uno:DeleteBookmark", "", 0, ctogbmpv())
dispatcher.executeDispatch(document, ".uno:InsertBookmark", "", 0, ctogbmpv())
GetSeln: ' Much here is taken from Andrew Brown and Andrew Pitonyak
oText=vcursor.getText()
alpha=vcursor.getStart()
omega=vcursor.getEnd()
ThisSeln=oText.createTextCursorByRange(alpha)
ThisSeln.goToRange(omega,TRUE)
seln=ThisSeln.getString()
if seln<>"" then ' There is a selection - go and change case
goto ChgCase
endif ' make a selection to change
dispatcher.executeDispatch(document, ".uno:GoToNextWord", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:WordLeftSel", "", 0, Array())
loops=loops+1
if loops=2 then goto FinishOff ' in case we failed to find any text to select
goto GetSeln
ChgCase: 'Check case of seln and alter accordingly
if seln=ucase(seln) then 'seln is already UPPER - set to lower
dispatcher.executeDispatch(document, ".uno:ChangeCaseToLower", "", 0, Array())
goto FinishOff
endif
if seln=lcase(seln) then 'seln is already lower - set to Title
goto SetToTitle
endif 'seln is probably mixed case - set to UPPER
dispatcher.executeDispatch(document, ".uno:ChangeCaseToUpper", "", 0, Array())
goto FinishOff
SetToTitle:
vcursor.collapsetoStart()
posn=0
do while posn<len(seln)
loops=0
nextbit="1"
do while nextbit=lcase(nextbit) and loops<2
vcursor.goRight(1,TRUE)
dispatcher.executeDispatch(document, ".uno:ChangeCaseToUpper", "", 0, Array())
alpha=vcursor.getStart()
omega=vcursor.getEnd()
ThisSeln=oText.createTextCursorByRange(alpha)
ThisSeln.goToRange(omega,TRUE)
nextbit=ThisSeln.getString()
loops=loops+1
loop
if instr(nextbit," ")>0 or instr(nextbit,chr(10))>0 then
vcursor.goLeft(1,TRUE) ' To avoid problems due to punctuation marks
endif
dispatcher.executeDispatch(document, ".uno:WordRightSel", "", 0, Array())
alpha=vcursor.getStart()
omega=vcursor.getEnd()
ThisSeln=oText.createTextCursorByRange(alpha)
ThisSeln.goToRange(omega,TRUE)
nextword=ThisSeln.getString()
posn=posn + len(nextword)
vcursor.collapsetoEnd()
loop
FinishOff: 'set vcursor back to the original position
oBookmark=ThisComponent.getBookmarks().getByName("ctogbm")
ThisComponent.getCurrentController().select(oBookmark)
dispatcher.executeDispatch(document, ".uno:DeleteBookmark", "", 0, ctogbmpv())
ExitPoint:
end Sub