SHARE
TWEET

Untitled

a guest Oct 20th, 2017 100 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sub BlueSans
  2. rem ----------------------------------------------------------------------
  3. rem define variables
  4. dim document   as object
  5. dim dispatcher as object
  6. rem ----------------------------------------------------------------------
  7. rem get access to the document
  8. document   = ThisComponent.CurrentController.Frame
  9. dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  10.  
  11. rem ----------------------------------------------------------------------
  12. rem dispatcher.executeDispatch(document, ".uno:ChangeCaseRotateCase", "", 0, Array())
  13.  
  14. rem ----------------------------------------------------------------------
  15. rem dispatcher.executeDispatch(document, ".uno:ChangeCaseRotateCase", "", 0, Array())
  16.  
  17. rem ----------------------------------------------------------------------
  18. rem dispatcher.executeDispatch(document, ".uno:ChangeCaseRotateCase", "", 0, Array())
  19.  
  20. rem ----------------------------------------------------------------------
  21. dim args4(2) as new com.sun.star.beans.PropertyValue
  22. args4(0).Name = "Underline.LineStyle"
  23. args4(0).Value = 1
  24. args4(1).Name = "Underline.HasColor"
  25. args4(1).Value = false
  26. args4(2).Name = "Underline.Color"
  27. args4(2).Value = -1
  28.  
  29. dispatcher.executeDispatch(document, ".uno:Underline", "", 0, args4())
  30.  
  31. rem ----------------------------------------------------------------------
  32. rem dim args5(0) as new com.sun.star.beans.PropertyValue
  33. rem args5(0).Name = "Color"
  34. rem args5(0).Value = document.
  35.  
  36. rem dispatcher.executeDispatch(document, ".uno:Color", "", 0, args5())
  37.  
  38. rem ----------------------------------------------------------------------
  39. dim args6(4) as new com.sun.star.beans.PropertyValue
  40. args6(0).Name = "CharFontName.StyleName"
  41. args6(0).Value = ""
  42. args6(1).Name = "CharFontName.Pitch"
  43. args6(1).Value = 2
  44. args6(2).Name = "CharFontName.CharSet"
  45. args6(2).Value = 0
  46. args6(3).Name = "CharFontName.Family"
  47. args6(3).Value = 4
  48. args6(4).Name = "CharFontName.FamilyName"
  49. args6(4).Value = "Comic Sans MS"
  50.  
  51. dispatcher.executeDispatch(document, ".uno:CharFontName", "", 0, args6())
  52.  
  53.  
  54. end sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top