REM ***** BASIC ***** REM macro fyrir LibreOffice sub conv_latin2html_hg_gk REM Hakon gerdi for i loop REM args1(16).Value = 1024 gerir greinarmun a litlum og storum staf REM args1(16).Value = 1280 gerir ekki greinarmun a litlum og storum staf REM Chr fundnir sem HEX REM & verdur ad skrifa sem \& REM Ekki er haegt ad breyta $ og # REM Mac flytilykill Shift Cmd H 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 ---------------------------------------------------------------------- dim args1(18) as new com.sun.star.beans.PropertyValue REM REM naestu 2 linur tharf ad stilla eftir fjoelda dim finna(1 To 89) As String dim breyta(1 To 89) As String Rem á 1 00E1 finna(1) = CHR$(&H00E1) breyta(1 ) = "\á" REM Á 2 00C1 finna(2) = CHR$(&H00C1) breyta(2) = "\Á" REM ð 3 00F0 finna(3) = CHR$(&H00F0) breyta(3) = "\ð" REM Ð 4 00D0 finna(4) = CHR$(&H00D0) breyta(4) = "\Ð" REM é 5 00E9 finna(5) = CHR$(&H00E9) breyta(5) = "\é" REM É 6 00C9 finna(6) = CHR$(&H00C9) breyta(6) = "\É" REM í 7 00ED finna(7) = CHR$(&H00ED) breyta(7) = "\í" REM Í 8 00CD finna(8) = CHR$(&H00CD) breyta(8) = "\Í" REM ó 9 00F3 finna(9) = CHR$(&H00F3) breyta(9) = "\ó" REM Ó 10 00D3 finna(10) = CHR$(&H00D3) breyta(10) = "\Ó" REM ú 11 00FA finna(11) = CHR$(&H00FA) breyta(11) = "\ú" REM Ú 12 00DA finna(12) = CHR$(&H00DA) breyta(12) = "\Ú" REM ý 13 00FD finna(13) = CHR$(&H00FD) breyta(13) = "\ý" REM Ý 14 00DD finna(14) = CHR$(&H00DD) breyta(14) = "\Ý" REM þ 15 00FE finna(15) = CHR$(&H00FE) breyta(15) = "\þ" REM Þ 16 00DE finna(16) = CHR$(&H00DE) breyta(16) = "\Þ" REM æ 17 00E6 finna(17) = CHR$(&H00E6) breyta(17) = "\æ" REM Æ 18 00C6 finna(18) = CHR$(&H00C6) breyta(18) = "\Æ" REM ö 19 00F6 finna(19) = CHR$(&H00F6) breyta(19) = "\ö" REM Ö 20 00D6 finna(20) = CHR$(&H00D6) breyta(20) = "\Ö" REM å 21 00E5 finna(21) = CHR$(&H00E5) breyta(21) = "\å" REM Å 22 00C5 finna(22) = CHR$(&H00C5) breyta(22) = "\Å" REM ø 23 00F8 finna(23) = CHR$(&H00F8) breyta(23) = "\ø" REM Ø 24 00D8 finna(24) = CHR$(&H00D8) breyta(24) = "\Ø" REM ü 25 00FC finna(25) = CHR$(&H00FC) breyta(25) = "\ü" REM Ü 26 00DC finna(26) = CHR$(&H00DC) breyta(26) = "\Ü" REM ä 27 00E4 finna(27) = CHR$(&H00E4) breyta(27) = "\ä" REM Ä 28 00C4 finna(28) = CHR$(&H00C4) breyta(28) = "\Ä" REM ë 29 00EB finna(29) = CHR$(&H00EB) breyta(29) = "\ë" REM Ë 30 00CB finna(30) = CHR$(&H00CB) breyta(30) = "\Ë" REM ï 31 00EF finna(31) = CHR$(&H00EF) breyta(31) = "\ï" REM Ï 32 00CF finna(32) = CHR$(&H00CF) breyta(32) = "\Ï" REM â 33 00E2 finna(33) = CHR$(&H00E2) breyta(33) = "\â" REM  34 00C2 finna(34) = CHR$(&H00C2) breyta(34) = "\Â" REM ê 35 00EA finna(35) = CHR$(&H00EA) breyta(35) = "\ê" REM Ê 36 00CA finna(36) = CHR$(&H00CA) breyta(36) = "\Ê" REM î 37 00EE finna(37) = CHR$(&H00EE) breyta(37) = "\î" REM Î 38 00CE finna(38) = CHR$(&H00CE) breyta(38) = "\Î" REM ô 39 00F4 finna(39) = CHR$(&H00F4) breyta(39) = "\ô" REM Ô 40 00D4 finna(40) = CHR$(&H00D4) breyta(40) = "\Ô" REM û 41 00FB finna(41) = CHR$(&H00FB) breyta(41) = "\û" REM Û 42 00DB finna(42) = CHR$(&H00DB) breyta(42) = "\Û" REM à 43 00E0 finna(43) = CHR$(&H00E0) breyta(43) = "\à" REM À 44 00C0 finna(44) = CHR$(&H00C0) breyta(44) = "\À" REM è 45 00E8 finna(45) = CHR$(&H00E8) breyta(45) = "\è" REM È 46 00C8 finna(46) = CHR$(&H00C8) breyta(46) = "\È" REM ò 47 00F2 finna(47) = CHR$(&H00F2) breyta(47) = "\ò" REM Ò 48 00D2 finna(48) = CHR$(&H00D2) breyta(48) = "\Ò" REM ù 49 00F9 finna(49) = CHR$(&H00D2) breyta(49) = "\ù" REM Ù 50 00D9 finna(50) = CHR$(&H00D9) breyta(50) = "\Ù" REM ç 51 00E7 finna(51) = CHR$(&H00D9) breyta(51) = "\ç" REM Ç 52 00C7 finna(52) = CHR$(&H00C7) breyta(52) = "\Ç" REM ã 53 00E3 finna(53) = CHR$(&H00C7) breyta(53) = "\ã" REM à 54 00C3 finna(54) = CHR$(&H00C3) breyta(54) = "\Ã" REM ñ 55 00F1 finna(55) = CHR$(&H00F1) breyta(55) = "\ñ" REM Ñ 56 00D1 finna(56) = CHR$(&H00D1) breyta(56) = "\Ñ" REM õ 57 00F5 finna(57) = CHR$(&H00F5) breyta(57) = "\õ" REM Õ 58 00D5 finna(58) = CHR$(&H00D5) breyta(58) = "\Õ" REM o 59 01EB finna(59) = CHR$(&H01EB) breyta(59) = "\ǫ" REM O 60 01EA finna(60) = CHR$(&H01EA) breyta(60) = "\Ǫ" REM „ 61 201E finna(61) = CHR$(&H201E) breyta(61) = "\„" REM “ 62 201C finna(62) = CHR$(&H201C) breyta(62) = "\“" REM ” 63 201D finna(63) = CHR$(&H201D) breyta(63) = "\”" REM ‘ 64 2018 finna(64) = CHR$(&H2018) breyta(64) = "\‘" REM ’ 65 2019 finna(65) = CHR$(&H2019) breyta(65) = "\’" REM — — 66 2014 finna(66) = CHR$(&H2014) breyta(66) = "\—" REM – – 67 2013 finna(67) = CHR$(&H2013) breyta(67) = "\–" REM < < 68 003C finna(68) = CHR$(&H003C) breyta(68) = "\<" REM > > 69 003E finna(69) = CHR$(&H003E) breyta(69) = "\>" REM = = 70 003D finna(70) = CHR$(&H003D) breyta(70) = "\=" REM … … 71 2026 finna(71) = CHR$(&H003D) breyta(71) = "\…" REM × × 71 00D7 finna(72) = CHR$(&H00D7) breyta(72) = "\×" REM ÷ ÷ 73 00F7 finna(73) = CHR$(&H00F7) breyta(73) = "\÷" REM ± ± 74 00B1 finna(74) = CHR$(&H00B1) breyta(74) = "\±" REM ° ° 75 00B0 finna(75) = CHR$(&H00B0) breyta(75) = "\°" REM ! ! 76 0021 finna(76) = CHR$(&H0021) breyta(76) = "\!" REM ¡ ¡ 77 00A1 finna(77) = CHR$(&H00A1) breyta(77) = "\¡" REM ¿ ¿ 78 00BF finna(78) = CHR$(&H00BF) breyta(78) = "\¿" REM µ µ 79 00B5 finna(79) = CHR$(&H00B5) breyta(79) = "\µ" REM § § 80 00A7 finna(80) = CHR$(&H00A7) breyta(80) = "\§" REM % % 81 0025 finna(81) = CHR$(&H0025) breyta(81) = "\%" REM £ £ 82 00A3 finna(82) = CHR$(&H0025) breyta(82) = "\£" REM ¥ ¥ 83 00A5 finna(83) = CHR$(&H00A5) breyta(83) = "\¥" REM œ œ 84 0153 finna(84) = CHR$(&H0153) breyta(84) = "\œ" REM Œ Œ 85 0152 finna(85) = CHR$(&H0152) breyta(85) = "\Œ" REM « « 86 00AB finna(86) = CHR$(&H00AB) breyta(86) = "\«" REM » » 87 00BB finna(87) = CHR$(&H00BB) breyta(87) = "\»" REM ‹ ‹ ‹ 88 2039 finna(88) = CHR$(&H2039) breyta(88) = "\‹" REM › › › 89 203A finna(89) = CHR$(&H203A) breyta(89) = "\›" dim I For I = 1 To 89 args1(0).Name = "SearchItem.StyleFamily" args1(0).Value = 2 args1(1).Name = "SearchItem.CellType" args1(1).Value = 0 args1(2).Name = "SearchItem.RowDirection" args1(2).Value = true args1(3).Name = "SearchItem.AllTables" args1(3).Value = false args1(4).Name = "SearchItem.Backward" args1(4).Value = false args1(5).Name = "SearchItem.Pattern" args1(5).Value = false args1(6).Name = "SearchItem.Content" args1(6).Value = false args1(7).Name = "SearchItem.AsianOptions" args1(7).Value = false args1(8).Name = "SearchItem.AlgorithmType" args1(8).Value = 1 args1(9).Name = "SearchItem.SearchFlags" args1(9).Value = 65536 args1(10).Name = "SearchItem.SearchString" args1(10).Value = finna(I) args1(11).Name = "SearchItem.ReplaceString" args1(11).Value = breyta(I) args1(12).Name = "SearchItem.Locale" args1(12).Value = 255 args1(13).Name = "SearchItem.ChangedChars" args1(13).Value = 2 args1(14).Name = "SearchItem.DeletedChars" args1(14).Value = 2 args1(15).Name = "SearchItem.InsertedChars" args1(15).Value = 2 args1(16).Name = "SearchItem.TransliterateFlags" args1(16).Value = 1024 args1(17).Name = "SearchItem.Command" args1(17).Value = 3 args1(18).Name = "Quiet" args1(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1()) Next I end sub