[USERS-SLOOO] Kako shraniti datoteko z imenom iz prvih nekaj besed besedila

[Vito Smolej]

sub ShraniPodImenomIzZacetkaBesedila

   const root = "file:///I:/arc/"
   dim ObjDocument as Object
   dim objText as object
   dim MojeIme as string
    
   rem
   ----------------------------------------------------------------------
   Objdocument = ThisComponent.CurrentController.Frame
   objText = ObjDocument.text
   MojeIme = left(ObjText.GetString,20)

   rem
   ----------------------------------------------------------------------
   dim args(2) as new com.sun.star.beans.PropertyValue
   args(0).Name = "URL"
   args(0).Value = Root & MojeIme
   args(1).Name = "FilterName"
   args(1).Value = "Writer8"

   dim dispatcher as object
   dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   dispatcher.executeDispatch(Objdocument, ".uno:SaveAs", "", 0, args())

end sub


-----------

lep pozdrav

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]