REM  *****  BASIC  *****   Typographische durch gerade Apostrophe ersetzen, apostrophierte Wrter und Stoppwrter lschen.

Sub Main

End Sub



sub Stoppwortfranzoesisch
rem ----------------------------------------------------------------------
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SuperScript", "", 0, Array())

rem ----------------------------------------------------------------------
dim args1(21) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SearchItem.StyleFamily"
args1(0).Value = 2
args1(1).Name = "SearchItem.CellType"
args1(1).Value = 0
args1(2).Name = "SearchItem.RowDirection"
args1(2).Value = true
args1(3).Name = "SearchItem.AllTables"
args1(3).Value = false
args1(4).Name = "SearchItem.SearchFiltered"
args1(4).Value = false
args1(5).Name = "SearchItem.Backward"
args1(5).Value = false
args1(6).Name = "SearchItem.Pattern"
args1(6).Value = false
args1(7).Name = "SearchItem.Content"
args1(7).Value = false
args1(8).Name = "SearchItem.AsianOptions"
args1(8).Value = false
args1(9).Name = "SearchItem.AlgorithmType"
args1(9).Value = 0
args1(10).Name = "SearchItem.SearchFlags"
args1(10).Value = 65536
args1(11).Name = "SearchItem.SearchString"
args1(11).Value = ""
args1(12).Name = "SearchItem.ReplaceString"
args1(12).Value = "'"
args1(13).Name = "SearchItem.Locale"
args1(13).Value = 255
args1(14).Name = "SearchItem.ChangedChars"
args1(14).Value = 2
args1(15).Name = "SearchItem.DeletedChars"
args1(15).Value = 2
args1(16).Name = "SearchItem.InsertedChars"
args1(16).Value = 2
args1(17).Name = "SearchItem.TransliterateFlags"
args1(17).Value = 1280
args1(18).Name = "SearchItem.Command"
args1(18).Value = 3
args1(19).Name = "SearchItem.SearchFormatted"
args1(19).Value = false
args1(20).Name = "SearchItem.AlgorithmType2"
args1(20).Value = 1
args1(21).Name = "Quiet"
args1(21).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())

rem ----------------------------------------------------------------------
dim entry(1 To 20) as String
dim count as Integer
dim args(21) as new com.sun.star.beans.PropertyValue

entry = Array("c'", "d'", "j'", "l'", "m'", "n'", "qu'", "s'", "t'", "-t-", "-t", "-ils", "-il", "-elles", "-elle", "-je", "au-", "-ci", "-l", "jusqu'")

for count = 0 To 19
args(0).Name = "SearchItem.StyleFamily"
args(0).Value = 2
args(1).Name = "SearchItem.CellType"
args(1).Value = 0
args(2).Name = "SearchItem.RowDirection"
args(2).Value = true
args(3).Name = "SearchItem.AllTables"
args(3).Value = false
args(4).Name = "SearchItem.SearchFiltered"
args(4).Value = false
args(5).Name = "SearchItem.Backward"
args(5).Value = false
args(6).Name = "SearchItem.Pattern"
args(6).Value = false
args(7).Name = "SearchItem.Content"
args(7).Value = false
args(8).Name = "SearchItem.AsianOptions"
args(8).Value = false
args(9).Name = "SearchItem.AlgorithmType"
args(9).Value = 0
args(10).Name = "SearchItem.SearchFlags"
args(10).Value = 0
args(11).Name = "SearchItem.SearchString"
args(11).Value = entry(count)
args(12).Name = "SearchItem.ReplaceString"
args(12).Value = ""
args(13).Name = "SearchItem.Locale"
args(13).Value = 255
args(14).Name = "SearchItem.ChangedChars"
args(14).Value = 2
args(15).Name = "SearchItem.DeletedChars"
args(15).Value = 2
args(16).Name = "SearchItem.InsertedChars"
args(16).Value = 2
args(17).Name = "SearchItem.TransliterateFlags"
args(17).Value = 256
args(18).Name = "SearchItem.Command"
args(18).Value = 3
args(19).Name = "SearchItem.SearchFormatted"
args(19).Value = false
args(20).Name = "SearchItem.AlgorithmType2"
args(20).Value = 1
args(21).Name = "Quiet"
args(21).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args())
Next Count


rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SuperScript", "", 0, Array())

rem ----------------------------------------------------------------------


