REM  *****  BASIC  *****

Sub Main

End Sub



sub Stoppwortersatz
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 entry(1 To 352) as String
dim count as Integer
dim args(18) as new com.sun.star.beans.PropertyValue

entry(1) = "ab"
entry(2) = "aber"
entry(3) = "abgesehen"
entry(4) = "alle"
entry(5) = "allein"
entry(6) = "aller"
entry(7) = "alles"
entry(8) = "als"
entry(9) = "am"
entry(10) = "an"
entry(11) = "andere"
entry(12) = "anderen"
entry(13) = "anderenfalls"
entry(14) = "anderer"
entry(15) = "anderes"
entry(16) = "anstatt"
entry(17) = "auch"
entry(18) = "auf"
entry(19) = "aus"
entry(20) = "aussen"
entry(21) = "auen"
entry(22) = "ausser"
entry(23) = "auer"
entry(24) = "ausserdem"
entry(25) = "auerdem"
entry(26) = "auerhalb"
entry(27) = "ausserhalb"
entry(28) = "behalten"
entry(29) = "bei"
entry(30) = "beide"
entry(31) = "beiden"
entry(32) = "beider"
entry(33) = "beides"
entry(34) = "beinahe"
entry(35) = "bevor"
entry(36) = "bin"
entry(37) = "bis"
entry(38) = "bist"
entry(39) = "bitte"
entry(40) = "da"
entry(41) = "daher"
entry(42) = "danach"
entry(43) = "dann"
entry(44) = "darueber"
entry(45) = "darber"
entry(46) = "darueberhinaus"
entry(47) = "darberhinaus"
entry(48) = "darum"
entry(49) = "das"
entry(50) = "dass"
entry(51) = "da"
entry(52) = "dem"
entry(53) = "den"
entry(54) = "der"
entry(55) = "des"
entry(56) = "deshalb"
entry(57) = "die"
entry(58) = "diese"
entry(59) = "diesem"
entry(60) = "diesen"
entry(61) = "dieser"
entry(62) = "dieses"
entry(63) = "dort"
entry(64) = "duerfte"
entry(65) = "duerften"
entry(66) = "duerftest"
entry(67) = "duerftet"
entry(68) = "drfte"
entry(69) = "drften"
entry(70) = "drftest"
entry(71) = "drftet"
entry(72) = "durch"
entry(73) = "durfte"
entry(74) = "durften"
entry(75) = "durftest"
entry(76) = "durftet"
entry(77) = "ein"
entry(78) = "eine"
entry(79) = "einem"
entry(80) = "einen"
entry(81) = "einer"
entry(82) = "eines"
entry(83) = "einige"
entry(84) = "einiger"
entry(85) = "einiges"
entry(86) = "entgegen"
entry(87) = "entweder"
entry(88) = "erscheinen"
entry(89) = "es"
entry(90) = "etwas"
entry(91) = "fast"
entry(92) = "fertig"
entry(93) = "fort"
entry(94) = "fuer"
entry(95) = "fr"
entry(96) = "gegen"
entry(97) = "gegenueber"
entry(98) = "gegenber"
entry(99) = "gehalten"
entry(100) = "geht"
entry(101) = "gemacht"
entry(102) = "gemaess"
entry(103) = "gem"
entry(104) = "genug"
entry(105) = "getan"
entry(106) = "getrennt"
entry(107) = "gewesen"
entry(108) = "gruendlich"
entry(109) = "grndlich"
entry(110) = "habe"
entry(111) = "haben"
entry(112) = "habt"
entry(113) = "haeufig"
entry(114) = "hufig"
entry(115) = "hast"
entry(116) = "hat"
entry(117) = "hatte"
entry(118) = "hatten"
entry(119) = "hattest"
entry(120) = "hattet"
entry(121) = "hier"
entry(122) = "hindurch"
entry(123) = "hintendran"
entry(124) = "hinter"
entry(125) = "hinunter"
entry(126) = "ich"
entry(127) = "ihm"
entry(128) = "ihnen"
entry(129) = "ihr"
entry(130) = "ihre"
entry(131) = "ihrem"
entry(132) = "ihren"
entry(133) = "ihrer"
entry(134) = "ihres"
entry(135) = "ihrige"
entry(136) = "ihrigen"
entry(137) = "ihriges"
entry(138) = "immer"
entry(139) = "in"
entry(140) = "indem"
entry(141) = "innerhalb"
entry(142) = "innerlich"
entry(143) = "irgendetwas"
entry(144) = "irgendwelche"
entry(145) = "irgendwenn"
entry(146) = "irgendwo"
entry(147) = "irgendwohin"
entry(148) = "ist"
entry(149) = "jede"
entry(150) = "jedem"
entry(151) = "jeden"
entry(152) = "jeder"
entry(153) = "jedes"
entry(154) = "jedoch"
entry(155) = "jemals"
entry(156) = "jemand"
entry(157) = "jemandem"
entry(158) = "jemanden"
entry(159) = "jemandes"
entry(160) = "jene"
entry(161) = "jung"
entry(162) = "junge"
entry(163) = "jungem"
entry(164) = "jungen"
entry(165) = "junger"
entry(166) = "junges"
entry(167) = "kann"
entry(168) = "kannst"
entry(169) = "kaum"
entry(170) = "koennen"
entry(171) = "koennt"
entry(172) = "koennte"
entry(173) = "koennten"
entry(174) = "koenntest"
entry(175) = "koenntet"
entry(176) = "knnen"
entry(177) = "knnt"
entry(178) = "knnte"
entry(179) = "knnten"
entry(180) = "knntest"
entry(181) = "knntet"
entry(182) = "konnte"
entry(183) = "konnten"
entry(184) = "konntest"
entry(185) = "konntet"
entry(186) = "machen"
entry(187) = "macht"
entry(188) = "machte"
entry(189) = "mehr"
entry(190) = "mehrere"
entry(191) = "mein"
entry(192) = "meine"
entry(193) = "meinem"
entry(194) = "meinen"
entry(195) = "meiner"
entry(196) = "meines"
entry(197) = "meistens"
entry(198) = "mich"
entry(199) = "mir"
entry(200) = "mit"
entry(201) = "muessen"
entry(202) = "mssen"
entry(203) = "muesst"
entry(204) = "mt"
entry(205) = "mu"
entry(206) = "muss"
entry(207) = "musst"
entry(208) = "mut"
entry(209) = "nach"
entry(210) = "nachdem"
entry(211) = "naechste"
entry(212) = "nchste"
entry(213) = "nebenan"
entry(214) = "nein"
entry(215) = "nichts"
entry(216) = "niemand"
entry(217) = "niemandem"
entry(218) = "niemanden"
entry(219) = "niemandes"
entry(220) = "nirgendwo"
entry(221) = "nur"
entry(222) = "oben"
entry(223) = "obwohl"
entry(224) = "oder"
entry(225) = "oft"
entry(226) = "ohne"
entry(227) = "pro"
entry(228) = "sagte"
entry(229) = "sagten"
entry(230) = "sagtest"
entry(231) = "sagtet"
entry(232) = "scheinen"
entry(233) = "sehr"
entry(234) = "sei"
entry(235) = "seid"
entry(236) = "seien"
entry(237) = "seiest"
entry(238) = "seiet"
entry(239) = "sein"
entry(240) = "seine"
entry(241) = "seinem"
entry(242) = "seinen"
entry(243) = "seiner"
entry(244) = "seines"
entry(245) = "seit"
entry(246) = "selbst"
entry(247) = "sich"
entry(248) = "sie"
entry(249) = "sind"
entry(250) = "so"
entry(251) = "sogar"
entry(252) = "solche"
entry(253) = "solchem"
entry(254) = "solchen"
entry(255) = "solcher"
entry(256) = "solches"
entry(257) = "sollte"
entry(258) = "sollten"
entry(259) = "solltest"
entry(260) = "solltet"
entry(261) = "sondern"
entry(262) = "statt"
entry(263) = "stets"
entry(264) = "tatschlich"
entry(265) = "tatsaechlich"
entry(266) = "tief"
entry(267) = "tun"
entry(268) = "tut"
entry(269) = "ueber"
entry(270) = "ber"
entry(271) = "ueberall"
entry(272) = "berll"
entry(273) = "um"
entry(274) = "und"
entry(275) = "uns"
entry(276) = "unser"
entry(277) = "unsere"
entry(278) = "unserem"
entry(279) = "unseren"
entry(280) = "unserer"
entry(281) = "unseres"
entry(282) = "unten"
entry(283) = "unter"
entry(284) = "unterhalb"
entry(285) = "usw"
entry(286) = "viel"
entry(287) = "viele"
entry(288) = "vielleicht"
entry(289) = "von"
entry(290) = "vor"
entry(291) = "vorbei"
entry(292) = "vorher"
entry(293) = "vorueber"
entry(294) = "vorber"
entry(295) = "waehrend"
entry(296) = "whrend"
entry(297) = "wann"
entry(298) = "war"
entry(299) = "waren"
entry(300) = "warst"
entry(301) = "wart"
entry(302) = "was"
entry(303) = "weder"
entry(304) = "wegen"
entry(305) = "weil"
entry(306) = "weit"
entry(307) = "weiter"
entry(308) = "weitere"
entry(309) = "weiterem"
entry(310) = "weiteren"
entry(311) = "weiterer"
entry(312) = "weiteres"
entry(313) = "welche"
entry(314) = "welchem"
entry(315) = "welchen"
entry(316) = "welcher"
entry(317) = "welches"
entry(318) = "wem"
entry(319) = "wen"
entry(320) = "wenige"
entry(321) = "wenn"
entry(322) = "wer"
entry(323) = "werde"
entry(324) = "werden"
entry(325) = "werdet"
entry(326) = "wessen"
entry(327) = "wie"
entry(328) = "wieder"
entry(329) = "wir"
entry(330) = "wird"
entry(331) = "wirklich"
entry(332) = "wirst"
entry(333) = "wo"
entry(334) = "wohin"
entry(335) = "wuerde"
entry(336) = "wuerden"
entry(337) = "wuerdest"
entry(338) = "wuerdet"
entry(339) = "wrde"
entry(340) = "wrden"
entry(341) = "wrdest"
entry(342) = "wrdet"
entry(343) = "wurde"
entry(344) = "wurden"
entry(345) = "wurdest"
entry(346) = "wurdet"
entry(347) = "ziemlich"
entry(348) = "zu"
entry(349) = "zum"
entry(350) = "zur"
entry(351) = "zusammen"
entry(352) = "zwischen"

for count = 1 to 352
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