OpenOffice.info

Code: Alles auswählen

sub View_DataSourceBrowser
	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 = "ViewDataSourceBrowser"
	args1(0).Value = true
	dispatcher.executeDispatch(document, ".uno:ViewDataSourceBrowser", "", 0, args1())
end sub