sub cc 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "ℂ" args1(1).Name = "FontName" args1(1).Value = "OpenSymbol" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub rfloor 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "⌋" args1(1).Name = "FontName" args1(1).Value = "OpenSymbol" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub rhd 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "▷" args1(1).Name = "FontName" args1(1).Value = "OpenSymbol" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub lhd 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "◁" args1(1).Name = "FontName" args1(1).Value = "OpenSymbol" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub phi 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "" args1(1).Name = "FontName" args1(1).Value = "OpenSymbol" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub box 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "" args1(1).Name = "FontName" args1(1).Value = "OpenSymbol" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub lnot 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "¬" args1(1).Name = "FontName" args1(1).Value = "Times New Roman" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub emptyset 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "∅" args1(1).Name = "FontName" args1(1).Value = "OpenSymbol" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub modells 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "╞" args1(1).Name = "FontName" args1(1).Value = "Times New Roman" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub rmodells 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "╡" args1(1).Name = "FontName" args1(1).Value = "Times New Roman" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub vdash 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "├" args1(1).Name = "FontName" args1(1).Value = "Times New Roman" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub dashv 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "┤" args1(1).Name = "FontName" args1(1).Value = "Times New Roman" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub bigtheta 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "Θ" args1(1).Name = "FontName" args1(1).Value = "Times New Roman" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub sub hyphen 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(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Symbols" args1(0).Value = "–" args1(1).Name = "FontName" args1(1).Value = "Times New Roman" dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args1()) end sub