REM ***** BASIC ***** Sub Main End Sub sub ic(ch as string) dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = ch dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub insertchar(ch, font) dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") dim args1(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = ch args1(1).Name = "FontName" args1(1).Value = font dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub lsu(ch): insertchar(ch, "Lucida Sans Unicode"): end sub sub os(ch): insertchar(ch, "OpenSymbol"): end sub sub ds(ch): insertchar(ch, "DejaVu Serif"): end sub sub left: ic("←"): end sub sub up: ic("↑"): end sub sub right: ic("→"): end sub sub down: ic("↓"): end sub sub revc: ic("ɔ"): end sub sub specu: ic("ʊ"): end sub sub th: ic("ð"): end sub sub zs: ic("Ʒ"): end sub sub sum: ic("∑"): end sub sub equiv: ic("≡"): end sub sub ae: ic("æ"): end sub sub mormel: ic("ə"): end sub sub bigxi: ic("Ξ"): end sub sub prod: ic("∏"): end sub sub alpha: ic("α"): end sub sub beta: ic("β"): end sub sub gamma: ic("γ"): end sub sub delta: ic("δ"): end sub sub epsilon:ic("ε"): end sub sub lambda: ic("λ"): end sub sub mu: ic("μ"): end sub sub xi: ic("ξ"): end sub sub pi: ic("π"): end sub sub rho: ic("ρ"): end sub sub tau: ic("τ"): end sub sub varphi: ic("φ"): end sub sub omega: ic("ω"): end sub sub pm: ic("±"): end sub sub partial:ic("∂"): end sub sub surd: ic("√"): end sub sub infty: ic("∞"): end sub sub int: ic("∫"): end sub sub approx: ic("≈"): end sub sub ne: ic("≠"): end sub sub leq: ic("≤"): end sub sub geq: ic("≥"): end sub sub specn: ic("ŋ"): end sub sub psi: ic("ψ"): end sub sub sigma: ic("σ"): end sub sub ldots: ic("…"): end sub sub nn: ic("ℕ"): end sub sub qq: ic("ℚ"): end sub sub rr: ic("ℝ"): end sub sub zz: ic("ℤ"): end sub sub iff: ic("⇔"): end sub sub all: ic("∀"): end sub sub exists: ic("∃"): end sub sub nabla: ic("∇"): end sub sub xxin: ic("∈"): end sub sub notin: ic("∉"): end sub sub ni: ic("∋"): end sub sub mp: ic("∓"): end sub sub xangle: ic("∡"): end sub sub yangle: ic("∢"): end sub sub notdiv: ic("∤"): end sub sub land: ic("∧"): end sub sub lor: ic("∨"): end sub sub cap: ic("∩"): end sub sub cup: ic("∪"): end sub sub oint: ic("∮"): end sub sub oint2: ic("∯"): end sub sub oint3: ic("∰"): end sub sub ll: ic("≪"): end sub sub gg: ic("≫"): end sub sub subset: ic("⊂"): end sub sub supset: ic("⊃"): end sub sub perp: ic("⊥"): end sub sub vdots: ic("⋮"): end sub sub cdots: ic("⋯"): end sub sub rddots: ic("⋰"): end sub sub ddots: ic("⋱"): end sub sub lceil: ic("⌈"): end sub sub rceil: ic("⌉"): end sub sub lfloor: ic("⌊"): end sub sub cc: ic("ℂ"): end sub sub rfloor: ic("⌋"): end sub sub rhd: ic("▷"): end sub sub lhd: ic("◁"): end sub sub phi: ic(""): end sub sub box: ic("□"): end sub sub lnot: ic("¬"): end sub sub modells:ic("╞"): end sub sub vdash: ic("├"): end sub sub dashv: ic("┤"): end sub sub hyphen: ic("–"): end sub sub qmbegin:ic("»"): end sub sub qmend: ic("«"): end sub sub qmlower:ic("„"): end sub sub qmupper:ic("”"): end sub sub nexists:ic("∄"): end sub sub UA9: ic("©"): end sub sub UAE: ic("®"): end sub sub UB6: ic("¶"): end sub sub UBC: ic("¼"): end sub sub UBD: ic("½"): end sub sub UBE: ic("¾"): end sub sub U210F: ic("ℏ"): end sub sub U2122: ic("™"): end sub sub U2195: ic("↕"): end sub sub U2196: ic("↖"): end sub sub U2197: ic("↗"): end sub sub U2198: ic("↘"): end sub sub U2199: ic("↙"): end sub sub U219A: ic("↚"): end sub sub U219B: ic("↛"): end sub sub U219C: ic("↜"): end sub sub U219D: ic("↝"): end sub sub U219E: ic("↞"): end sub sub U219F: ic("↟"): end sub sub U21A0: ic("↠"): end sub sub U21A1: ic("↡"): end sub sub U21B5: ic("↵"): end sub sub U21BC: ic("↼"): end sub sub U21BD: ic("↽"): end sub sub U21BE: ic("↾"): end sub sub U21BF: ic("↿"): end sub sub U21C0: ic("⇀"): end sub sub U21C1: ic("⇁"): end sub sub U21C2: ic("⇂"): end sub sub U21C3: ic("⇃"): end sub sub U21C4: ic("⇄"): end sub sub U21C5: ic("⇅"): end sub sub U21C6: ic("⇆"): end sub sub U21CB: ic("⇋"): end sub sub U21CC: ic("⇌"): end sub sub U21CD: ic("⇍"): end sub sub U21CE: ic("⇎"): end sub sub U21CF: ic("⇏"): end sub sub U21D1: ic("⇑"): end sub sub U21D3: ic("⇓"): end sub sub U21D5: ic("⇕"): end sub sub U220C: ic("∌"): end sub sub U221B: ic("∛"): end sub sub U221C: ic("∜"): end sub sub U2225: ic("∥"): end sub sub U2226: ic("∦"): end sub sub U2254: ic("≔"): end sub sub U228F: ic("⊏"): end sub sub U2290: ic("⊐"): end sub sub U2291: ic("⊑"): end sub sub U2292: ic("⊒"): end sub sub U25A0: ic("■"): end sub sub U25B2: ic("▲"): end sub sub U25BA: ic("►"): end sub sub U25BC: ic("▼"): end sub sub U25C4: ic("◄"): end sub sub U25C6: ic("◆"): end sub sub U25C7: ic("◇"): end sub sub U25CB: ic("○"): end sub sub U25CF: ic("●"): end sub sub U0108: ic("Ĉ"): end sub sub U0109: ic("ĉ"): end sub sub U011C: ic("Ĝ"): end sub sub U011D: ic("ĝ"): end sub sub U0124: ic("Ĥ"): end sub sub U0125: ic("ĥ"): end sub sub U0134: ic("Ĵ"): end sub sub U0135: ic("ĵ"): end sub sub U015C: ic("Ŝ"): end sub sub U015D: ic("ŝ"): end sub sub U01D3: ic("Ǔ"): end sub sub U01D4: ic("ǔ"): end sub sub biglambda: ic("Λ"): end sub sub biggamma: ic("Γ"): end sub sub bigomega: ic("Ω"): end sub sub triangle: ic("∆"): end sub sub leftarrow: ic("⇐"): end sub sub rightarrow: ic("⇒"): end sub sub nesubset: ic("⊄"): end sub sub nesupset: ic("⊅"): end sub sub subseteq: ic("⊆"): end sub sub supseteq: ic("⊇"): end sub sub nesubseteq: ic("⊈"): end sub sub nesupseteq: ic("⊉"): end sub sub bigoplus: ic("⊕"): end sub sub bigotimes: ic("⊗"): end sub sub rightangle: ic("⊾"): end sub sub emptyset: ic("∅"): end sub sub rmodells: ic("╡"): end sub sub bigtheta: ic("Θ"): end sub sub leftrightarrow: ic("↔"): end sub sub qmupperbegin: ic("“"): end sub