sub Rus 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:SelectAll", "", 0, Array()) rem à а dim args115(18) as new com.sun.star.beans.PropertyValue args115(0).Name = "SearchItem.StyleFamily" args115(0).Value = 2 args115(1).Name = "SearchItem.CellType" args115(1).Value = 0 args115(2).Name = "SearchItem.RowDirection" args115(2).Value = true args115(3).Name = "SearchItem.AllTables" args115(3).Value = false args115(4).Name = "SearchItem.Backward" args115(4).Value = false args115(5).Name = "SearchItem.Pattern" args115(5).Value = false args115(6).Name = "SearchItem.Content" args115(6).Value = false args115(7).Name = "SearchItem.AsianOptions" args115(7).Value = false args115(8).Name = "SearchItem.AlgorithmType" args115(8).Value = 0 args115(9).Name = "SearchItem.SearchFlags" args115(9).Value = 65536 args115(10).Name = "SearchItem.SearchString" args115(10).Value = "à" args115(11).Name = "SearchItem.ReplaceString" args115(11).Value = "а" args115(12).Name = "SearchItem.Locale" args115(12).Value = 255 args115(13).Name = "SearchItem.ChangedChars" args115(13).Value = 2 args115(14).Name = "SearchItem.DeletedChars" args115(14).Value = 2 args115(15).Name = "SearchItem.InsertedChars" args115(15).Value = 2 args115(16).Name = "SearchItem.TransliterateFlags" args115(16).Value = 1024 args115(17).Name = "SearchItem.Command" args115(17).Value = 3 args115(18).Name = "Quiet" args115(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args115()) rem À А dim args116(18) as new com.sun.star.beans.PropertyValue args116(0).Name = "SearchItem.StyleFamily" args116(0).Value = 2 args116(1).Name = "SearchItem.CellType" args116(1).Value = 0 args116(2).Name = "SearchItem.RowDirection" args116(2).Value = true args116(3).Name = "SearchItem.AllTables" args116(3).Value = false args116(4).Name = "SearchItem.Backward" args116(4).Value = false args116(5).Name = "SearchItem.Pattern" args116(5).Value = false args116(6).Name = "SearchItem.Content" args116(6).Value = false args116(7).Name = "SearchItem.AsianOptions" args116(7).Value = false args116(8).Name = "SearchItem.AlgorithmType" args116(8).Value = 0 args116(9).Name = "SearchItem.SearchFlags" args116(9).Value = 65536 args116(10).Name = "SearchItem.SearchString" args116(10).Value = "À" args116(11).Name = "SearchItem.ReplaceString" args116(11).Value = "А" args116(12).Name = "SearchItem.Locale" args116(12).Value = 255 args116(13).Name = "SearchItem.ChangedChars" args116(13).Value = 2 args116(14).Name = "SearchItem.DeletedChars" args116(14).Value = 2 args116(15).Name = "SearchItem.InsertedChars" args116(15).Value = 2 args116(16).Name = "SearchItem.TransliterateFlags" args116(16).Value = 1024 args116(17).Name = "SearchItem.Command" args116(17).Value = 3 args116(18).Name = "Quiet" args116(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args116()) rem á б dim args117(18) as new com.sun.star.beans.PropertyValue args117(0).Name = "SearchItem.StyleFamily" args117(0).Value = 2 args117(1).Name = "SearchItem.CellType" args117(1).Value = 0 args117(2).Name = "SearchItem.RowDirection" args117(2).Value = true args117(3).Name = "SearchItem.AllTables" args117(3).Value = false args117(4).Name = "SearchItem.Backward" args117(4).Value = false args117(5).Name = "SearchItem.Pattern" args117(5).Value = false args117(6).Name = "SearchItem.Content" args117(6).Value = false args117(7).Name = "SearchItem.AsianOptions" args117(7).Value = false args117(8).Name = "SearchItem.AlgorithmType" args117(8).Value = 0 args117(9).Name = "SearchItem.SearchFlags" args117(9).Value = 65536 args117(10).Name = "SearchItem.SearchString" args117(10).Value = "á" args117(11).Name = "SearchItem.ReplaceString" args117(11).Value = "б" args117(12).Name = "SearchItem.Locale" args117(12).Value = 255 args117(13).Name = "SearchItem.ChangedChars" args117(13).Value = 2 args117(14).Name = "SearchItem.DeletedChars" args117(14).Value = 2 args117(15).Name = "SearchItem.InsertedChars" args117(15).Value = 2 args117(16).Name = "SearchItem.TransliterateFlags" args117(16).Value = 1024 args117(17).Name = "SearchItem.Command" args117(17).Value = 3 args117(18).Name = "Quiet" args117(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args117()) rem Á Б dim args118(18) as new com.sun.star.beans.PropertyValue args118(0).Name = "SearchItem.StyleFamily" args118(0).Value = 2 args118(1).Name = "SearchItem.CellType" args118(1).Value = 0 args118(2).Name = "SearchItem.RowDirection" args118(2).Value = true args118(3).Name = "SearchItem.AllTables" args118(3).Value = false args118(4).Name = "SearchItem.Backward" args118(4).Value = false args118(5).Name = "SearchItem.Pattern" args118(5).Value = false args118(6).Name = "SearchItem.Content" args118(6).Value = false args118(7).Name = "SearchItem.AsianOptions" args118(7).Value = false args118(8).Name = "SearchItem.AlgorithmType" args118(8).Value = 0 args118(9).Name = "SearchItem.SearchFlags" args118(9).Value = 65536 args118(10).Name = "SearchItem.SearchString" args118(10).Value = "Á" args118(11).Name = "SearchItem.ReplaceString" args118(11).Value = "Б" args118(12).Name = "SearchItem.Locale" args118(12).Value = 255 args118(13).Name = "SearchItem.ChangedChars" args118(13).Value = 2 args118(14).Name = "SearchItem.DeletedChars" args118(14).Value = 2 args118(15).Name = "SearchItem.InsertedChars" args118(15).Value = 2 args118(16).Name = "SearchItem.TransliterateFlags" args118(16).Value = 1024 args118(17).Name = "SearchItem.Command" args118(17).Value = 3 args118(18).Name = "Quiet" args118(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args118()) rem â в dim args119(18) as new com.sun.star.beans.PropertyValue args119(0).Name = "SearchItem.StyleFamily" args119(0).Value = 2 args119(1).Name = "SearchItem.CellType" args119(1).Value = 0 args119(2).Name = "SearchItem.RowDirection" args119(2).Value = true args119(3).Name = "SearchItem.AllTables" args119(3).Value = false args119(4).Name = "SearchItem.Backward" args119(4).Value = false args119(5).Name = "SearchItem.Pattern" args119(5).Value = false args119(6).Name = "SearchItem.Content" args119(6).Value = false args119(7).Name = "SearchItem.AsianOptions" args119(7).Value = false args119(8).Name = "SearchItem.AlgorithmType" args119(8).Value = 0 args119(9).Name = "SearchItem.SearchFlags" args119(9).Value = 65536 args119(10).Name = "SearchItem.SearchString" args119(10).Value = "â" args119(11).Name = "SearchItem.ReplaceString" args119(11).Value = "в" args119(12).Name = "SearchItem.Locale" args119(12).Value = 255 args119(13).Name = "SearchItem.ChangedChars" args119(13).Value = 2 args119(14).Name = "SearchItem.DeletedChars" args119(14).Value = 2 args119(15).Name = "SearchItem.InsertedChars" args119(15).Value = 2 args119(16).Name = "SearchItem.TransliterateFlags" args119(16).Value = 1024 args119(17).Name = "SearchItem.Command" args119(17).Value = 3 args119(18).Name = "Quiet" args119(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args119()) rem Â В dim args120(18) as new com.sun.star.beans.PropertyValue args120(0).Name = "SearchItem.StyleFamily" args120(0).Value = 2 args120(1).Name = "SearchItem.CellType" args120(1).Value = 0 args120(2).Name = "SearchItem.RowDirection" args120(2).Value = true args120(3).Name = "SearchItem.AllTables" args120(3).Value = false args120(4).Name = "SearchItem.Backward" args120(4).Value = false args120(5).Name = "SearchItem.Pattern" args120(5).Value = false args120(6).Name = "SearchItem.Content" args120(6).Value = false args120(7).Name = "SearchItem.AsianOptions" args120(7).Value = false args120(8).Name = "SearchItem.AlgorithmType" args120(8).Value = 0 args120(9).Name = "SearchItem.SearchFlags" args120(9).Value = 65536 args120(10).Name = "SearchItem.SearchString" args120(10).Value = "Â" args120(11).Name = "SearchItem.ReplaceString" args120(11).Value = "В" args120(12).Name = "SearchItem.Locale" args120(12).Value = 255 args120(13).Name = "SearchItem.ChangedChars" args120(13).Value = 2 args120(14).Name = "SearchItem.DeletedChars" args120(14).Value = 2 args120(15).Name = "SearchItem.InsertedChars" args120(15).Value = 2 args120(16).Name = "SearchItem.TransliterateFlags" args120(16).Value = 1024 args120(17).Name = "SearchItem.Command" args120(17).Value = 3 args120(18).Name = "Quiet" args120(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args120()) rem ã г dim args121(18) as new com.sun.star.beans.PropertyValue args121(0).Name = "SearchItem.StyleFamily" args121(0).Value = 2 args121(1).Name = "SearchItem.CellType" args121(1).Value = 0 args121(2).Name = "SearchItem.RowDirection" args121(2).Value = true args121(3).Name = "SearchItem.AllTables" args121(3).Value = false args121(4).Name = "SearchItem.Backward" args121(4).Value = false args121(5).Name = "SearchItem.Pattern" args121(5).Value = false args121(6).Name = "SearchItem.Content" args121(6).Value = false args121(7).Name = "SearchItem.AsianOptions" args121(7).Value = false args121(8).Name = "SearchItem.AlgorithmType" args121(8).Value = 0 args121(9).Name = "SearchItem.SearchFlags" args121(9).Value = 65536 args121(10).Name = "SearchItem.SearchString" args121(10).Value = "ã" args121(11).Name = "SearchItem.ReplaceString" args121(11).Value = "г" args121(12).Name = "SearchItem.Locale" args121(12).Value = 255 args121(13).Name = "SearchItem.ChangedChars" args121(13).Value = 2 args121(14).Name = "SearchItem.DeletedChars" args121(14).Value = 2 args121(15).Name = "SearchItem.InsertedChars" args121(15).Value = 2 args121(16).Name = "SearchItem.TransliterateFlags" args121(16).Value = 1024 args121(17).Name = "SearchItem.Command" args121(17).Value = 3 args121(18).Name = "Quiet" args121(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args121()) rem Ã Г dim args122(18) as new com.sun.star.beans.PropertyValue args122(0).Name = "SearchItem.StyleFamily" args122(0).Value = 2 args122(1).Name = "SearchItem.CellType" args122(1).Value = 0 args122(2).Name = "SearchItem.RowDirection" args122(2).Value = true args122(3).Name = "SearchItem.AllTables" args122(3).Value = false args122(4).Name = "SearchItem.Backward" args122(4).Value = false args122(5).Name = "SearchItem.Pattern" args122(5).Value = false args122(6).Name = "SearchItem.Content" args122(6).Value = false args122(7).Name = "SearchItem.AsianOptions" args122(7).Value = false args122(8).Name = "SearchItem.AlgorithmType" args122(8).Value = 0 args122(9).Name = "SearchItem.SearchFlags" args122(9).Value = 65536 args122(10).Name = "SearchItem.SearchString" args122(10).Value = "Ã" args122(11).Name = "SearchItem.ReplaceString" args122(11).Value = "Г" args122(12).Name = "SearchItem.Locale" args122(12).Value = 255 args122(13).Name = "SearchItem.ChangedChars" args122(13).Value = 2 args122(14).Name = "SearchItem.DeletedChars" args122(14).Value = 2 args122(15).Name = "SearchItem.InsertedChars" args122(15).Value = 2 args122(16).Name = "SearchItem.TransliterateFlags" args122(16).Value = 1024 args122(17).Name = "SearchItem.Command" args122(17).Value = 3 args122(18).Name = "Quiet" args122(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args122()) rem ä д dim args123(18) as new com.sun.star.beans.PropertyValue args123(0).Name = "SearchItem.StyleFamily" args123(0).Value = 2 args123(1).Name = "SearchItem.CellType" args123(1).Value = 0 args123(2).Name = "SearchItem.RowDirection" args123(2).Value = true args123(3).Name = "SearchItem.AllTables" args123(3).Value = false args123(4).Name = "SearchItem.Backward" args123(4).Value = false args123(5).Name = "SearchItem.Pattern" args123(5).Value = false args123(6).Name = "SearchItem.Content" args123(6).Value = false args123(7).Name = "SearchItem.AsianOptions" args123(7).Value = false args123(8).Name = "SearchItem.AlgorithmType" args123(8).Value = 0 args123(9).Name = "SearchItem.SearchFlags" args123(9).Value = 65536 args123(10).Name = "SearchItem.SearchString" args123(10).Value = "ä" args123(11).Name = "SearchItem.ReplaceString" args123(11).Value = "д" args123(12).Name = "SearchItem.Locale" args123(12).Value = 255 args123(13).Name = "SearchItem.ChangedChars" args123(13).Value = 2 args123(14).Name = "SearchItem.DeletedChars" args123(14).Value = 2 args123(15).Name = "SearchItem.InsertedChars" args123(15).Value = 2 args123(16).Name = "SearchItem.TransliterateFlags" args123(16).Value = 1024 args123(17).Name = "SearchItem.Command" args123(17).Value = 3 args123(18).Name = "Quiet" args123(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args123()) rem Ä Д dim args124(18) as new com.sun.star.beans.PropertyValue args124(0).Name = "SearchItem.StyleFamily" args124(0).Value = 2 args124(1).Name = "SearchItem.CellType" args124(1).Value = 0 args124(2).Name = "SearchItem.RowDirection" args124(2).Value = true args124(3).Name = "SearchItem.AllTables" args124(3).Value = false args124(4).Name = "SearchItem.Backward" args124(4).Value = false args124(5).Name = "SearchItem.Pattern" args124(5).Value = false args124(6).Name = "SearchItem.Content" args124(6).Value = false args124(7).Name = "SearchItem.AsianOptions" args124(7).Value = false args124(8).Name = "SearchItem.AlgorithmType" args124(8).Value = 0 args124(9).Name = "SearchItem.SearchFlags" args124(9).Value = 65536 args124(10).Name = "SearchItem.SearchString" args124(10).Value = "Ä" args124(11).Name = "SearchItem.ReplaceString" args124(11).Value = "Д" args124(12).Name = "SearchItem.Locale" args124(12).Value = 255 args124(13).Name = "SearchItem.ChangedChars" args124(13).Value = 2 args124(14).Name = "SearchItem.DeletedChars" args124(14).Value = 2 args124(15).Name = "SearchItem.InsertedChars" args124(15).Value = 2 args124(16).Name = "SearchItem.TransliterateFlags" args124(16).Value = 1024 args124(17).Name = "SearchItem.Command" args124(17).Value = 3 args124(18).Name = "Quiet" args124(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args124()) rem å е dim args125(18) as new com.sun.star.beans.PropertyValue args125(0).Name = "SearchItem.StyleFamily" args125(0).Value = 2 args125(1).Name = "SearchItem.CellType" args125(1).Value = 0 args125(2).Name = "SearchItem.RowDirection" args125(2).Value = true args125(3).Name = "SearchItem.AllTables" args125(3).Value = false args125(4).Name = "SearchItem.Backward" args125(4).Value = false args125(5).Name = "SearchItem.Pattern" args125(5).Value = false args125(6).Name = "SearchItem.Content" args125(6).Value = false args125(7).Name = "SearchItem.AsianOptions" args125(7).Value = false args125(8).Name = "SearchItem.AlgorithmType" args125(8).Value = 0 args125(9).Name = "SearchItem.SearchFlags" args125(9).Value = 65536 args125(10).Name = "SearchItem.SearchString" args125(10).Value = "å" args125(11).Name = "SearchItem.ReplaceString" args125(11).Value = "е" args125(12).Name = "SearchItem.Locale" args125(12).Value = 255 args125(13).Name = "SearchItem.ChangedChars" args125(13).Value = 2 args125(14).Name = "SearchItem.DeletedChars" args125(14).Value = 2 args125(15).Name = "SearchItem.InsertedChars" args125(15).Value = 2 args125(16).Name = "SearchItem.TransliterateFlags" args125(16).Value = 1024 args125(17).Name = "SearchItem.Command" args125(17).Value = 3 args125(18).Name = "Quiet" args125(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args125()) rem Å Е dim args126(18) as new com.sun.star.beans.PropertyValue args126(0).Name = "SearchItem.StyleFamily" args126(0).Value = 2 args126(1).Name = "SearchItem.CellType" args126(1).Value = 0 args126(2).Name = "SearchItem.RowDirection" args126(2).Value = true args126(3).Name = "SearchItem.AllTables" args126(3).Value = false args126(4).Name = "SearchItem.Backward" args126(4).Value = false args126(5).Name = "SearchItem.Pattern" args126(5).Value = false args126(6).Name = "SearchItem.Content" args126(6).Value = false args126(7).Name = "SearchItem.AsianOptions" args126(7).Value = false args126(8).Name = "SearchItem.AlgorithmType" args126(8).Value = 0 args126(9).Name = "SearchItem.SearchFlags" args126(9).Value = 65536 args126(10).Name = "SearchItem.SearchString" args126(10).Value = "Å" args126(11).Name = "SearchItem.ReplaceString" args126(11).Value = "Е" args126(12).Name = "SearchItem.Locale" args126(12).Value = 255 args126(13).Name = "SearchItem.ChangedChars" args126(13).Value = 2 args126(14).Name = "SearchItem.DeletedChars" args126(14).Value = 2 args126(15).Name = "SearchItem.InsertedChars" args126(15).Value = 2 args126(16).Name = "SearchItem.TransliterateFlags" args126(16).Value = 1024 args126(17).Name = "SearchItem.Command" args126(17).Value = 3 args126(18).Name = "Quiet" args126(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args126()) rem ̧ ё dim args127(18) as new com.sun.star.beans.PropertyValue args127(0).Name = "SearchItem.StyleFamily" args127(0).Value = 2 args127(1).Name = "SearchItem.CellType" args127(1).Value = 0 args127(2).Name = "SearchItem.RowDirection" args127(2).Value = true args127(3).Name = "SearchItem.AllTables" args127(3).Value = false args127(4).Name = "SearchItem.Backward" args127(4).Value = false args127(5).Name = "SearchItem.Pattern" args127(5).Value = false args127(6).Name = "SearchItem.Content" args127(6).Value = false args127(7).Name = "SearchItem.AsianOptions" args127(7).Value = false args127(8).Name = "SearchItem.AlgorithmType" args127(8).Value = 0 args127(9).Name = "SearchItem.SearchFlags" args127(9).Value = 65536 args127(10).Name = "SearchItem.SearchString" args127(10).Value = " ̧" args127(11).Name = "SearchItem.ReplaceString" args127(11).Value = "ё" args127(12).Name = "SearchItem.Locale" args127(12).Value = 255 args127(13).Name = "SearchItem.ChangedChars" args127(13).Value = 2 args127(14).Name = "SearchItem.DeletedChars" args127(14).Value = 2 args127(15).Name = "SearchItem.InsertedChars" args127(15).Value = 2 args127(16).Name = "SearchItem.TransliterateFlags" args127(16).Value = 1024 args127(17).Name = "SearchItem.Command" args127(17).Value = 3 args127(18).Name = "Quiet" args127(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args127()) rem ̈ Ё dim args128(18) as new com.sun.star.beans.PropertyValue args128(0).Name = "SearchItem.StyleFamily" args128(0).Value = 2 args128(1).Name = "SearchItem.CellType" args128(1).Value = 0 args128(2).Name = "SearchItem.RowDirection" args128(2).Value = true args128(3).Name = "SearchItem.AllTables" args128(3).Value = false args128(4).Name = "SearchItem.Backward" args128(4).Value = false args128(5).Name = "SearchItem.Pattern" args128(5).Value = false args128(6).Name = "SearchItem.Content" args128(6).Value = false args128(7).Name = "SearchItem.AsianOptions" args128(7).Value = false args128(8).Name = "SearchItem.AlgorithmType" args128(8).Value = 0 args128(9).Name = "SearchItem.SearchFlags" args128(9).Value = 65536 args128(10).Name = "SearchItem.SearchString" args128(10).Value = " ̈" args128(11).Name = "SearchItem.ReplaceString" args128(11).Value = "Ё" args128(12).Name = "SearchItem.Locale" args128(12).Value = 255 args128(13).Name = "SearchItem.ChangedChars" args128(13).Value = 2 args128(14).Name = "SearchItem.DeletedChars" args128(14).Value = 2 args128(15).Name = "SearchItem.InsertedChars" args128(15).Value = 2 args128(16).Name = "SearchItem.TransliterateFlags" args128(16).Value = 1024 args128(17).Name = "SearchItem.Command" args128(17).Value = 3 args128(18).Name = "Quiet" args128(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args128()) rem æ ж dim args129(18) as new com.sun.star.beans.PropertyValue args129(0).Name = "SearchItem.StyleFamily" args129(0).Value = 2 args129(1).Name = "SearchItem.CellType" args129(1).Value = 0 args129(2).Name = "SearchItem.RowDirection" args129(2).Value = true args129(3).Name = "SearchItem.AllTables" args129(3).Value = false args129(4).Name = "SearchItem.Backward" args129(4).Value = false args129(5).Name = "SearchItem.Pattern" args129(5).Value = false args129(6).Name = "SearchItem.Content" args129(6).Value = false args129(7).Name = "SearchItem.AsianOptions" args129(7).Value = false args129(8).Name = "SearchItem.AlgorithmType" args129(8).Value = 0 args129(9).Name = "SearchItem.SearchFlags" args129(9).Value = 65536 args129(10).Name = "SearchItem.SearchString" args129(10).Value = "æ" args129(11).Name = "SearchItem.ReplaceString" args129(11).Value = "ж" args129(12).Name = "SearchItem.Locale" args129(12).Value = 255 args129(13).Name = "SearchItem.ChangedChars" args129(13).Value = 2 args129(14).Name = "SearchItem.DeletedChars" args129(14).Value = 2 args129(15).Name = "SearchItem.InsertedChars" args129(15).Value = 2 args129(16).Name = "SearchItem.TransliterateFlags" args129(16).Value = 1024 args129(17).Name = "SearchItem.Command" args129(17).Value = 3 args129(18).Name = "Quiet" args129(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args129()) rem Æ Ж dim args130(18) as new com.sun.star.beans.PropertyValue args130(0).Name = "SearchItem.StyleFamily" args130(0).Value = 2 args130(1).Name = "SearchItem.CellType" args130(1).Value = 0 args130(2).Name = "SearchItem.RowDirection" args130(2).Value = true args130(3).Name = "SearchItem.AllTables" args130(3).Value = false args130(4).Name = "SearchItem.Backward" args130(4).Value = false args130(5).Name = "SearchItem.Pattern" args130(5).Value = false args130(6).Name = "SearchItem.Content" args130(6).Value = false args130(7).Name = "SearchItem.AsianOptions" args130(7).Value = false args130(8).Name = "SearchItem.AlgorithmType" args130(8).Value = 0 args130(9).Name = "SearchItem.SearchFlags" args130(9).Value = 65536 args130(10).Name = "SearchItem.SearchString" args130(10).Value = "Æ" args130(11).Name = "SearchItem.ReplaceString" args130(11).Value = "Ж" args130(12).Name = "SearchItem.Locale" args130(12).Value = 255 args130(13).Name = "SearchItem.ChangedChars" args130(13).Value = 2 args130(14).Name = "SearchItem.DeletedChars" args130(14).Value = 2 args130(15).Name = "SearchItem.InsertedChars" args130(15).Value = 2 args130(16).Name = "SearchItem.TransliterateFlags" args130(16).Value = 1024 args130(17).Name = "SearchItem.Command" args130(17).Value = 3 args130(18).Name = "Quiet" args130(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args130()) rem ç з dim args131(18) as new com.sun.star.beans.PropertyValue args131(0).Name = "SearchItem.StyleFamily" args131(0).Value = 2 args131(1).Name = "SearchItem.CellType" args131(1).Value = 0 args131(2).Name = "SearchItem.RowDirection" args131(2).Value = true args131(3).Name = "SearchItem.AllTables" args131(3).Value = false args131(4).Name = "SearchItem.Backward" args131(4).Value = false args131(5).Name = "SearchItem.Pattern" args131(5).Value = false args131(6).Name = "SearchItem.Content" args131(6).Value = false args131(7).Name = "SearchItem.AsianOptions" args131(7).Value = false args131(8).Name = "SearchItem.AlgorithmType" args131(8).Value = 0 args131(9).Name = "SearchItem.SearchFlags" args131(9).Value = 65536 args131(10).Name = "SearchItem.SearchString" args131(10).Value = "ç" args131(11).Name = "SearchItem.ReplaceString" args131(11).Value = "з" args131(12).Name = "SearchItem.Locale" args131(12).Value = 255 args131(13).Name = "SearchItem.ChangedChars" args131(13).Value = 2 args131(14).Name = "SearchItem.DeletedChars" args131(14).Value = 2 args131(15).Name = "SearchItem.InsertedChars" args131(15).Value = 2 args131(16).Name = "SearchItem.TransliterateFlags" args131(16).Value = 1024 args131(17).Name = "SearchItem.Command" args131(17).Value = 3 args131(18).Name = "Quiet" args131(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args131()) rem Ç З dim args132(18) as new com.sun.star.beans.PropertyValue args132(0).Name = "SearchItem.StyleFamily" args132(0).Value = 2 args132(1).Name = "SearchItem.CellType" args132(1).Value = 0 args132(2).Name = "SearchItem.RowDirection" args132(2).Value = true args132(3).Name = "SearchItem.AllTables" args132(3).Value = false args132(4).Name = "SearchItem.Backward" args132(4).Value = false args132(5).Name = "SearchItem.Pattern" args132(5).Value = false args132(6).Name = "SearchItem.Content" args132(6).Value = false args132(7).Name = "SearchItem.AsianOptions" args132(7).Value = false args132(8).Name = "SearchItem.AlgorithmType" args132(8).Value = 0 args132(9).Name = "SearchItem.SearchFlags" args132(9).Value = 65536 args132(10).Name = "SearchItem.SearchString" args132(10).Value = "Ç" args132(11).Name = "SearchItem.ReplaceString" args132(11).Value = "З" args132(12).Name = "SearchItem.Locale" args132(12).Value = 255 args132(13).Name = "SearchItem.ChangedChars" args132(13).Value = 2 args132(14).Name = "SearchItem.DeletedChars" args132(14).Value = 2 args132(15).Name = "SearchItem.InsertedChars" args132(15).Value = 2 args132(16).Name = "SearchItem.TransliterateFlags" args132(16).Value = 1024 args132(17).Name = "SearchItem.Command" args132(17).Value = 3 args132(18).Name = "Quiet" args132(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args132()) rem è и dim args133(18) as new com.sun.star.beans.PropertyValue args133(0).Name = "SearchItem.StyleFamily" args133(0).Value = 2 args133(1).Name = "SearchItem.CellType" args133(1).Value = 0 args133(2).Name = "SearchItem.RowDirection" args133(2).Value = true args133(3).Name = "SearchItem.AllTables" args133(3).Value = false args133(4).Name = "SearchItem.Backward" args133(4).Value = false args133(5).Name = "SearchItem.Pattern" args133(5).Value = false args133(6).Name = "SearchItem.Content" args133(6).Value = false args133(7).Name = "SearchItem.AsianOptions" args133(7).Value = false args133(8).Name = "SearchItem.AlgorithmType" args133(8).Value = 0 args133(9).Name = "SearchItem.SearchFlags" args133(9).Value = 65536 args133(10).Name = "SearchItem.SearchString" args133(10).Value = "è" args133(11).Name = "SearchItem.ReplaceString" args133(11).Value = "и" args133(12).Name = "SearchItem.Locale" args133(12).Value = 255 args133(13).Name = "SearchItem.ChangedChars" args133(13).Value = 2 args133(14).Name = "SearchItem.DeletedChars" args133(14).Value = 2 args133(15).Name = "SearchItem.InsertedChars" args133(15).Value = 2 args133(16).Name = "SearchItem.TransliterateFlags" args133(16).Value = 1024 args133(17).Name = "SearchItem.Command" args133(17).Value = 3 args133(18).Name = "Quiet" args133(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args133()) rem È И dim args134(18) as new com.sun.star.beans.PropertyValue args134(0).Name = "SearchItem.StyleFamily" args134(0).Value = 2 args134(1).Name = "SearchItem.CellType" args134(1).Value = 0 args134(2).Name = "SearchItem.RowDirection" args134(2).Value = true args134(3).Name = "SearchItem.AllTables" args134(3).Value = false args134(4).Name = "SearchItem.Backward" args134(4).Value = false args134(5).Name = "SearchItem.Pattern" args134(5).Value = false args134(6).Name = "SearchItem.Content" args134(6).Value = false args134(7).Name = "SearchItem.AsianOptions" args134(7).Value = false args134(8).Name = "SearchItem.AlgorithmType" args134(8).Value = 0 args134(9).Name = "SearchItem.SearchFlags" args134(9).Value = 65536 args134(10).Name = "SearchItem.SearchString" args134(10).Value = "È" args134(11).Name = "SearchItem.ReplaceString" args134(11).Value = "И" args134(12).Name = "SearchItem.Locale" args134(12).Value = 255 args134(13).Name = "SearchItem.ChangedChars" args134(13).Value = 2 args134(14).Name = "SearchItem.DeletedChars" args134(14).Value = 2 args134(15).Name = "SearchItem.InsertedChars" args134(15).Value = 2 args134(16).Name = "SearchItem.TransliterateFlags" args134(16).Value = 1024 args134(17).Name = "SearchItem.Command" args134(17).Value = 3 args134(18).Name = "Quiet" args134(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args134()) rem é й dim args135(18) as new com.sun.star.beans.PropertyValue args135(0).Name = "SearchItem.StyleFamily" args135(0).Value = 2 args135(1).Name = "SearchItem.CellType" args135(1).Value = 0 args135(2).Name = "SearchItem.RowDirection" args135(2).Value = true args135(3).Name = "SearchItem.AllTables" args135(3).Value = false args135(4).Name = "SearchItem.Backward" args135(4).Value = false args135(5).Name = "SearchItem.Pattern" args135(5).Value = false args135(6).Name = "SearchItem.Content" args135(6).Value = false args135(7).Name = "SearchItem.AsianOptions" args135(7).Value = false args135(8).Name = "SearchItem.AlgorithmType" args135(8).Value = 0 args135(9).Name = "SearchItem.SearchFlags" args135(9).Value = 65536 args135(10).Name = "SearchItem.SearchString" args135(10).Value = "é" args135(11).Name = "SearchItem.ReplaceString" args135(11).Value = "й" args135(12).Name = "SearchItem.Locale" args135(12).Value = 255 args135(13).Name = "SearchItem.ChangedChars" args135(13).Value = 2 args135(14).Name = "SearchItem.DeletedChars" args135(14).Value = 2 args135(15).Name = "SearchItem.InsertedChars" args135(15).Value = 2 args135(16).Name = "SearchItem.TransliterateFlags" args135(16).Value = 1024 args135(17).Name = "SearchItem.Command" args135(17).Value = 3 args135(18).Name = "Quiet" args135(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args135()) rem É Й dim args136(18) as new com.sun.star.beans.PropertyValue args136(0).Name = "SearchItem.StyleFamily" args136(0).Value = 2 args136(1).Name = "SearchItem.CellType" args136(1).Value = 0 args136(2).Name = "SearchItem.RowDirection" args136(2).Value = true args136(3).Name = "SearchItem.AllTables" args136(3).Value = false args136(4).Name = "SearchItem.Backward" args136(4).Value = false args136(5).Name = "SearchItem.Pattern" args136(5).Value = false args136(6).Name = "SearchItem.Content" args136(6).Value = false args136(7).Name = "SearchItem.AsianOptions" args136(7).Value = false args136(8).Name = "SearchItem.AlgorithmType" args136(8).Value = 0 args136(9).Name = "SearchItem.SearchFlags" args136(9).Value = 65536 args136(10).Name = "SearchItem.SearchString" args136(10).Value = "É" args136(11).Name = "SearchItem.ReplaceString" args136(11).Value = "Й" args136(12).Name = "SearchItem.Locale" args136(12).Value = 255 args136(13).Name = "SearchItem.ChangedChars" args136(13).Value = 2 args136(14).Name = "SearchItem.DeletedChars" args136(14).Value = 2 args136(15).Name = "SearchItem.InsertedChars" args136(15).Value = 2 args136(16).Name = "SearchItem.TransliterateFlags" args136(16).Value = 1024 args136(17).Name = "SearchItem.Command" args136(17).Value = 3 args136(18).Name = "Quiet" args136(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args136()) rem ê к dim args137(18) as new com.sun.star.beans.PropertyValue args137(0).Name = "SearchItem.StyleFamily" args137(0).Value = 2 args137(1).Name = "SearchItem.CellType" args137(1).Value = 0 args137(2).Name = "SearchItem.RowDirection" args137(2).Value = true args137(3).Name = "SearchItem.AllTables" args137(3).Value = false args137(4).Name = "SearchItem.Backward" args137(4).Value = false args137(5).Name = "SearchItem.Pattern" args137(5).Value = false args137(6).Name = "SearchItem.Content" args137(6).Value = false args137(7).Name = "SearchItem.AsianOptions" args137(7).Value = false args137(8).Name = "SearchItem.AlgorithmType" args137(8).Value = 0 args137(9).Name = "SearchItem.SearchFlags" args137(9).Value = 65536 args137(10).Name = "SearchItem.SearchString" args137(10).Value = "ê" args137(11).Name = "SearchItem.ReplaceString" args137(11).Value = "к" args137(12).Name = "SearchItem.Locale" args137(12).Value = 255 args137(13).Name = "SearchItem.ChangedChars" args137(13).Value = 2 args137(14).Name = "SearchItem.DeletedChars" args137(14).Value = 2 args137(15).Name = "SearchItem.InsertedChars" args137(15).Value = 2 args137(16).Name = "SearchItem.TransliterateFlags" args137(16).Value = 1024 args137(17).Name = "SearchItem.Command" args137(17).Value = 3 args137(18).Name = "Quiet" args137(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args137()) rem Ê К dim args138(18) as new com.sun.star.beans.PropertyValue args138(0).Name = "SearchItem.StyleFamily" args138(0).Value = 2 args138(1).Name = "SearchItem.CellType" args138(1).Value = 0 args138(2).Name = "SearchItem.RowDirection" args138(2).Value = true args138(3).Name = "SearchItem.AllTables" args138(3).Value = false args138(4).Name = "SearchItem.Backward" args138(4).Value = false args138(5).Name = "SearchItem.Pattern" args138(5).Value = false args138(6).Name = "SearchItem.Content" args138(6).Value = false args138(7).Name = "SearchItem.AsianOptions" args138(7).Value = false args138(8).Name = "SearchItem.AlgorithmType" args138(8).Value = 0 args138(9).Name = "SearchItem.SearchFlags" args138(9).Value = 65536 args138(10).Name = "SearchItem.SearchString" args138(10).Value = "Ê" args138(11).Name = "SearchItem.ReplaceString" args138(11).Value = "К" args138(12).Name = "SearchItem.Locale" args138(12).Value = 255 args138(13).Name = "SearchItem.ChangedChars" args138(13).Value = 2 args138(14).Name = "SearchItem.DeletedChars" args138(14).Value = 2 args138(15).Name = "SearchItem.InsertedChars" args138(15).Value = 2 args138(16).Name = "SearchItem.TransliterateFlags" args138(16).Value = 1024 args138(17).Name = "SearchItem.Command" args138(17).Value = 3 args138(18).Name = "Quiet" args138(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args138()) rem ë л dim args139(18) as new com.sun.star.beans.PropertyValue args139(0).Name = "SearchItem.StyleFamily" args139(0).Value = 2 args139(1).Name = "SearchItem.CellType" args139(1).Value = 0 args139(2).Name = "SearchItem.RowDirection" args139(2).Value = true args139(3).Name = "SearchItem.AllTables" args139(3).Value = false args139(4).Name = "SearchItem.Backward" args139(4).Value = false args139(5).Name = "SearchItem.Pattern" args139(5).Value = false args139(6).Name = "SearchItem.Content" args139(6).Value = false args139(7).Name = "SearchItem.AsianOptions" args139(7).Value = false args139(8).Name = "SearchItem.AlgorithmType" args139(8).Value = 0 args139(9).Name = "SearchItem.SearchFlags" args139(9).Value = 65536 args139(10).Name = "SearchItem.SearchString" args139(10).Value = "ë" args139(11).Name = "SearchItem.ReplaceString" args139(11).Value = "л" args139(12).Name = "SearchItem.Locale" args139(12).Value = 255 args139(13).Name = "SearchItem.ChangedChars" args139(13).Value = 2 args139(14).Name = "SearchItem.DeletedChars" args139(14).Value = 2 args139(15).Name = "SearchItem.InsertedChars" args139(15).Value = 2 args139(16).Name = "SearchItem.TransliterateFlags" args139(16).Value = 1024 args139(17).Name = "SearchItem.Command" args139(17).Value = 3 args139(18).Name = "Quiet" args139(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args139()) rem Ë Л dim args140(18) as new com.sun.star.beans.PropertyValue args140(0).Name = "SearchItem.StyleFamily" args140(0).Value = 2 args140(1).Name = "SearchItem.CellType" args140(1).Value = 0 args140(2).Name = "SearchItem.RowDirection" args140(2).Value = true args140(3).Name = "SearchItem.AllTables" args140(3).Value = false args140(4).Name = "SearchItem.Backward" args140(4).Value = false args140(5).Name = "SearchItem.Pattern" args140(5).Value = false args140(6).Name = "SearchItem.Content" args140(6).Value = false args140(7).Name = "SearchItem.AsianOptions" args140(7).Value = false args140(8).Name = "SearchItem.AlgorithmType" args140(8).Value = 0 args140(9).Name = "SearchItem.SearchFlags" args140(9).Value = 65536 args140(10).Name = "SearchItem.SearchString" args140(10).Value = "Ë" args140(11).Name = "SearchItem.ReplaceString" args140(11).Value = "Л" args140(12).Name = "SearchItem.Locale" args140(12).Value = 255 args140(13).Name = "SearchItem.ChangedChars" args140(13).Value = 2 args140(14).Name = "SearchItem.DeletedChars" args140(14).Value = 2 args140(15).Name = "SearchItem.InsertedChars" args140(15).Value = 2 args140(16).Name = "SearchItem.TransliterateFlags" args140(16).Value = 1024 args140(17).Name = "SearchItem.Command" args140(17).Value = 3 args140(18).Name = "Quiet" args140(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args140()) rem ì м dim args141(18) as new com.sun.star.beans.PropertyValue args141(0).Name = "SearchItem.StyleFamily" args141(0).Value = 2 args141(1).Name = "SearchItem.CellType" args141(1).Value = 0 args141(2).Name = "SearchItem.RowDirection" args141(2).Value = true args141(3).Name = "SearchItem.AllTables" args141(3).Value = false args141(4).Name = "SearchItem.Backward" args141(4).Value = false args141(5).Name = "SearchItem.Pattern" args141(5).Value = false args141(6).Name = "SearchItem.Content" args141(6).Value = false args141(7).Name = "SearchItem.AsianOptions" args141(7).Value = false args141(8).Name = "SearchItem.AlgorithmType" args141(8).Value = 0 args141(9).Name = "SearchItem.SearchFlags" args141(9).Value = 65536 args141(10).Name = "SearchItem.SearchString" args141(10).Value = "ì" args141(11).Name = "SearchItem.ReplaceString" args141(11).Value = "м" args141(12).Name = "SearchItem.Locale" args141(12).Value = 255 args141(13).Name = "SearchItem.ChangedChars" args141(13).Value = 2 args141(14).Name = "SearchItem.DeletedChars" args141(14).Value = 2 args141(15).Name = "SearchItem.InsertedChars" args141(15).Value = 2 args141(16).Name = "SearchItem.TransliterateFlags" args141(16).Value = 1024 args141(17).Name = "SearchItem.Command" args141(17).Value = 3 args141(18).Name = "Quiet" args141(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args141()) rem Ì М dim args142(18) as new com.sun.star.beans.PropertyValue args142(0).Name = "SearchItem.StyleFamily" args142(0).Value = 2 args142(1).Name = "SearchItem.CellType" args142(1).Value = 0 args142(2).Name = "SearchItem.RowDirection" args142(2).Value = true args142(3).Name = "SearchItem.AllTables" args142(3).Value = false args142(4).Name = "SearchItem.Backward" args142(4).Value = false args142(5).Name = "SearchItem.Pattern" args142(5).Value = false args142(6).Name = "SearchItem.Content" args142(6).Value = false args142(7).Name = "SearchItem.AsianOptions" args142(7).Value = false args142(8).Name = "SearchItem.AlgorithmType" args142(8).Value = 0 args142(9).Name = "SearchItem.SearchFlags" args142(9).Value = 65536 args142(10).Name = "SearchItem.SearchString" args142(10).Value = "Ì" args142(11).Name = "SearchItem.ReplaceString" args142(11).Value = "М" args142(12).Name = "SearchItem.Locale" args142(12).Value = 255 args142(13).Name = "SearchItem.ChangedChars" args142(13).Value = 2 args142(14).Name = "SearchItem.DeletedChars" args142(14).Value = 2 args142(15).Name = "SearchItem.InsertedChars" args142(15).Value = 2 args142(16).Name = "SearchItem.TransliterateFlags" args142(16).Value = 1024 args142(17).Name = "SearchItem.Command" args142(17).Value = 3 args142(18).Name = "Quiet" args142(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args142()) rem í н dim args143(18) as new com.sun.star.beans.PropertyValue args143(0).Name = "SearchItem.StyleFamily" args143(0).Value = 2 args143(1).Name = "SearchItem.CellType" args143(1).Value = 0 args143(2).Name = "SearchItem.RowDirection" args143(2).Value = true args143(3).Name = "SearchItem.AllTables" args143(3).Value = false args143(4).Name = "SearchItem.Backward" args143(4).Value = false args143(5).Name = "SearchItem.Pattern" args143(5).Value = false args143(6).Name = "SearchItem.Content" args143(6).Value = false args143(7).Name = "SearchItem.AsianOptions" args143(7).Value = false args143(8).Name = "SearchItem.AlgorithmType" args143(8).Value = 0 args143(9).Name = "SearchItem.SearchFlags" args143(9).Value = 65536 args143(10).Name = "SearchItem.SearchString" args143(10).Value = "í" args143(11).Name = "SearchItem.ReplaceString" args143(11).Value = "н" args143(12).Name = "SearchItem.Locale" args143(12).Value = 255 args143(13).Name = "SearchItem.ChangedChars" args143(13).Value = 2 args143(14).Name = "SearchItem.DeletedChars" args143(14).Value = 2 args143(15).Name = "SearchItem.InsertedChars" args143(15).Value = 2 args143(16).Name = "SearchItem.TransliterateFlags" args143(16).Value = 1024 args143(17).Name = "SearchItem.Command" args143(17).Value = 3 args143(18).Name = "Quiet" args143(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args143()) rem Í Н dim args144(18) as new com.sun.star.beans.PropertyValue args144(0).Name = "SearchItem.StyleFamily" args144(0).Value = 2 args144(1).Name = "SearchItem.CellType" args144(1).Value = 0 args144(2).Name = "SearchItem.RowDirection" args144(2).Value = true args144(3).Name = "SearchItem.AllTables" args144(3).Value = false args144(4).Name = "SearchItem.Backward" args144(4).Value = false args144(5).Name = "SearchItem.Pattern" args144(5).Value = false args144(6).Name = "SearchItem.Content" args144(6).Value = false args144(7).Name = "SearchItem.AsianOptions" args144(7).Value = false args144(8).Name = "SearchItem.AlgorithmType" args144(8).Value = 0 args144(9).Name = "SearchItem.SearchFlags" args144(9).Value = 65536 args144(10).Name = "SearchItem.SearchString" args144(10).Value = "Í" args144(11).Name = "SearchItem.ReplaceString" args144(11).Value = "Н" args144(12).Name = "SearchItem.Locale" args144(12).Value = 255 args144(13).Name = "SearchItem.ChangedChars" args144(13).Value = 2 args144(14).Name = "SearchItem.DeletedChars" args144(14).Value = 2 args144(15).Name = "SearchItem.InsertedChars" args144(15).Value = 2 args144(16).Name = "SearchItem.TransliterateFlags" args144(16).Value = 1024 args144(17).Name = "SearchItem.Command" args144(17).Value = 3 args144(18).Name = "Quiet" args144(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args144()) rem î о dim args145(18) as new com.sun.star.beans.PropertyValue args145(0).Name = "SearchItem.StyleFamily" args145(0).Value = 2 args145(1).Name = "SearchItem.CellType" args145(1).Value = 0 args145(2).Name = "SearchItem.RowDirection" args145(2).Value = true args145(3).Name = "SearchItem.AllTables" args145(3).Value = false args145(4).Name = "SearchItem.Backward" args145(4).Value = false args145(5).Name = "SearchItem.Pattern" args145(5).Value = false args145(6).Name = "SearchItem.Content" args145(6).Value = false args145(7).Name = "SearchItem.AsianOptions" args145(7).Value = false args145(8).Name = "SearchItem.AlgorithmType" args145(8).Value = 0 args145(9).Name = "SearchItem.SearchFlags" args145(9).Value = 65536 args145(10).Name = "SearchItem.SearchString" args145(10).Value = "î" args145(11).Name = "SearchItem.ReplaceString" args145(11).Value = "о" args145(12).Name = "SearchItem.Locale" args145(12).Value = 255 args145(13).Name = "SearchItem.ChangedChars" args145(13).Value = 2 args145(14).Name = "SearchItem.DeletedChars" args145(14).Value = 2 args145(15).Name = "SearchItem.InsertedChars" args145(15).Value = 2 args145(16).Name = "SearchItem.TransliterateFlags" args145(16).Value = 1024 args145(17).Name = "SearchItem.Command" args145(17).Value = 3 args145(18).Name = "Quiet" args145(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args145()) rem Î О dim args146(18) as new com.sun.star.beans.PropertyValue args146(0).Name = "SearchItem.StyleFamily" args146(0).Value = 2 args146(1).Name = "SearchItem.CellType" args146(1).Value = 0 args146(2).Name = "SearchItem.RowDirection" args146(2).Value = true args146(3).Name = "SearchItem.AllTables" args146(3).Value = false args146(4).Name = "SearchItem.Backward" args146(4).Value = false args146(5).Name = "SearchItem.Pattern" args146(5).Value = false args146(6).Name = "SearchItem.Content" args146(6).Value = false args146(7).Name = "SearchItem.AsianOptions" args146(7).Value = false args146(8).Name = "SearchItem.AlgorithmType" args146(8).Value = 0 args146(9).Name = "SearchItem.SearchFlags" args146(9).Value = 65536 args146(10).Name = "SearchItem.SearchString" args146(10).Value = "Î" args146(11).Name = "SearchItem.ReplaceString" args146(11).Value = "О" args146(12).Name = "SearchItem.Locale" args146(12).Value = 255 args146(13).Name = "SearchItem.ChangedChars" args146(13).Value = 2 args146(14).Name = "SearchItem.DeletedChars" args146(14).Value = 2 args146(15).Name = "SearchItem.InsertedChars" args146(15).Value = 2 args146(16).Name = "SearchItem.TransliterateFlags" args146(16).Value = 1024 args146(17).Name = "SearchItem.Command" args146(17).Value = 3 args146(18).Name = "Quiet" args146(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args146()) rem ï п dim args147(18) as new com.sun.star.beans.PropertyValue args147(0).Name = "SearchItem.StyleFamily" args147(0).Value = 2 args147(1).Name = "SearchItem.CellType" args147(1).Value = 0 args147(2).Name = "SearchItem.RowDirection" args147(2).Value = true args147(3).Name = "SearchItem.AllTables" args147(3).Value = false args147(4).Name = "SearchItem.Backward" args147(4).Value = false args147(5).Name = "SearchItem.Pattern" args147(5).Value = false args147(6).Name = "SearchItem.Content" args147(6).Value = false args147(7).Name = "SearchItem.AsianOptions" args147(7).Value = false args147(8).Name = "SearchItem.AlgorithmType" args147(8).Value = 0 args147(9).Name = "SearchItem.SearchFlags" args147(9).Value = 65536 args147(10).Name = "SearchItem.SearchString" args147(10).Value = "ï" args147(11).Name = "SearchItem.ReplaceString" args147(11).Value = "п" args147(12).Name = "SearchItem.Locale" args147(12).Value = 255 args147(13).Name = "SearchItem.ChangedChars" args147(13).Value = 2 args147(14).Name = "SearchItem.DeletedChars" args147(14).Value = 2 args147(15).Name = "SearchItem.InsertedChars" args147(15).Value = 2 args147(16).Name = "SearchItem.TransliterateFlags" args147(16).Value = 1024 args147(17).Name = "SearchItem.Command" args147(17).Value = 3 args147(18).Name = "Quiet" args147(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args147()) rem Ï П dim args148(18) as new com.sun.star.beans.PropertyValue args148(0).Name = "SearchItem.StyleFamily" args148(0).Value = 2 args148(1).Name = "SearchItem.CellType" args148(1).Value = 0 args148(2).Name = "SearchItem.RowDirection" args148(2).Value = true args148(3).Name = "SearchItem.AllTables" args148(3).Value = false args148(4).Name = "SearchItem.Backward" args148(4).Value = false args148(5).Name = "SearchItem.Pattern" args148(5).Value = false args148(6).Name = "SearchItem.Content" args148(6).Value = false args148(7).Name = "SearchItem.AsianOptions" args148(7).Value = false args148(8).Name = "SearchItem.AlgorithmType" args148(8).Value = 0 args148(9).Name = "SearchItem.SearchFlags" args148(9).Value = 65536 args148(10).Name = "SearchItem.SearchString" args148(10).Value = "Ï" args148(11).Name = "SearchItem.ReplaceString" args148(11).Value = "П" args148(12).Name = "SearchItem.Locale" args148(12).Value = 255 args148(13).Name = "SearchItem.ChangedChars" args148(13).Value = 2 args148(14).Name = "SearchItem.DeletedChars" args148(14).Value = 2 args148(15).Name = "SearchItem.InsertedChars" args148(15).Value = 2 args148(16).Name = "SearchItem.TransliterateFlags" args148(16).Value = 1024 args148(17).Name = "SearchItem.Command" args148(17).Value = 3 args148(18).Name = "Quiet" args148(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args148()) rem ð р dim args149(18) as new com.sun.star.beans.PropertyValue args149(0).Name = "SearchItem.StyleFamily" args149(0).Value = 2 args149(1).Name = "SearchItem.CellType" args149(1).Value = 0 args149(2).Name = "SearchItem.RowDirection" args149(2).Value = true args149(3).Name = "SearchItem.AllTables" args149(3).Value = false args149(4).Name = "SearchItem.Backward" args149(4).Value = false args149(5).Name = "SearchItem.Pattern" args149(5).Value = false args149(6).Name = "SearchItem.Content" args149(6).Value = false args149(7).Name = "SearchItem.AsianOptions" args149(7).Value = false args149(8).Name = "SearchItem.AlgorithmType" args149(8).Value = 0 args149(9).Name = "SearchItem.SearchFlags" args149(9).Value = 65536 args149(10).Name = "SearchItem.SearchString" args149(10).Value = "ð" args149(11).Name = "SearchItem.ReplaceString" args149(11).Value = "р" args149(12).Name = "SearchItem.Locale" args149(12).Value = 255 args149(13).Name = "SearchItem.ChangedChars" args149(13).Value = 2 args149(14).Name = "SearchItem.DeletedChars" args149(14).Value = 2 args149(15).Name = "SearchItem.InsertedChars" args149(15).Value = 2 args149(16).Name = "SearchItem.TransliterateFlags" args149(16).Value = 1024 args149(17).Name = "SearchItem.Command" args149(17).Value = 3 args149(18).Name = "Quiet" args149(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args149()) rem Ð Р dim args150(18) as new com.sun.star.beans.PropertyValue args150(0).Name = "SearchItem.StyleFamily" args150(0).Value = 2 args150(1).Name = "SearchItem.CellType" args150(1).Value = 0 args150(2).Name = "SearchItem.RowDirection" args150(2).Value = true args150(3).Name = "SearchItem.AllTables" args150(3).Value = false args150(4).Name = "SearchItem.Backward" args150(4).Value = false args150(5).Name = "SearchItem.Pattern" args150(5).Value = false args150(6).Name = "SearchItem.Content" args150(6).Value = false args150(7).Name = "SearchItem.AsianOptions" args150(7).Value = false args150(8).Name = "SearchItem.AlgorithmType" args150(8).Value = 0 args150(9).Name = "SearchItem.SearchFlags" args150(9).Value = 65536 args150(10).Name = "SearchItem.SearchString" args150(10).Value = "Ð" args150(11).Name = "SearchItem.ReplaceString" args150(11).Value = "Р" args150(12).Name = "SearchItem.Locale" args150(12).Value = 255 args150(13).Name = "SearchItem.ChangedChars" args150(13).Value = 2 args150(14).Name = "SearchItem.DeletedChars" args150(14).Value = 2 args150(15).Name = "SearchItem.InsertedChars" args150(15).Value = 2 args150(16).Name = "SearchItem.TransliterateFlags" args150(16).Value = 1024 args150(17).Name = "SearchItem.Command" args150(17).Value = 3 args150(18).Name = "Quiet" args150(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args150()) rem ñ с dim args151(18) as new com.sun.star.beans.PropertyValue args151(0).Name = "SearchItem.StyleFamily" args151(0).Value = 2 args151(1).Name = "SearchItem.CellType" args151(1).Value = 0 args151(2).Name = "SearchItem.RowDirection" args151(2).Value = true args151(3).Name = "SearchItem.AllTables" args151(3).Value = false args151(4).Name = "SearchItem.Backward" args151(4).Value = false args151(5).Name = "SearchItem.Pattern" args151(5).Value = false args151(6).Name = "SearchItem.Content" args151(6).Value = false args151(7).Name = "SearchItem.AsianOptions" args151(7).Value = false args151(8).Name = "SearchItem.AlgorithmType" args151(8).Value = 0 args151(9).Name = "SearchItem.SearchFlags" args151(9).Value = 65536 args151(10).Name = "SearchItem.SearchString" args151(10).Value = "ñ" args151(11).Name = "SearchItem.ReplaceString" args151(11).Value = "с" args151(12).Name = "SearchItem.Locale" args151(12).Value = 255 args151(13).Name = "SearchItem.ChangedChars" args151(13).Value = 2 args151(14).Name = "SearchItem.DeletedChars" args151(14).Value = 2 args151(15).Name = "SearchItem.InsertedChars" args151(15).Value = 2 args151(16).Name = "SearchItem.TransliterateFlags" args151(16).Value = 1024 args151(17).Name = "SearchItem.Command" args151(17).Value = 3 args151(18).Name = "Quiet" args151(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args151()) rem Ñ С dim args152(18) as new com.sun.star.beans.PropertyValue args152(0).Name = "SearchItem.StyleFamily" args152(0).Value = 2 args152(1).Name = "SearchItem.CellType" args152(1).Value = 0 args152(2).Name = "SearchItem.RowDirection" args152(2).Value = true args152(3).Name = "SearchItem.AllTables" args152(3).Value = false args152(4).Name = "SearchItem.Backward" args152(4).Value = false args152(5).Name = "SearchItem.Pattern" args152(5).Value = false args152(6).Name = "SearchItem.Content" args152(6).Value = false args152(7).Name = "SearchItem.AsianOptions" args152(7).Value = false args152(8).Name = "SearchItem.AlgorithmType" args152(8).Value = 0 args152(9).Name = "SearchItem.SearchFlags" args152(9).Value = 65536 args152(10).Name = "SearchItem.SearchString" args152(10).Value = "Ñ" args152(11).Name = "SearchItem.ReplaceString" args152(11).Value = "С" args152(12).Name = "SearchItem.Locale" args152(12).Value = 255 args152(13).Name = "SearchItem.ChangedChars" args152(13).Value = 2 args152(14).Name = "SearchItem.DeletedChars" args152(14).Value = 2 args152(15).Name = "SearchItem.InsertedChars" args152(15).Value = 2 args152(16).Name = "SearchItem.TransliterateFlags" args152(16).Value = 1024 args152(17).Name = "SearchItem.Command" args152(17).Value = 3 args152(18).Name = "Quiet" args152(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args152()) rem ò т dim args153(18) as new com.sun.star.beans.PropertyValue args153(0).Name = "SearchItem.StyleFamily" args153(0).Value = 2 args153(1).Name = "SearchItem.CellType" args153(1).Value = 0 args153(2).Name = "SearchItem.RowDirection" args153(2).Value = true args153(3).Name = "SearchItem.AllTables" args153(3).Value = false args153(4).Name = "SearchItem.Backward" args153(4).Value = false args153(5).Name = "SearchItem.Pattern" args153(5).Value = false args153(6).Name = "SearchItem.Content" args153(6).Value = false args153(7).Name = "SearchItem.AsianOptions" args153(7).Value = false args153(8).Name = "SearchItem.AlgorithmType" args153(8).Value = 0 args153(9).Name = "SearchItem.SearchFlags" args153(9).Value = 65536 args153(10).Name = "SearchItem.SearchString" args153(10).Value = "ò" args153(11).Name = "SearchItem.ReplaceString" args153(11).Value = "т" args153(12).Name = "SearchItem.Locale" args153(12).Value = 255 args153(13).Name = "SearchItem.ChangedChars" args153(13).Value = 2 args153(14).Name = "SearchItem.DeletedChars" args153(14).Value = 2 args153(15).Name = "SearchItem.InsertedChars" args153(15).Value = 2 args153(16).Name = "SearchItem.TransliterateFlags" args153(16).Value = 1024 args153(17).Name = "SearchItem.Command" args153(17).Value = 3 args153(18).Name = "Quiet" args153(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args153()) rem Ò Т dim args154(18) as new com.sun.star.beans.PropertyValue args154(0).Name = "SearchItem.StyleFamily" args154(0).Value = 2 args154(1).Name = "SearchItem.CellType" args154(1).Value = 0 args154(2).Name = "SearchItem.RowDirection" args154(2).Value = true args154(3).Name = "SearchItem.AllTables" args154(3).Value = false args154(4).Name = "SearchItem.Backward" args154(4).Value = false args154(5).Name = "SearchItem.Pattern" args154(5).Value = false args154(6).Name = "SearchItem.Content" args154(6).Value = false args154(7).Name = "SearchItem.AsianOptions" args154(7).Value = false args154(8).Name = "SearchItem.AlgorithmType" args154(8).Value = 0 args154(9).Name = "SearchItem.SearchFlags" args154(9).Value = 65536 args154(10).Name = "SearchItem.SearchString" args154(10).Value = "Ò" args154(11).Name = "SearchItem.ReplaceString" args154(11).Value = "Т" args154(12).Name = "SearchItem.Locale" args154(12).Value = 255 args154(13).Name = "SearchItem.ChangedChars" args154(13).Value = 2 args154(14).Name = "SearchItem.DeletedChars" args154(14).Value = 2 args154(15).Name = "SearchItem.InsertedChars" args154(15).Value = 2 args154(16).Name = "SearchItem.TransliterateFlags" args154(16).Value = 1024 args154(17).Name = "SearchItem.Command" args154(17).Value = 3 args154(18).Name = "Quiet" args154(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args154()) rem ó у dim args155(18) as new com.sun.star.beans.PropertyValue args155(0).Name = "SearchItem.StyleFamily" args155(0).Value = 2 args155(1).Name = "SearchItem.CellType" args155(1).Value = 0 args155(2).Name = "SearchItem.RowDirection" args155(2).Value = true args155(3).Name = "SearchItem.AllTables" args155(3).Value = false args155(4).Name = "SearchItem.Backward" args155(4).Value = false args155(5).Name = "SearchItem.Pattern" args155(5).Value = false args155(6).Name = "SearchItem.Content" args155(6).Value = false args155(7).Name = "SearchItem.AsianOptions" args155(7).Value = false args155(8).Name = "SearchItem.AlgorithmType" args155(8).Value = 0 args155(9).Name = "SearchItem.SearchFlags" args155(9).Value = 65536 args155(10).Name = "SearchItem.SearchString" args155(10).Value = "ó" args155(11).Name = "SearchItem.ReplaceString" args155(11).Value = "у" args155(12).Name = "SearchItem.Locale" args155(12).Value = 255 args155(13).Name = "SearchItem.ChangedChars" args155(13).Value = 2 args155(14).Name = "SearchItem.DeletedChars" args155(14).Value = 2 args155(15).Name = "SearchItem.InsertedChars" args155(15).Value = 2 args155(16).Name = "SearchItem.TransliterateFlags" args155(16).Value = 1024 args155(17).Name = "SearchItem.Command" args155(17).Value = 3 args155(18).Name = "Quiet" args155(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args155()) rem Ó У dim args156(18) as new com.sun.star.beans.PropertyValue args156(0).Name = "SearchItem.StyleFamily" args156(0).Value = 2 args156(1).Name = "SearchItem.CellType" args156(1).Value = 0 args156(2).Name = "SearchItem.RowDirection" args156(2).Value = true args156(3).Name = "SearchItem.AllTables" args156(3).Value = false args156(4).Name = "SearchItem.Backward" args156(4).Value = false args156(5).Name = "SearchItem.Pattern" args156(5).Value = false args156(6).Name = "SearchItem.Content" args156(6).Value = false args156(7).Name = "SearchItem.AsianOptions" args156(7).Value = false args156(8).Name = "SearchItem.AlgorithmType" args156(8).Value = 0 args156(9).Name = "SearchItem.SearchFlags" args156(9).Value = 65536 args156(10).Name = "SearchItem.SearchString" args156(10).Value = "Ó" args156(11).Name = "SearchItem.ReplaceString" args156(11).Value = "У" args156(12).Name = "SearchItem.Locale" args156(12).Value = 255 args156(13).Name = "SearchItem.ChangedChars" args156(13).Value = 2 args156(14).Name = "SearchItem.DeletedChars" args156(14).Value = 2 args156(15).Name = "SearchItem.InsertedChars" args156(15).Value = 2 args156(16).Name = "SearchItem.TransliterateFlags" args156(16).Value = 1024 args156(17).Name = "SearchItem.Command" args156(17).Value = 3 args156(18).Name = "Quiet" args156(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args156()) rem ô ф dim args157(18) as new com.sun.star.beans.PropertyValue args157(0).Name = "SearchItem.StyleFamily" args157(0).Value = 2 args157(1).Name = "SearchItem.CellType" args157(1).Value = 0 args157(2).Name = "SearchItem.RowDirection" args157(2).Value = true args157(3).Name = "SearchItem.AllTables" args157(3).Value = false args157(4).Name = "SearchItem.Backward" args157(4).Value = false args157(5).Name = "SearchItem.Pattern" args157(5).Value = false args157(6).Name = "SearchItem.Content" args157(6).Value = false args157(7).Name = "SearchItem.AsianOptions" args157(7).Value = false args157(8).Name = "SearchItem.AlgorithmType" args157(8).Value = 0 args157(9).Name = "SearchItem.SearchFlags" args157(9).Value = 65536 args157(10).Name = "SearchItem.SearchString" args157(10).Value = "ô" args157(11).Name = "SearchItem.ReplaceString" args157(11).Value = "ф" args157(12).Name = "SearchItem.Locale" args157(12).Value = 255 args157(13).Name = "SearchItem.ChangedChars" args157(13).Value = 2 args157(14).Name = "SearchItem.DeletedChars" args157(14).Value = 2 args157(15).Name = "SearchItem.InsertedChars" args157(15).Value = 2 args157(16).Name = "SearchItem.TransliterateFlags" args157(16).Value = 1024 args157(17).Name = "SearchItem.Command" args157(17).Value = 3 args157(18).Name = "Quiet" args157(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args157()) rem Ô Ф dim args158(18) as new com.sun.star.beans.PropertyValue args158(0).Name = "SearchItem.StyleFamily" args158(0).Value = 2 args158(1).Name = "SearchItem.CellType" args158(1).Value = 0 args158(2).Name = "SearchItem.RowDirection" args158(2).Value = true args158(3).Name = "SearchItem.AllTables" args158(3).Value = false args158(4).Name = "SearchItem.Backward" args158(4).Value = false args158(5).Name = "SearchItem.Pattern" args158(5).Value = false args158(6).Name = "SearchItem.Content" args158(6).Value = false args158(7).Name = "SearchItem.AsianOptions" args158(7).Value = false args158(8).Name = "SearchItem.AlgorithmType" args158(8).Value = 0 args158(9).Name = "SearchItem.SearchFlags" args158(9).Value = 65536 args158(10).Name = "SearchItem.SearchString" args158(10).Value = "Ô" args158(11).Name = "SearchItem.ReplaceString" args158(11).Value = "Ф" args158(12).Name = "SearchItem.Locale" args158(12).Value = 255 args158(13).Name = "SearchItem.ChangedChars" args158(13).Value = 2 args158(14).Name = "SearchItem.DeletedChars" args158(14).Value = 2 args158(15).Name = "SearchItem.InsertedChars" args158(15).Value = 2 args158(16).Name = "SearchItem.TransliterateFlags" args158(16).Value = 1024 args158(17).Name = "SearchItem.Command" args158(17).Value = 3 args158(18).Name = "Quiet" args158(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args158()) rem õ х dim args159(18) as new com.sun.star.beans.PropertyValue args159(0).Name = "SearchItem.StyleFamily" args159(0).Value = 2 args159(1).Name = "SearchItem.CellType" args159(1).Value = 0 args159(2).Name = "SearchItem.RowDirection" args159(2).Value = true args159(3).Name = "SearchItem.AllTables" args159(3).Value = false args159(4).Name = "SearchItem.Backward" args159(4).Value = false args159(5).Name = "SearchItem.Pattern" args159(5).Value = false args159(6).Name = "SearchItem.Content" args159(6).Value = false args159(7).Name = "SearchItem.AsianOptions" args159(7).Value = false args159(8).Name = "SearchItem.AlgorithmType" args159(8).Value = 0 args159(9).Name = "SearchItem.SearchFlags" args159(9).Value = 65536 args159(10).Name = "SearchItem.SearchString" args159(10).Value = "õ" args159(11).Name = "SearchItem.ReplaceString" args159(11).Value = "х" args159(12).Name = "SearchItem.Locale" args159(12).Value = 255 args159(13).Name = "SearchItem.ChangedChars" args159(13).Value = 2 args159(14).Name = "SearchItem.DeletedChars" args159(14).Value = 2 args159(15).Name = "SearchItem.InsertedChars" args159(15).Value = 2 args159(16).Name = "SearchItem.TransliterateFlags" args159(16).Value = 1024 args159(17).Name = "SearchItem.Command" args159(17).Value = 3 args159(18).Name = "Quiet" args159(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args159()) rem Õ Х dim args160(18) as new com.sun.star.beans.PropertyValue args160(0).Name = "SearchItem.StyleFamily" args160(0).Value = 2 args160(1).Name = "SearchItem.CellType" args160(1).Value = 0 args160(2).Name = "SearchItem.RowDirection" args160(2).Value = true args160(3).Name = "SearchItem.AllTables" args160(3).Value = false args160(4).Name = "SearchItem.Backward" args160(4).Value = false args160(5).Name = "SearchItem.Pattern" args160(5).Value = false args160(6).Name = "SearchItem.Content" args160(6).Value = false args160(7).Name = "SearchItem.AsianOptions" args160(7).Value = false args160(8).Name = "SearchItem.AlgorithmType" args160(8).Value = 0 args160(9).Name = "SearchItem.SearchFlags" args160(9).Value = 65536 args160(10).Name = "SearchItem.SearchString" args160(10).Value = "Õ" args160(11).Name = "SearchItem.ReplaceString" args160(11).Value = "Х" args160(12).Name = "SearchItem.Locale" args160(12).Value = 255 args160(13).Name = "SearchItem.ChangedChars" args160(13).Value = 2 args160(14).Name = "SearchItem.DeletedChars" args160(14).Value = 2 args160(15).Name = "SearchItem.InsertedChars" args160(15).Value = 2 args160(16).Name = "SearchItem.TransliterateFlags" args160(16).Value = 1024 args160(17).Name = "SearchItem.Command" args160(17).Value = 3 args160(18).Name = "Quiet" args160(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args160()) rem ö ц dim args161(18) as new com.sun.star.beans.PropertyValue args161(0).Name = "SearchItem.StyleFamily" args161(0).Value = 2 args161(1).Name = "SearchItem.CellType" args161(1).Value = 0 args161(2).Name = "SearchItem.RowDirection" args161(2).Value = true args161(3).Name = "SearchItem.AllTables" args161(3).Value = false args161(4).Name = "SearchItem.Backward" args161(4).Value = false args161(5).Name = "SearchItem.Pattern" args161(5).Value = false args161(6).Name = "SearchItem.Content" args161(6).Value = false args161(7).Name = "SearchItem.AsianOptions" args161(7).Value = false args161(8).Name = "SearchItem.AlgorithmType" args161(8).Value = 0 args161(9).Name = "SearchItem.SearchFlags" args161(9).Value = 65536 args161(10).Name = "SearchItem.SearchString" args161(10).Value = "ö" args161(11).Name = "SearchItem.ReplaceString" args161(11).Value = "ц" args161(12).Name = "SearchItem.Locale" args161(12).Value = 255 args161(13).Name = "SearchItem.ChangedChars" args161(13).Value = 2 args161(14).Name = "SearchItem.DeletedChars" args161(14).Value = 2 args161(15).Name = "SearchItem.InsertedChars" args161(15).Value = 2 args161(16).Name = "SearchItem.TransliterateFlags" args161(16).Value = 1024 args161(17).Name = "SearchItem.Command" args161(17).Value = 3 args161(18).Name = "Quiet" args161(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args161()) rem Ö Ц dim args162(18) as new com.sun.star.beans.PropertyValue args162(0).Name = "SearchItem.StyleFamily" args162(0).Value = 2 args162(1).Name = "SearchItem.CellType" args162(1).Value = 0 args162(2).Name = "SearchItem.RowDirection" args162(2).Value = true args162(3).Name = "SearchItem.AllTables" args162(3).Value = false args162(4).Name = "SearchItem.Backward" args162(4).Value = false args162(5).Name = "SearchItem.Pattern" args162(5).Value = false args162(6).Name = "SearchItem.Content" args162(6).Value = false args162(7).Name = "SearchItem.AsianOptions" args162(7).Value = false args162(8).Name = "SearchItem.AlgorithmType" args162(8).Value = 0 args162(9).Name = "SearchItem.SearchFlags" args162(9).Value = 65536 args162(10).Name = "SearchItem.SearchString" args162(10).Value = "Ö" args162(11).Name = "SearchItem.ReplaceString" args162(11).Value = "Ц" args162(12).Name = "SearchItem.Locale" args162(12).Value = 255 args162(13).Name = "SearchItem.ChangedChars" args162(13).Value = 2 args162(14).Name = "SearchItem.DeletedChars" args162(14).Value = 2 args162(15).Name = "SearchItem.InsertedChars" args162(15).Value = 2 args162(16).Name = "SearchItem.TransliterateFlags" args162(16).Value = 1024 args162(17).Name = "SearchItem.Command" args162(17).Value = 3 args162(18).Name = "Quiet" args162(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args162()) rem ÷ ч dim args163(18) as new com.sun.star.beans.PropertyValue args163(0).Name = "SearchItem.StyleFamily" args163(0).Value = 2 args163(1).Name = "SearchItem.CellType" args163(1).Value = 0 args163(2).Name = "SearchItem.RowDirection" args163(2).Value = true args163(3).Name = "SearchItem.AllTables" args163(3).Value = false args163(4).Name = "SearchItem.Backward" args163(4).Value = false args163(5).Name = "SearchItem.Pattern" args163(5).Value = false args163(6).Name = "SearchItem.Content" args163(6).Value = false args163(7).Name = "SearchItem.AsianOptions" args163(7).Value = false args163(8).Name = "SearchItem.AlgorithmType" args163(8).Value = 0 args163(9).Name = "SearchItem.SearchFlags" args163(9).Value = 65536 args163(10).Name = "SearchItem.SearchString" args163(10).Value = "÷" args163(11).Name = "SearchItem.ReplaceString" args163(11).Value = "ч" args163(12).Name = "SearchItem.Locale" args163(12).Value = 255 args163(13).Name = "SearchItem.ChangedChars" args163(13).Value = 2 args163(14).Name = "SearchItem.DeletedChars" args163(14).Value = 2 args163(15).Name = "SearchItem.InsertedChars" args163(15).Value = 2 args163(16).Name = "SearchItem.TransliterateFlags" args163(16).Value = 1024 args163(17).Name = "SearchItem.Command" args163(17).Value = 3 args163(18).Name = "Quiet" args163(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args163()) rem × Ч dim args164(18) as new com.sun.star.beans.PropertyValue args164(0).Name = "SearchItem.StyleFamily" args164(0).Value = 2 args164(1).Name = "SearchItem.CellType" args164(1).Value = 0 args164(2).Name = "SearchItem.RowDirection" args164(2).Value = true args164(3).Name = "SearchItem.AllTables" args164(3).Value = false args164(4).Name = "SearchItem.Backward" args164(4).Value = false args164(5).Name = "SearchItem.Pattern" args164(5).Value = false args164(6).Name = "SearchItem.Content" args164(6).Value = false args164(7).Name = "SearchItem.AsianOptions" args164(7).Value = false args164(8).Name = "SearchItem.AlgorithmType" args164(8).Value = 0 args164(9).Name = "SearchItem.SearchFlags" args164(9).Value = 65536 args164(10).Name = "SearchItem.SearchString" args164(10).Value = "×" args164(11).Name = "SearchItem.ReplaceString" args164(11).Value = "Ч" args164(12).Name = "SearchItem.Locale" args164(12).Value = 255 args164(13).Name = "SearchItem.ChangedChars" args164(13).Value = 2 args164(14).Name = "SearchItem.DeletedChars" args164(14).Value = 2 args164(15).Name = "SearchItem.InsertedChars" args164(15).Value = 2 args164(16).Name = "SearchItem.TransliterateFlags" args164(16).Value = 1024 args164(17).Name = "SearchItem.Command" args164(17).Value = 3 args164(18).Name = "Quiet" args164(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args164()) rem ø ш dim args165(18) as new com.sun.star.beans.PropertyValue args165(0).Name = "SearchItem.StyleFamily" args165(0).Value = 2 args165(1).Name = "SearchItem.CellType" args165(1).Value = 0 args165(2).Name = "SearchItem.RowDirection" args165(2).Value = true args165(3).Name = "SearchItem.AllTables" args165(3).Value = false args165(4).Name = "SearchItem.Backward" args165(4).Value = false args165(5).Name = "SearchItem.Pattern" args165(5).Value = false args165(6).Name = "SearchItem.Content" args165(6).Value = false args165(7).Name = "SearchItem.AsianOptions" args165(7).Value = false args165(8).Name = "SearchItem.AlgorithmType" args165(8).Value = 0 args165(9).Name = "SearchItem.SearchFlags" args165(9).Value = 65536 args165(10).Name = "SearchItem.SearchString" args165(10).Value = "ø" args165(11).Name = "SearchItem.ReplaceString" args165(11).Value = "ш" args165(12).Name = "SearchItem.Locale" args165(12).Value = 255 args165(13).Name = "SearchItem.ChangedChars" args165(13).Value = 2 args165(14).Name = "SearchItem.DeletedChars" args165(14).Value = 2 args165(15).Name = "SearchItem.InsertedChars" args165(15).Value = 2 args165(16).Name = "SearchItem.TransliterateFlags" args165(16).Value = 1024 args165(17).Name = "SearchItem.Command" args165(17).Value = 3 args165(18).Name = "Quiet" args165(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args165()) rem Ø Ш dim args166(18) as new com.sun.star.beans.PropertyValue args166(0).Name = "SearchItem.StyleFamily" args166(0).Value = 2 args166(1).Name = "SearchItem.CellType" args166(1).Value = 0 args166(2).Name = "SearchItem.RowDirection" args166(2).Value = true args166(3).Name = "SearchItem.AllTables" args166(3).Value = false args166(4).Name = "SearchItem.Backward" args166(4).Value = false args166(5).Name = "SearchItem.Pattern" args166(5).Value = false args166(6).Name = "SearchItem.Content" args166(6).Value = false args166(7).Name = "SearchItem.AsianOptions" args166(7).Value = false args166(8).Name = "SearchItem.AlgorithmType" args166(8).Value = 0 args166(9).Name = "SearchItem.SearchFlags" args166(9).Value = 65536 args166(10).Name = "SearchItem.SearchString" args166(10).Value = "Ø" args166(11).Name = "SearchItem.ReplaceString" args166(11).Value = "Ш" args166(12).Name = "SearchItem.Locale" args166(12).Value = 255 args166(13).Name = "SearchItem.ChangedChars" args166(13).Value = 2 args166(14).Name = "SearchItem.DeletedChars" args166(14).Value = 2 args166(15).Name = "SearchItem.InsertedChars" args166(15).Value = 2 args166(16).Name = "SearchItem.TransliterateFlags" args166(16).Value = 1024 args166(17).Name = "SearchItem.Command" args166(17).Value = 3 args166(18).Name = "Quiet" args166(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args166()) rem ù щ dim args167(18) as new com.sun.star.beans.PropertyValue args167(0).Name = "SearchItem.StyleFamily" args167(0).Value = 2 args167(1).Name = "SearchItem.CellType" args167(1).Value = 0 args167(2).Name = "SearchItem.RowDirection" args167(2).Value = true args167(3).Name = "SearchItem.AllTables" args167(3).Value = false args167(4).Name = "SearchItem.Backward" args167(4).Value = false args167(5).Name = "SearchItem.Pattern" args167(5).Value = false args167(6).Name = "SearchItem.Content" args167(6).Value = false args167(7).Name = "SearchItem.AsianOptions" args167(7).Value = false args167(8).Name = "SearchItem.AlgorithmType" args167(8).Value = 0 args167(9).Name = "SearchItem.SearchFlags" args167(9).Value = 65536 args167(10).Name = "SearchItem.SearchString" args167(10).Value = "ù" args167(11).Name = "SearchItem.ReplaceString" args167(11).Value = "щ" args167(12).Name = "SearchItem.Locale" args167(12).Value = 255 args167(13).Name = "SearchItem.ChangedChars" args167(13).Value = 2 args167(14).Name = "SearchItem.DeletedChars" args167(14).Value = 2 args167(15).Name = "SearchItem.InsertedChars" args167(15).Value = 2 args167(16).Name = "SearchItem.TransliterateFlags" args167(16).Value = 1024 args167(17).Name = "SearchItem.Command" args167(17).Value = 3 args167(18).Name = "Quiet" args167(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args167()) rem Ù Щ dim args168(18) as new com.sun.star.beans.PropertyValue args168(0).Name = "SearchItem.StyleFamily" args168(0).Value = 2 args168(1).Name = "SearchItem.CellType" args168(1).Value = 0 args168(2).Name = "SearchItem.RowDirection" args168(2).Value = true args168(3).Name = "SearchItem.AllTables" args168(3).Value = false args168(4).Name = "SearchItem.Backward" args168(4).Value = false args168(5).Name = "SearchItem.Pattern" args168(5).Value = false args168(6).Name = "SearchItem.Content" args168(6).Value = false args168(7).Name = "SearchItem.AsianOptions" args168(7).Value = false args168(8).Name = "SearchItem.AlgorithmType" args168(8).Value = 0 args168(9).Name = "SearchItem.SearchFlags" args168(9).Value = 65536 args168(10).Name = "SearchItem.SearchString" args168(10).Value = "Ù" args168(11).Name = "SearchItem.ReplaceString" args168(11).Value = "Щ" args168(12).Name = "SearchItem.Locale" args168(12).Value = 255 args168(13).Name = "SearchItem.ChangedChars" args168(13).Value = 2 args168(14).Name = "SearchItem.DeletedChars" args168(14).Value = 2 args168(15).Name = "SearchItem.InsertedChars" args168(15).Value = 2 args168(16).Name = "SearchItem.TransliterateFlags" args168(16).Value = 1024 args168(17).Name = "SearchItem.Command" args168(17).Value = 3 args168(18).Name = "Quiet" args168(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args168()) rem ú ъ dim args169(18) as new com.sun.star.beans.PropertyValue args169(0).Name = "SearchItem.StyleFamily" args169(0).Value = 2 args169(1).Name = "SearchItem.CellType" args169(1).Value = 0 args169(2).Name = "SearchItem.RowDirection" args169(2).Value = true args169(3).Name = "SearchItem.AllTables" args169(3).Value = false args169(4).Name = "SearchItem.Backward" args169(4).Value = false args169(5).Name = "SearchItem.Pattern" args169(5).Value = false args169(6).Name = "SearchItem.Content" args169(6).Value = false args169(7).Name = "SearchItem.AsianOptions" args169(7).Value = false args169(8).Name = "SearchItem.AlgorithmType" args169(8).Value = 0 args169(9).Name = "SearchItem.SearchFlags" args169(9).Value = 65536 args169(10).Name = "SearchItem.SearchString" args169(10).Value = "ú" args169(11).Name = "SearchItem.ReplaceString" args169(11).Value = "ъ" args169(12).Name = "SearchItem.Locale" args169(12).Value = 255 args169(13).Name = "SearchItem.ChangedChars" args169(13).Value = 2 args169(14).Name = "SearchItem.DeletedChars" args169(14).Value = 2 args169(15).Name = "SearchItem.InsertedChars" args169(15).Value = 2 args169(16).Name = "SearchItem.TransliterateFlags" args169(16).Value = 1024 args169(17).Name = "SearchItem.Command" args169(17).Value = 3 args169(18).Name = "Quiet" args169(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args169()) rem Ú Ъ dim args170(18) as new com.sun.star.beans.PropertyValue args170(0).Name = "SearchItem.StyleFamily" args170(0).Value = 2 args170(1).Name = "SearchItem.CellType" args170(1).Value = 0 args170(2).Name = "SearchItem.RowDirection" args170(2).Value = true args170(3).Name = "SearchItem.AllTables" args170(3).Value = false args170(4).Name = "SearchItem.Backward" args170(4).Value = false args170(5).Name = "SearchItem.Pattern" args170(5).Value = false args170(6).Name = "SearchItem.Content" args170(6).Value = false args170(7).Name = "SearchItem.AsianOptions" args170(7).Value = false args170(8).Name = "SearchItem.AlgorithmType" args170(8).Value = 0 args170(9).Name = "SearchItem.SearchFlags" args170(9).Value = 65536 args170(10).Name = "SearchItem.SearchString" args170(10).Value = "Ú" args170(11).Name = "SearchItem.ReplaceString" args170(11).Value = "Ъ" args170(12).Name = "SearchItem.Locale" args170(12).Value = 255 args170(13).Name = "SearchItem.ChangedChars" args170(13).Value = 2 args170(14).Name = "SearchItem.DeletedChars" args170(14).Value = 2 args170(15).Name = "SearchItem.InsertedChars" args170(15).Value = 2 args170(16).Name = "SearchItem.TransliterateFlags" args170(16).Value = 1024 args170(17).Name = "SearchItem.Command" args170(17).Value = 3 args170(18).Name = "Quiet" args170(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args170()) rem û ы dim args171(18) as new com.sun.star.beans.PropertyValue args171(0).Name = "SearchItem.StyleFamily" args171(0).Value = 2 args171(1).Name = "SearchItem.CellType" args171(1).Value = 0 args171(2).Name = "SearchItem.RowDirection" args171(2).Value = true args171(3).Name = "SearchItem.AllTables" args171(3).Value = false args171(4).Name = "SearchItem.Backward" args171(4).Value = false args171(5).Name = "SearchItem.Pattern" args171(5).Value = false args171(6).Name = "SearchItem.Content" args171(6).Value = false args171(7).Name = "SearchItem.AsianOptions" args171(7).Value = false args171(8).Name = "SearchItem.AlgorithmType" args171(8).Value = 0 args171(9).Name = "SearchItem.SearchFlags" args171(9).Value = 65536 args171(10).Name = "SearchItem.SearchString" args171(10).Value = "û" args171(11).Name = "SearchItem.ReplaceString" args171(11).Value = "ы" args171(12).Name = "SearchItem.Locale" args171(12).Value = 255 args171(13).Name = "SearchItem.ChangedChars" args171(13).Value = 2 args171(14).Name = "SearchItem.DeletedChars" args171(14).Value = 2 args171(15).Name = "SearchItem.InsertedChars" args171(15).Value = 2 args171(16).Name = "SearchItem.TransliterateFlags" args171(16).Value = 1024 args171(17).Name = "SearchItem.Command" args171(17).Value = 3 args171(18).Name = "Quiet" args171(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args171()) rem Û Ы dim args172(18) as new com.sun.star.beans.PropertyValue args172(0).Name = "SearchItem.StyleFamily" args172(0).Value = 2 args172(1).Name = "SearchItem.CellType" args172(1).Value = 0 args172(2).Name = "SearchItem.RowDirection" args172(2).Value = true args172(3).Name = "SearchItem.AllTables" args172(3).Value = false args172(4).Name = "SearchItem.Backward" args172(4).Value = false args172(5).Name = "SearchItem.Pattern" args172(5).Value = false args172(6).Name = "SearchItem.Content" args172(6).Value = false args172(7).Name = "SearchItem.AsianOptions" args172(7).Value = false args172(8).Name = "SearchItem.AlgorithmType" args172(8).Value = 0 args172(9).Name = "SearchItem.SearchFlags" args172(9).Value = 65536 args172(10).Name = "SearchItem.SearchString" args172(10).Value = "Û" args172(11).Name = "SearchItem.ReplaceString" args172(11).Value = "Ы" args172(12).Name = "SearchItem.Locale" args172(12).Value = 255 args172(13).Name = "SearchItem.ChangedChars" args172(13).Value = 2 args172(14).Name = "SearchItem.DeletedChars" args172(14).Value = 2 args172(15).Name = "SearchItem.InsertedChars" args172(15).Value = 2 args172(16).Name = "SearchItem.TransliterateFlags" args172(16).Value = 1024 args172(17).Name = "SearchItem.Command" args172(17).Value = 3 args172(18).Name = "Quiet" args172(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args172()) rem ü ь dim args173(18) as new com.sun.star.beans.PropertyValue args173(0).Name = "SearchItem.StyleFamily" args173(0).Value = 2 args173(1).Name = "SearchItem.CellType" args173(1).Value = 0 args173(2).Name = "SearchItem.RowDirection" args173(2).Value = true args173(3).Name = "SearchItem.AllTables" args173(3).Value = false args173(4).Name = "SearchItem.Backward" args173(4).Value = false args173(5).Name = "SearchItem.Pattern" args173(5).Value = false args173(6).Name = "SearchItem.Content" args173(6).Value = false args173(7).Name = "SearchItem.AsianOptions" args173(7).Value = false args173(8).Name = "SearchItem.AlgorithmType" args173(8).Value = 0 args173(9).Name = "SearchItem.SearchFlags" args173(9).Value = 65536 args173(10).Name = "SearchItem.SearchString" args173(10).Value = "ü" args173(11).Name = "SearchItem.ReplaceString" args173(11).Value = "ь" args173(12).Name = "SearchItem.Locale" args173(12).Value = 255 args173(13).Name = "SearchItem.ChangedChars" args173(13).Value = 2 args173(14).Name = "SearchItem.DeletedChars" args173(14).Value = 2 args173(15).Name = "SearchItem.InsertedChars" args173(15).Value = 2 args173(16).Name = "SearchItem.TransliterateFlags" args173(16).Value = 1024 args173(17).Name = "SearchItem.Command" args173(17).Value = 3 args173(18).Name = "Quiet" args173(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args173()) rem Ü Ь dim args174(18) as new com.sun.star.beans.PropertyValue args174(0).Name = "SearchItem.StyleFamily" args174(0).Value = 2 args174(1).Name = "SearchItem.CellType" args174(1).Value = 0 args174(2).Name = "SearchItem.RowDirection" args174(2).Value = true args174(3).Name = "SearchItem.AllTables" args174(3).Value = false args174(4).Name = "SearchItem.Backward" args174(4).Value = false args174(5).Name = "SearchItem.Pattern" args174(5).Value = false args174(6).Name = "SearchItem.Content" args174(6).Value = false args174(7).Name = "SearchItem.AsianOptions" args174(7).Value = false args174(8).Name = "SearchItem.AlgorithmType" args174(8).Value = 0 args174(9).Name = "SearchItem.SearchFlags" args174(9).Value = 65536 args174(10).Name = "SearchItem.SearchString" args174(10).Value = "Ü" args174(11).Name = "SearchItem.ReplaceString" args174(11).Value = "Ь" args174(12).Name = "SearchItem.Locale" args174(12).Value = 255 args174(13).Name = "SearchItem.ChangedChars" args174(13).Value = 2 args174(14).Name = "SearchItem.DeletedChars" args174(14).Value = 2 args174(15).Name = "SearchItem.InsertedChars" args174(15).Value = 2 args174(16).Name = "SearchItem.TransliterateFlags" args174(16).Value = 1024 args174(17).Name = "SearchItem.Command" args174(17).Value = 3 args174(18).Name = "Quiet" args174(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args174()) rem ý э dim args175(18) as new com.sun.star.beans.PropertyValue args175(0).Name = "SearchItem.StyleFamily" args175(0).Value = 2 args175(1).Name = "SearchItem.CellType" args175(1).Value = 0 args175(2).Name = "SearchItem.RowDirection" args175(2).Value = true args175(3).Name = "SearchItem.AllTables" args175(3).Value = false args175(4).Name = "SearchItem.Backward" args175(4).Value = false args175(5).Name = "SearchItem.Pattern" args175(5).Value = false args175(6).Name = "SearchItem.Content" args175(6).Value = false args175(7).Name = "SearchItem.AsianOptions" args175(7).Value = false args175(8).Name = "SearchItem.AlgorithmType" args175(8).Value = 0 args175(9).Name = "SearchItem.SearchFlags" args175(9).Value = 65536 args175(10).Name = "SearchItem.SearchString" args175(10).Value = "ý" args175(11).Name = "SearchItem.ReplaceString" args175(11).Value = "э" args175(12).Name = "SearchItem.Locale" args175(12).Value = 255 args175(13).Name = "SearchItem.ChangedChars" args175(13).Value = 2 args175(14).Name = "SearchItem.DeletedChars" args175(14).Value = 2 args175(15).Name = "SearchItem.InsertedChars" args175(15).Value = 2 args175(16).Name = "SearchItem.TransliterateFlags" args175(16).Value = 1024 args175(17).Name = "SearchItem.Command" args175(17).Value = 3 args175(18).Name = "Quiet" args175(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args175()) rem Ý Э dim args176(18) as new com.sun.star.beans.PropertyValue args176(0).Name = "SearchItem.StyleFamily" args176(0).Value = 2 args176(1).Name = "SearchItem.CellType" args176(1).Value = 0 args176(2).Name = "SearchItem.RowDirection" args176(2).Value = true args176(3).Name = "SearchItem.AllTables" args176(3).Value = false args176(4).Name = "SearchItem.Backward" args176(4).Value = false args176(5).Name = "SearchItem.Pattern" args176(5).Value = false args176(6).Name = "SearchItem.Content" args176(6).Value = false args176(7).Name = "SearchItem.AsianOptions" args176(7).Value = false args176(8).Name = "SearchItem.AlgorithmType" args176(8).Value = 0 args176(9).Name = "SearchItem.SearchFlags" args176(9).Value = 65536 args176(10).Name = "SearchItem.SearchString" args176(10).Value = "Ý" args176(11).Name = "SearchItem.ReplaceString" args176(11).Value = "Э" args176(12).Name = "SearchItem.Locale" args176(12).Value = 255 args176(13).Name = "SearchItem.ChangedChars" args176(13).Value = 2 args176(14).Name = "SearchItem.DeletedChars" args176(14).Value = 2 args176(15).Name = "SearchItem.InsertedChars" args176(15).Value = 2 args176(16).Name = "SearchItem.TransliterateFlags" args176(16).Value = 1024 args176(17).Name = "SearchItem.Command" args176(17).Value = 3 args176(18).Name = "Quiet" args176(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args176()) rem þ ю dim args177(18) as new com.sun.star.beans.PropertyValue args177(0).Name = "SearchItem.StyleFamily" args177(0).Value = 2 args177(1).Name = "SearchItem.CellType" args177(1).Value = 0 args177(2).Name = "SearchItem.RowDirection" args177(2).Value = true args177(3).Name = "SearchItem.AllTables" args177(3).Value = false args177(4).Name = "SearchItem.Backward" args177(4).Value = false args177(5).Name = "SearchItem.Pattern" args177(5).Value = false args177(6).Name = "SearchItem.Content" args177(6).Value = false args177(7).Name = "SearchItem.AsianOptions" args177(7).Value = false args177(8).Name = "SearchItem.AlgorithmType" args177(8).Value = 0 args177(9).Name = "SearchItem.SearchFlags" args177(9).Value = 65536 args177(10).Name = "SearchItem.SearchString" args177(10).Value = "þ" args177(11).Name = "SearchItem.ReplaceString" args177(11).Value = "ю" args177(12).Name = "SearchItem.Locale" args177(12).Value = 255 args177(13).Name = "SearchItem.ChangedChars" args177(13).Value = 2 args177(14).Name = "SearchItem.DeletedChars" args177(14).Value = 2 args177(15).Name = "SearchItem.InsertedChars" args177(15).Value = 2 args177(16).Name = "SearchItem.TransliterateFlags" args177(16).Value = 1024 args177(17).Name = "SearchItem.Command" args177(17).Value = 3 args177(18).Name = "Quiet" args177(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args177()) rem Þ Ю dim args178(18) as new com.sun.star.beans.PropertyValue args178(0).Name = "SearchItem.StyleFamily" args178(0).Value = 2 args178(1).Name = "SearchItem.CellType" args178(1).Value = 0 args178(2).Name = "SearchItem.RowDirection" args178(2).Value = true args178(3).Name = "SearchItem.AllTables" args178(3).Value = false args178(4).Name = "SearchItem.Backward" args178(4).Value = false args178(5).Name = "SearchItem.Pattern" args178(5).Value = false args178(6).Name = "SearchItem.Content" args178(6).Value = false args178(7).Name = "SearchItem.AsianOptions" args178(7).Value = false args178(8).Name = "SearchItem.AlgorithmType" args178(8).Value = 0 args178(9).Name = "SearchItem.SearchFlags" args178(9).Value = 65536 args178(10).Name = "SearchItem.SearchString" args178(10).Value = "Þ" args178(11).Name = "SearchItem.ReplaceString" args178(11).Value = "Ю" args178(12).Name = "SearchItem.Locale" args178(12).Value = 255 args178(13).Name = "SearchItem.ChangedChars" args178(13).Value = 2 args178(14).Name = "SearchItem.DeletedChars" args178(14).Value = 2 args178(15).Name = "SearchItem.InsertedChars" args178(15).Value = 2 args178(16).Name = "SearchItem.TransliterateFlags" args178(16).Value = 1024 args178(17).Name = "SearchItem.Command" args178(17).Value = 3 args178(18).Name = "Quiet" args178(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args178()) rem ÿ я dim args179(18) as new com.sun.star.beans.PropertyValue args179(0).Name = "SearchItem.StyleFamily" args179(0).Value = 2 args179(1).Name = "SearchItem.CellType" args179(1).Value = 0 args179(2).Name = "SearchItem.RowDirection" args179(2).Value = true args179(3).Name = "SearchItem.AllTables" args179(3).Value = false args179(4).Name = "SearchItem.Backward" args179(4).Value = false args179(5).Name = "SearchItem.Pattern" args179(5).Value = false args179(6).Name = "SearchItem.Content" args179(6).Value = false args179(7).Name = "SearchItem.AsianOptions" args179(7).Value = false args179(8).Name = "SearchItem.AlgorithmType" args179(8).Value = 0 args179(9).Name = "SearchItem.SearchFlags" args179(9).Value = 65536 args179(10).Name = "SearchItem.SearchString" args179(10).Value = "ÿ" args179(11).Name = "SearchItem.ReplaceString" args179(11).Value = "я" args179(12).Name = "SearchItem.Locale" args179(12).Value = 255 args179(13).Name = "SearchItem.ChangedChars" args179(13).Value = 2 args179(14).Name = "SearchItem.DeletedChars" args179(14).Value = 2 args179(15).Name = "SearchItem.InsertedChars" args179(15).Value = 2 args179(16).Name = "SearchItem.TransliterateFlags" args179(16).Value = 1024 args179(17).Name = "SearchItem.Command" args179(17).Value = 3 args179(18).Name = "Quiet" args179(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args179()) rem ß Я dim args180(18) as new com.sun.star.beans.PropertyValue args180(0).Name = "SearchItem.StyleFamily" args180(0).Value = 2 args180(1).Name = "SearchItem.CellType" args180(1).Value = 0 args180(2).Name = "SearchItem.RowDirection" args180(2).Value = true args180(3).Name = "SearchItem.AllTables" args180(3).Value = false args180(4).Name = "SearchItem.Backward" args180(4).Value = false args180(5).Name = "SearchItem.Pattern" args180(5).Value = false args180(6).Name = "SearchItem.Content" args180(6).Value = false args180(7).Name = "SearchItem.AsianOptions" args180(7).Value = false args180(8).Name = "SearchItem.AlgorithmType" args180(8).Value = 0 args180(9).Name = "SearchItem.SearchFlags" args180(9).Value = 65536 args180(10).Name = "SearchItem.SearchString" args180(10).Value = "ß" args180(11).Name = "SearchItem.ReplaceString" args180(11).Value = "Я" args180(12).Name = "SearchItem.Locale" args180(12).Value = 255 args180(13).Name = "SearchItem.ChangedChars" args180(13).Value = 2 args180(14).Name = "SearchItem.DeletedChars" args180(14).Value = 2 args180(15).Name = "SearchItem.InsertedChars" args180(15).Value = 2 args180(16).Name = "SearchItem.TransliterateFlags" args180(16).Value = 1024 args180(17).Name = "SearchItem.Command" args180(17).Value = 3 args180(18).Name = "Quiet" args180(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args180()) rem – ‒ dim args181(18) as new com.sun.star.beans.PropertyValue args181(0).Name = "SearchItem.StyleFamily" args181(0).Value = 2 args181(1).Name = "SearchItem.CellType" args181(1).Value = 0 args181(2).Name = "SearchItem.RowDirection" args181(2).Value = true args181(3).Name = "SearchItem.AllTables" args181(3).Value = false args181(4).Name = "SearchItem.Backward" args181(4).Value = false args181(5).Name = "SearchItem.Pattern" args181(5).Value = false args181(6).Name = "SearchItem.Content" args181(6).Value = false args181(7).Name = "SearchItem.AsianOptions" args181(7).Value = false args181(8).Name = "SearchItem.AlgorithmType" args181(8).Value = 0 args181(9).Name = "SearchItem.SearchFlags" args181(9).Value = 65536 args181(10).Name = "SearchItem.SearchString" args181(10).Value = "–" args181(11).Name = "SearchItem.ReplaceString" args181(11).Value = "‒" args181(12).Name = "SearchItem.Locale" args181(12).Value = 255 args181(13).Name = "SearchItem.ChangedChars" args181(13).Value = 2 args181(14).Name = "SearchItem.DeletedChars" args181(14).Value = 2 args181(15).Name = "SearchItem.InsertedChars" args181(15).Value = 2 args181(16).Name = "SearchItem.TransliterateFlags" args181(16).Value = 1024 args181(17).Name = "SearchItem.Command" args181(17).Value = 3 args181(18).Name = "Quiet" args181(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args181()) end sub REM ***** BASIC ***** Sub Main End Sub sub Komi 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:SelectAll", "", 0, Array()) rem ---------------------------------------------------------------------- dim args17(0) as new com.sun.star.beans.PropertyValue args17(0).Name = "Language" args17(0).Value = 1641 dispatcher.executeDispatch(document, ".uno:Language", "", 0, args17()) rem ---------------------------------------------------------------------- dim args18(2) as new com.sun.star.beans.PropertyValue args18(0).Name = "FontHeightCJK.Height" args18(0).Value = 10.5 args18(1).Name = "FontHeightCJK.Prop" args18(1).Value = 100 args18(2).Name = "FontHeightCJK.Diff" args18(2).Value = 0 dispatcher.executeDispatch(document, ".uno:FontHeightCJK", "", 0, args18()) rem ---------------------------------------------------------------------- dim args19(18) as new com.sun.star.beans.PropertyValue args19(0).Name = "SearchItem.StyleFamily" args19(0).Value = 2 args19(1).Name = "SearchItem.CellType" args19(1).Value = 0 args19(2).Name = "SearchItem.RowDirection" args19(2).Value = true args19(3).Name = "SearchItem.AllTables" args19(3).Value = false args19(4).Name = "SearchItem.Backward" args19(4).Value = false args19(5).Name = "SearchItem.Pattern" args19(5).Value = false args19(6).Name = "SearchItem.Content" args19(6).Value = false args19(7).Name = "SearchItem.AsianOptions" args19(7).Value = false args19(8).Name = "SearchItem.AlgorithmType" args19(8).Value = 0 args19(9).Name = "SearchItem.SearchFlags" args19(9).Value = 65536 args19(10).Name = "SearchItem.SearchString" args19(10).Value = "I" args19(11).Name = "SearchItem.ReplaceString" args19(11).Value = "І" args19(12).Name = "SearchItem.Locale" args19(12).Value = 255 args19(13).Name = "SearchItem.ChangedChars" args19(13).Value = 2 args19(14).Name = "SearchItem.DeletedChars" args19(14).Value = 2 args19(15).Name = "SearchItem.InsertedChars" args19(15).Value = 2 args19(16).Name = "SearchItem.TransliterateFlags" args19(16).Value = 1024 args19(17).Name = "SearchItem.Command" args19(17).Value = 3 args19(18).Name = "Quiet" args19(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args19()) rem ---------------------------------------------------------------------- dim args20(18) as new com.sun.star.beans.PropertyValue args20(0).Name = "SearchItem.StyleFamily" args20(0).Value = 2 args20(1).Name = "SearchItem.CellType" args20(1).Value = 0 args20(2).Name = "SearchItem.RowDirection" args20(2).Value = true args20(3).Name = "SearchItem.AllTables" args20(3).Value = false args20(4).Name = "SearchItem.Backward" args20(4).Value = false args20(5).Name = "SearchItem.Pattern" args20(5).Value = false args20(6).Name = "SearchItem.Content" args20(6).Value = false args20(7).Name = "SearchItem.AsianOptions" args20(7).Value = false args20(8).Name = "SearchItem.AlgorithmType" args20(8).Value = 0 args20(9).Name = "SearchItem.SearchFlags" args20(9).Value = 65536 args20(10).Name = "SearchItem.SearchString" args20(10).Value = "i" args20(11).Name = "SearchItem.ReplaceString" args20(11).Value = "і" args20(12).Name = "SearchItem.Locale" args20(12).Value = 255 args20(13).Name = "SearchItem.ChangedChars" args20(13).Value = 2 args20(14).Name = "SearchItem.DeletedChars" args20(14).Value = 2 args20(15).Name = "SearchItem.InsertedChars" args20(15).Value = 2 args20(16).Name = "SearchItem.TransliterateFlags" args20(16).Value = 1024 args20(17).Name = "SearchItem.Command" args20(17).Value = 3 args20(18).Name = "Quiet" args20(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args20()) rem ---------------------------------------------------------------------- dim args21(18) as new com.sun.star.beans.PropertyValue args21(0).Name = "SearchItem.StyleFamily" args21(0).Value = 2 args21(1).Name = "SearchItem.CellType" args21(1).Value = 0 args21(2).Name = "SearchItem.RowDirection" args21(2).Value = true args21(3).Name = "SearchItem.AllTables" args21(3).Value = false args21(4).Name = "SearchItem.Backward" args21(4).Value = false args21(5).Name = "SearchItem.Pattern" args21(5).Value = false args21(6).Name = "SearchItem.Content" args21(6).Value = false args21(7).Name = "SearchItem.AsianOptions" args21(7).Value = false args21(8).Name = "SearchItem.AlgorithmType" args21(8).Value = 0 args21(9).Name = "SearchItem.SearchFlags" args21(9).Value = 65536 args21(10).Name = "SearchItem.SearchString" args21(10).Value = "Ö" args21(11).Name = "SearchItem.ReplaceString" args21(11).Value = "Ӧ" args21(12).Name = "SearchItem.Locale" args21(12).Value = 255 args21(13).Name = "SearchItem.ChangedChars" args21(13).Value = 2 args21(14).Name = "SearchItem.DeletedChars" args21(14).Value = 2 args21(15).Name = "SearchItem.InsertedChars" args21(15).Value = 2 args21(16).Name = "SearchItem.TransliterateFlags" args21(16).Value = 1024 args21(17).Name = "SearchItem.Command" args21(17).Value = 3 args21(18).Name = "Quiet" args21(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args21()) rem ---------------------------------------------------------------------- dim args22(18) as new com.sun.star.beans.PropertyValue args22(0).Name = "SearchItem.StyleFamily" args22(0).Value = 2 args22(1).Name = "SearchItem.CellType" args22(1).Value = 0 args22(2).Name = "SearchItem.RowDirection" args22(2).Value = true args22(3).Name = "SearchItem.AllTables" args22(3).Value = false args22(4).Name = "SearchItem.Backward" args22(4).Value = false args22(5).Name = "SearchItem.Pattern" args22(5).Value = false args22(6).Name = "SearchItem.Content" args22(6).Value = false args22(7).Name = "SearchItem.AsianOptions" args22(7).Value = false args22(8).Name = "SearchItem.AlgorithmType" args22(8).Value = 0 args22(9).Name = "SearchItem.SearchFlags" args22(9).Value = 65536 args22(10).Name = "SearchItem.SearchString" args22(10).Value = "ö" args22(11).Name = "SearchItem.ReplaceString" args22(11).Value = "ӧ" args22(12).Name = "SearchItem.Locale" args22(12).Value = 255 args22(13).Name = "SearchItem.ChangedChars" args22(13).Value = 2 args22(14).Name = "SearchItem.DeletedChars" args22(14).Value = 2 args22(15).Name = "SearchItem.InsertedChars" args22(15).Value = 2 args22(16).Name = "SearchItem.TransliterateFlags" args22(16).Value = 1024 args22(17).Name = "SearchItem.Command" args22(17).Value = 3 args22(18).Name = "Quiet" args22(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args22()) end sub sub Antikomi 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:SelectAll", "", 0, Array()) rem ---------------------------------------------------------------------- dim args22(0) as new com.sun.star.beans.PropertyValue args22(0).Name = "Language" args22(0).Value = 1641 dispatcher.executeDispatch(document, ".uno:Language", "", 0, args22()) rem ---------------------------------------------------------------------- dim args23(2) as new com.sun.star.beans.PropertyValue args23(0).Name = "FontHeightCJK.Height" args23(0).Value = 10.5 args23(1).Name = "FontHeightCJK.Prop" args23(1).Value = 100 args23(2).Name = "FontHeightCJK.Diff" args23(2).Value = 0 dispatcher.executeDispatch(document, ".uno:FontHeightCJK", "", 0, args23()) rem ---------------------------------------------------------------------- dim args24(18) as new com.sun.star.beans.PropertyValue args24(0).Name = "SearchItem.StyleFamily" args24(0).Value = 2 args24(1).Name = "SearchItem.CellType" args24(1).Value = 0 args24(2).Name = "SearchItem.RowDirection" args24(2).Value = true args24(3).Name = "SearchItem.AllTables" args24(3).Value = false args24(4).Name = "SearchItem.Backward" args24(4).Value = false args24(5).Name = "SearchItem.Pattern" args24(5).Value = false args24(6).Name = "SearchItem.Content" args24(6).Value = false args24(7).Name = "SearchItem.AsianOptions" args24(7).Value = false args24(8).Name = "SearchItem.AlgorithmType" args24(8).Value = 0 args24(9).Name = "SearchItem.SearchFlags" args24(9).Value = 65536 args24(10).Name = "SearchItem.SearchString" args24(10).Value = "І" args24(11).Name = "SearchItem.ReplaceString" args24(11).Value = "+" args24(12).Name = "SearchItem.Locale" args24(12).Value = 255 args24(13).Name = "SearchItem.ChangedChars" args24(13).Value = 2 args24(14).Name = "SearchItem.DeletedChars" args24(14).Value = 2 args24(15).Name = "SearchItem.InsertedChars" args24(15).Value = 2 args24(16).Name = "SearchItem.TransliterateFlags" args24(16).Value = 1024 args24(17).Name = "SearchItem.Command" args24(17).Value = 3 args24(18).Name = "Quiet" args24(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args24()) rem ---------------------------------------------------------------------- dim args25(18) as new com.sun.star.beans.PropertyValue args25(0).Name = "SearchItem.StyleFamily" args25(0).Value = 2 args25(1).Name = "SearchItem.CellType" args25(1).Value = 0 args25(2).Name = "SearchItem.RowDirection" args25(2).Value = true args25(3).Name = "SearchItem.AllTables" args25(3).Value = false args25(4).Name = "SearchItem.Backward" args25(4).Value = false args25(5).Name = "SearchItem.Pattern" args25(5).Value = false args25(6).Name = "SearchItem.Content" args25(6).Value = false args25(7).Name = "SearchItem.AsianOptions" args25(7).Value = false args25(8).Name = "SearchItem.AlgorithmType" args25(8).Value = 0 args25(9).Name = "SearchItem.SearchFlags" args25(9).Value = 65536 args25(10).Name = "SearchItem.SearchString" args25(10).Value = "і" args25(11).Name = "SearchItem.ReplaceString" args25(11).Value = "=" args25(12).Name = "SearchItem.Locale" args25(12).Value = 255 args25(13).Name = "SearchItem.ChangedChars" args25(13).Value = 2 args25(14).Name = "SearchItem.DeletedChars" args25(14).Value = 2 args25(15).Name = "SearchItem.InsertedChars" args25(15).Value = 2 args25(16).Name = "SearchItem.TransliterateFlags" args25(16).Value = 1024 args25(17).Name = "SearchItem.Command" args25(17).Value = 3 args25(18).Name = "Quiet" args25(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args25()) rem ---------------------------------------------------------------------- dim args26(18) as new com.sun.star.beans.PropertyValue args26(0).Name = "SearchItem.StyleFamily" args26(0).Value = 2 args26(1).Name = "SearchItem.CellType" args26(1).Value = 0 args26(2).Name = "SearchItem.RowDirection" args26(2).Value = true args26(3).Name = "SearchItem.AllTables" args26(3).Value = false args26(4).Name = "SearchItem.Backward" args26(4).Value = false args26(5).Name = "SearchItem.Pattern" args26(5).Value = false args26(6).Name = "SearchItem.Content" args26(6).Value = false args26(7).Name = "SearchItem.AsianOptions" args26(7).Value = false args26(8).Name = "SearchItem.AlgorithmType" args26(8).Value = 0 args26(9).Name = "SearchItem.SearchFlags" args26(9).Value = 65536 args26(10).Name = "SearchItem.SearchString" args26(10).Value = "ӧ" args26(11).Name = "SearchItem.ReplaceString" args26(11).Value = "\" args26(12).Name = "SearchItem.Locale" args26(12).Value = 255 args26(13).Name = "SearchItem.ChangedChars" args26(13).Value = 2 args26(14).Name = "SearchItem.DeletedChars" args26(14).Value = 2 args26(15).Name = "SearchItem.InsertedChars" args26(15).Value = 2 args26(16).Name = "SearchItem.TransliterateFlags" args26(16).Value = 1024 args26(17).Name = "SearchItem.Command" args26(17).Value = 3 args26(18).Name = "Quiet" args26(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args26()) rem ---------------------------------------------------------------------- dim args27(18) as new com.sun.star.beans.PropertyValue args27(0).Name = "SearchItem.StyleFamily" args27(0).Value = 2 args27(1).Name = "SearchItem.CellType" args27(1).Value = 0 args27(2).Name = "SearchItem.RowDirection" args27(2).Value = true args27(3).Name = "SearchItem.AllTables" args27(3).Value = false args27(4).Name = "SearchItem.Backward" args27(4).Value = false args27(5).Name = "SearchItem.Pattern" args27(5).Value = false args27(6).Name = "SearchItem.Content" args27(6).Value = false args27(7).Name = "SearchItem.AsianOptions" args27(7).Value = false args27(8).Name = "SearchItem.AlgorithmType" args27(8).Value = 0 args27(9).Name = "SearchItem.SearchFlags" args27(9).Value = 65536 args27(10).Name = "SearchItem.SearchString" args27(10).Value = "Ӧ" args27(11).Name = "SearchItem.ReplaceString" args27(11).Value = "/" args27(12).Name = "SearchItem.Locale" args27(12).Value = 255 args27(13).Name = "SearchItem.ChangedChars" args27(13).Value = 2 args27(14).Name = "SearchItem.DeletedChars" args27(14).Value = 2 args27(15).Name = "SearchItem.InsertedChars" args27(15).Value = 2 args27(16).Name = "SearchItem.TransliterateFlags" args27(16).Value = 1024 args27(17).Name = "SearchItem.Command" args27(17).Value = 3 args27(18).Name = "Quiet" args27(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args27()) end sub sub Prokomi 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:SelectAll", "", 0, Array()) rem ---------------------------------------------------------------------- dim args32(0) as new com.sun.star.beans.PropertyValue args32(0).Name = "Language" args32(0).Value = 1641 dispatcher.executeDispatch(document, ".uno:Language", "", 0, args32()) rem ---------------------------------------------------------------------- dim args33(2) as new com.sun.star.beans.PropertyValue args33(0).Name = "FontHeightCJK.Height" args33(0).Value = 10.5 args33(1).Name = "FontHeightCJK.Prop" args33(1).Value = 100 args33(2).Name = "FontHeightCJK.Diff" args33(2).Value = 0 dispatcher.executeDispatch(document, ".uno:FontHeightCJK", "", 0, args33()) rem ---------------------------------------------------------------------- dim args34(18) as new com.sun.star.beans.PropertyValue args34(0).Name = "SearchItem.StyleFamily" args34(0).Value = 2 args34(1).Name = "SearchItem.CellType" args34(1).Value = 0 args34(2).Name = "SearchItem.RowDirection" args34(2).Value = true args34(3).Name = "SearchItem.AllTables" args34(3).Value = false args34(4).Name = "SearchItem.Backward" args34(4).Value = false args34(5).Name = "SearchItem.Pattern" args34(5).Value = false args34(6).Name = "SearchItem.Content" args34(6).Value = false args34(7).Name = "SearchItem.AsianOptions" args34(7).Value = false args34(8).Name = "SearchItem.AlgorithmType" args34(8).Value = 0 args34(9).Name = "SearchItem.SearchFlags" args34(9).Value = 65536 args34(10).Name = "SearchItem.SearchString" args34(10).Value = "+" args34(11).Name = "SearchItem.ReplaceString" args34(11).Value = "І" args34(12).Name = "SearchItem.Locale" args34(12).Value = 255 args34(13).Name = "SearchItem.ChangedChars" args34(13).Value = 2 args34(14).Name = "SearchItem.DeletedChars" args34(14).Value = 2 args34(15).Name = "SearchItem.InsertedChars" args34(15).Value = 2 args34(16).Name = "SearchItem.TransliterateFlags" args34(16).Value = 1024 args34(17).Name = "SearchItem.Command" args34(17).Value = 3 args34(18).Name = "Quiet" args34(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args34()) rem ---------------------------------------------------------------------- dim args35(18) as new com.sun.star.beans.PropertyValue args35(0).Name = "SearchItem.StyleFamily" args35(0).Value = 2 args35(1).Name = "SearchItem.CellType" args35(1).Value = 0 args35(2).Name = "SearchItem.RowDirection" args35(2).Value = true args35(3).Name = "SearchItem.AllTables" args35(3).Value = false args35(4).Name = "SearchItem.Backward" args35(4).Value = false args35(5).Name = "SearchItem.Pattern" args35(5).Value = false args35(6).Name = "SearchItem.Content" args35(6).Value = false args35(7).Name = "SearchItem.AsianOptions" args35(7).Value = false args35(8).Name = "SearchItem.AlgorithmType" args35(8).Value = 0 args35(9).Name = "SearchItem.SearchFlags" args35(9).Value = 65536 args35(10).Name = "SearchItem.SearchString" args35(10).Value = "=" args35(11).Name = "SearchItem.ReplaceString" args35(11).Value = "і" args35(12).Name = "SearchItem.Locale" args35(12).Value = 255 args35(13).Name = "SearchItem.ChangedChars" args35(13).Value = 2 args35(14).Name = "SearchItem.DeletedChars" args35(14).Value = 2 args35(15).Name = "SearchItem.InsertedChars" args35(15).Value = 2 args35(16).Name = "SearchItem.TransliterateFlags" args35(16).Value = 1024 args35(17).Name = "SearchItem.Command" args35(17).Value = 3 args35(18).Name = "Quiet" args35(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args35()) rem ---------------------------------------------------------------------- dim args36(18) as new com.sun.star.beans.PropertyValue args36(0).Name = "SearchItem.StyleFamily" args36(0).Value = 2 args36(1).Name = "SearchItem.CellType" args36(1).Value = 0 args36(2).Name = "SearchItem.RowDirection" args36(2).Value = true args36(3).Name = "SearchItem.AllTables" args36(3).Value = false args36(4).Name = "SearchItem.Backward" args36(4).Value = false args36(5).Name = "SearchItem.Pattern" args36(5).Value = false args36(6).Name = "SearchItem.Content" args36(6).Value = false args36(7).Name = "SearchItem.AsianOptions" args36(7).Value = false args36(8).Name = "SearchItem.AlgorithmType" args36(8).Value = 0 args36(9).Name = "SearchItem.SearchFlags" args36(9).Value = 65536 args36(10).Name = "SearchItem.SearchString" args36(10).Value = "/" args36(11).Name = "SearchItem.ReplaceString" args36(11).Value = "Ӧ" args36(12).Name = "SearchItem.Locale" args36(12).Value = 255 args36(13).Name = "SearchItem.ChangedChars" args36(13).Value = 2 args36(14).Name = "SearchItem.DeletedChars" args36(14).Value = 2 args36(15).Name = "SearchItem.InsertedChars" args36(15).Value = 2 args36(16).Name = "SearchItem.TransliterateFlags" args36(16).Value = 1024 args36(17).Name = "SearchItem.Command" args36(17).Value = 3 args36(18).Name = "Quiet" args36(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args36()) rem ---------------------------------------------------------------------- dim args37(18) as new com.sun.star.beans.PropertyValue args37(0).Name = "SearchItem.StyleFamily" args37(0).Value = 2 args37(1).Name = "SearchItem.CellType" args37(1).Value = 0 args37(2).Name = "SearchItem.RowDirection" args37(2).Value = true args37(3).Name = "SearchItem.AllTables" args37(3).Value = false args37(4).Name = "SearchItem.Backward" args37(4).Value = false args37(5).Name = "SearchItem.Pattern" args37(5).Value = false args37(6).Name = "SearchItem.Content" args37(6).Value = false args37(7).Name = "SearchItem.AsianOptions" args37(7).Value = false args37(8).Name = "SearchItem.AlgorithmType" args37(8).Value = 0 args37(9).Name = "SearchItem.SearchFlags" args37(9).Value = 65536 args37(10).Name = "SearchItem.SearchString" args37(10).Value = "\" args37(11).Name = "SearchItem.ReplaceString" args37(11).Value = "ӧ" args37(12).Name = "SearchItem.Locale" args37(12).Value = 255 args37(13).Name = "SearchItem.ChangedChars" args37(13).Value = 2 args37(14).Name = "SearchItem.DeletedChars" args37(14).Value = 2 args37(15).Name = "SearchItem.InsertedChars" args37(15).Value = 2 args37(16).Name = "SearchItem.TransliterateFlags" args37(16).Value = 1024 args37(17).Name = "SearchItem.Command" args37(17).Value = 3 args37(18).Name = "Quiet" args37(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args37()) end sub sub Deutsch 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:SelectAll", "", 0, Array()) rem ---------------------------------------------------------------------- dim args38(0) as new com.sun.star.beans.PropertyValue args38(0).Name = "Language" args38(0).Value = 1641 dispatcher.executeDispatch(document, ".uno:Language", "", 0, args38()) rem ---------------------------------------------------------------------- dim args39(2) as new com.sun.star.beans.PropertyValue args39(0).Name = "FontHeightCJK.Height" args39(0).Value = 10.5 args39(1).Name = "FontHeightCJK.Prop" args39(1).Value = 100 args39(2).Name = "FontHeightCJK.Diff" args39(2).Value = 0 dispatcher.executeDispatch(document, ".uno:FontHeightCJK", "", 0, args39()) rem ---------------------------------------------------------------------- dim args40(18) as new com.sun.star.beans.PropertyValue args40(0).Name = "SearchItem.StyleFamily" args40(0).Value = 2 args40(1).Name = "SearchItem.CellType" args40(1).Value = 0 args40(2).Name = "SearchItem.RowDirection" args40(2).Value = true args40(3).Name = "SearchItem.AllTables" args40(3).Value = false args40(4).Name = "SearchItem.Backward" args40(4).Value = false args40(5).Name = "SearchItem.Pattern" args40(5).Value = false args40(6).Name = "SearchItem.Content" args40(6).Value = false args40(7).Name = "SearchItem.AsianOptions" args40(7).Value = false args40(8).Name = "SearchItem.AlgorithmType" args40(8).Value = 0 args40(9).Name = "SearchItem.SearchFlags" args40(9).Value = 65536 args40(10).Name = "SearchItem.SearchString" args40(10).Value = "І" args40(11).Name = "SearchItem.ReplaceString" args40(11).Value = "I" args40(12).Name = "SearchItem.Locale" args40(12).Value = 255 args40(13).Name = "SearchItem.ChangedChars" args40(13).Value = 2 args40(14).Name = "SearchItem.DeletedChars" args40(14).Value = 2 args40(15).Name = "SearchItem.InsertedChars" args40(15).Value = 2 args40(16).Name = "SearchItem.TransliterateFlags" args40(16).Value = 1024 args40(17).Name = "SearchItem.Command" args40(17).Value = 3 args40(18).Name = "Quiet" args40(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args40()) rem ---------------------------------------------------------------------- dim args41(18) as new com.sun.star.beans.PropertyValue args41(0).Name = "SearchItem.StyleFamily" args41(0).Value = 2 args41(1).Name = "SearchItem.CellType" args41(1).Value = 0 args41(2).Name = "SearchItem.RowDirection" args41(2).Value = true args41(3).Name = "SearchItem.AllTables" args41(3).Value = false args41(4).Name = "SearchItem.Backward" args41(4).Value = false args41(5).Name = "SearchItem.Pattern" args41(5).Value = false args41(6).Name = "SearchItem.Content" args41(6).Value = false args41(7).Name = "SearchItem.AsianOptions" args41(7).Value = false args41(8).Name = "SearchItem.AlgorithmType" args41(8).Value = 0 args41(9).Name = "SearchItem.SearchFlags" args41(9).Value = 65536 args41(10).Name = "SearchItem.SearchString" args41(10).Value = "і" args41(11).Name = "SearchItem.ReplaceString" args41(11).Value = "i" args41(12).Name = "SearchItem.Locale" args41(12).Value = 255 args41(13).Name = "SearchItem.ChangedChars" args41(13).Value = 2 args41(14).Name = "SearchItem.DeletedChars" args41(14).Value = 2 args41(15).Name = "SearchItem.InsertedChars" args41(15).Value = 2 args41(16).Name = "SearchItem.TransliterateFlags" args41(16).Value = 1024 args41(17).Name = "SearchItem.Command" args41(17).Value = 3 args41(18).Name = "Quiet" args41(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args41()) rem ---------------------------------------------------------------------- dim args42(18) as new com.sun.star.beans.PropertyValue args42(0).Name = "SearchItem.StyleFamily" args42(0).Value = 2 args42(1).Name = "SearchItem.CellType" args42(1).Value = 0 args42(2).Name = "SearchItem.RowDirection" args42(2).Value = true args42(3).Name = "SearchItem.AllTables" args42(3).Value = false args42(4).Name = "SearchItem.Backward" args42(4).Value = false args42(5).Name = "SearchItem.Pattern" args42(5).Value = false args42(6).Name = "SearchItem.Content" args42(6).Value = false args42(7).Name = "SearchItem.AsianOptions" args42(7).Value = false args42(8).Name = "SearchItem.AlgorithmType" args42(8).Value = 0 args42(9).Name = "SearchItem.SearchFlags" args42(9).Value = 65536 args42(10).Name = "SearchItem.SearchString" args42(10).Value = "Ӧ" args42(11).Name = "SearchItem.ReplaceString" args42(11).Value = "Ö" args42(12).Name = "SearchItem.Locale" args42(12).Value = 255 args42(13).Name = "SearchItem.ChangedChars" args42(13).Value = 2 args42(14).Name = "SearchItem.DeletedChars" args42(14).Value = 2 args42(15).Name = "SearchItem.InsertedChars" args42(15).Value = 2 args42(16).Name = "SearchItem.TransliterateFlags" args42(16).Value = 1024 args42(17).Name = "SearchItem.Command" args42(17).Value = 3 args42(18).Name = "Quiet" args42(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args42()) rem ---------------------------------------------------------------------- dim args43(18) as new com.sun.star.beans.PropertyValue args43(0).Name = "SearchItem.StyleFamily" args43(0).Value = 2 args43(1).Name = "SearchItem.CellType" args43(1).Value = 0 args43(2).Name = "SearchItem.RowDirection" args43(2).Value = true args43(3).Name = "SearchItem.AllTables" args43(3).Value = false args43(4).Name = "SearchItem.Backward" args43(4).Value = false args43(5).Name = "SearchItem.Pattern" args43(5).Value = false args43(6).Name = "SearchItem.Content" args43(6).Value = false args43(7).Name = "SearchItem.AsianOptions" args43(7).Value = false args43(8).Name = "SearchItem.AlgorithmType" args43(8).Value = 0 args43(9).Name = "SearchItem.SearchFlags" args43(9).Value = 65536 args43(10).Name = "SearchItem.SearchString" args43(10).Value = "ӧ" args43(11).Name = "SearchItem.ReplaceString" args43(11).Value = "ö" args43(12).Name = "SearchItem.Locale" args43(12).Value = 255 args43(13).Name = "SearchItem.ChangedChars" args43(13).Value = 2 args43(14).Name = "SearchItem.DeletedChars" args43(14).Value = 2 args43(15).Name = "SearchItem.InsertedChars" args43(15).Value = 2 args43(16).Name = "SearchItem.TransliterateFlags" args43(16).Value = 1024 args43(17).Name = "SearchItem.Command" args43(17).Value = 3 args43(18).Name = "Quiet" args43(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args43()) end sub