' 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