OpenOffice.info

Code: Alles auswählen

sub Speichern_als_vcs
	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(2) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "URL"
	args1(0).Value = "file:///C:/Terminplaner/Termine.vcs" 'Speichern als vcs-Datei
	args1(1).Name = "FilterName"
	args1(1).Value = "Text"
	args1(2).Name = "SelectionOnly" 
	args1(2).Value = true
	dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
	oDoc=thisComponent
	odoc.close(True) 'Das Dokument wird geschlossen
end sub

Code: Alles auswählen

   ..................
	next x
	sUrl = convertToURL("C:\Terminplaner\Termine.odt")
	vDoc=StarDesktop.loadComponentFromURL (sURL, "_blank", 63, Arg())
	odoc1=vDoc
	otext=vdoc.text
	ocursor=otext.createtextcursor()
	otext.insertString(ocursor,VCS_Daten_Anfang & VCS_Daten & VCS_Daten_Ende,false)
	Wait 1000	
	odoc1.store(True)
	Speichern_als_vcs 'Aufruf des Makros aus "Meine Makros"
End Sub

Code: Alles auswählen

odoc1.store(True)