1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192 |
- <?xml version="1.0" encoding="UTF-8"?>
- <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
- <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ChangeAllChars" script:language="StarBasic">' This macro replaces all characters in a writer-document through "x" or "X" signs.
- ' It works on the currently activated document.
- Private const UPPERREPLACECHAR = "X"
- Private const LOWERREPLACECHAR = "x"
- Private MSGBOXTITLE
- Private NOTSAVEDTEXT
- Private WARNING
- Sub ChangeAllChars ' Change all chars in the active document
- Dim oSheets, oPages as Object
- Dim i as Integer
- Const MBYES = 6
- Const MBABORT = 2
- Const MBNO = 7
- BasicLibraries.LoadLibrary("Tools")
- MSGBOXTITLE = "Change All Characters to an '" & UPPERREPLACECHAR & "'"
- NOTSAVEDTEXT = "This document has already been modified: All characters will be changed to an " & UPPERREPLACECHAR & "'. Should the document be saved now?"
- WARNING = "This macro changes all characters and numbers to an '" & UPPERREPLACECHAR & "' in this document."
- On Local Error GoTo NODOCUMENT
- oDocument = StarDesktop.ActiveFrame.Controller.Model
- NODOCUMENT:
- If Err <> 0 Then
- Msgbox(WARNING & chr(13) & "First, activate a Writer document." , 16, GetProductName())
- Exit Sub
- End If
- On Local Error Goto 0
- sDocType = GetDocumentType(oDocument)
- If oDocument.IsModified And oDocument.Url <> "" Then
- Status = MsgBox(NOTSAVEDTEXT, 3+32, MSGBOXTITLE)
- Select Case Status
- Case MBYES
- oDocument.Store
- Case MBABORT, MBNO
- End
- End Select
- Else
- Status = MsgBox(WARNING, 3+32, MSGBOXTITLE)
- If Status = MBNO Or Status = MBABORT Then ' No, Abort
- End
- End If
- End If
- Select Case sDocType
- Case "swriter"
- ReplaceAllStrings(oDocument)
- Case Else
- Msgbox("This macro only works with Writer documents.", 16, GetProductName())
- End Select
- End Sub
- Sub ReplaceAllStrings(oContainer as Object)
- ReplaceStrings(oContainer, "[a-z]", LOWERREPLACECHAR)
- ReplaceStrings(oContainer, "[à-þ]", LOWERREPLACECHAR)
- ReplaceStrings(oContainer, "[A-Z]", UPPERREPLACECHAR)
- ReplaceStrings(oContainer, "[À-ß]", UPPERREPLACECHAR)
- ReplaceStrings(oContainer, "[0-9]", UPPERREPLACECHAR)
- End Sub
- Sub ReplaceStrings(oContainer as Object, sSearchString, sReplaceString as String)
- oReplaceDesc = oContainer.createReplaceDescriptor()
- oReplaceDesc.SearchCaseSensitive = True
- oReplaceDesc.SearchRegularExpression = True
- oReplaceDesc.Searchstring = sSearchString
- oReplaceDesc.ReplaceString = sReplaceString
- oReplCount = oContainer.ReplaceAll(oReplaceDesc)
- End Sub</script:module>
|