entry = Array("a", "", "afin", "ah", "aller", "alors", "aprs", "assez", "au", "auprs", "aura", "auront", "aussi", "autant", "autour", "autre", "autres", "autres", "aux", "avaient", "avait", "avant", "avec", "avoir", "bas", "basse", "basses", "beaucoup", "bien", "a", "car", "ce", "ceci", "cela", "celle", "celles", "celui", "certain", "certaine", "certaines", "certains", "ces", "cet", "cette", "ceux", "chacun", "chacune", "chaque", "chez", "chose", "combien", "comme", "contre", "ct", "dans", "de", "debout", "dehors", "depuis", "derrire", "des", "ds", "dessous", "dessus", "deux", "devaient", "devait", "devant", "dira", "diront", "disaient", "disait", "disent", "dit", "doit", "doivent", "dont", "du", "durant", "galement", "eh", "elle", "elles", "en", "encore", "ensemble", "ensuite", "entre", "envers", "est", "est-ce", "et", "taient", "tait", "etc.", "t", "tre", "eu", "face", "faon", "faire", "faisaient", "faisait", "fait", "fallait", "fallu", "faudrait", "faut", "fera", "feront", "font", "gure", "haut", "haute", "hautes", "hauts", "hors", "ici", "il", "ils", "jamais", "je", "la", "l", "le", "les", "leur", "leurs", "loin", "lorsque", "lui", "ma", "mais", "malgr", "manire", "me", "mme", "mmes", "mes", "mieux", "moins", "mon", "ne", "ni", "nos", "notre", "nous", "oh", "on", "ont", "or", "ou", "o", "par", "parce", "parmi", "partout", "pas", "pendant", "personne", "peu", "peut", "peut-tre", "peux", "peuvent", "pire", "pis", "plaisent", "plat", "plus", "plusieurs", "pour", "pourquoi", "pourvu", "pouvaient", "pouvait", "prs", "presque", "prt", "prte", "prtes", "prts", "prochain", "prochaine", "prochaines", "prochains", "pu", "puis", "puisque", "quand", "quant", "que", "quel", "quels", "quelle", "quelles", "quelqu'un", "quelques-uns", "quelques-unes", "quelque", "quelques", "qui", "quoique", "rend", "rendent", "rendre", "rien", "sa", "sait", "sans", "sauf", "savaient", "savait", "savent", "se", "selon", "semble", "semblent", "sera", "sera", "seront", "seront", "ses", "seulement", "si", "sinon", "soi", "soient", "soit", "son", "sont", "sorte", "sous", "souvent", "su", "sur", "sr", "ta", "te", "tel", "telle", "tellement", "telles", "tels", "tes", "tiennent", "tient", "ton", "tous", "tout", "toute", "toutes", "travers", "trs", "trois", "tu", "un", "une", "va", "vaut", "venu", "venue", "venues", "venus", "vers", "veulent", "veux", "veut", "viendra", "viendront", "viennent", "vient", "voici", "voil", "vont", "vos", "votre", "vous", "vraiment", "y")

for count = 0 to 279
args(0).Name = "SearchItem.StyleFamily"
args(0).Value = 2
args(1).Name = "SearchItem.CellType"
args(1).Value = 0
args(2).Name = "SearchItem.RowDirection"
args(2).Value = true
args(3).Name = "SearchItem.AllTables"
args(3).Value = false
args(4).Name = "SearchItem.Backward"
args(4).Value = false
args(5).Name = "SearchItem.Pattern"
args(5).Value = false
args(6).Name = "SearchItem.Content"
args(6).Value = false
args(7).Name = "SearchItem.AsianOptions"
args(7).Value = false
args(8).Name = "SearchItem.AlgorithmType"
args(8).Value = 0
args(9).Name = "SearchItem.SearchFlags"
args(9).Value = 65552
args(10).Name = "SearchItem.SearchString"
args(10).Value = entry(count)
args(11).Name = "SearchItem.ReplaceString"
args(11).Value = ""
args(12).Name = "SearchItem.Locale"
args(12).Value = 255
args(13).Name = "SearchItem.ChangedChars"
args(13).Value = 2
args(14).Name = "SearchItem.DeletedChars"
args(14).Value = 2
args(15).Name = "SearchItem.InsertedChars"
args(15).Value = 2
args(16).Name = "SearchItem.TransliterateFlags"
args(16).Value = 1280
args(17).Name = "SearchItem.Command"
args(17).Value = 3
args(18).Name = "Quiet"
args(18).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args())
Next Count

end sub