75 lines
No EOL
2.8 KiB
XML
75 lines
No EOL
2.8 KiB
XML
<?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-documet 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> |