Este codigo igual le sirve a alguien. Pueden gurardarselo a sus empleados
para configurar el OOo a su especificacion. Este codigo que inlcuyo
unicamente es para cambiar la opcion de guardado por default de ODF a
archivos de Microsoft.
Aunque no lo recomiendo y prefiero que usen ODF, si pueden sacarlos de
algun arreglo rapido:
REM Cambiar la configuracion de guardado predeterminado
REM usar MSO en vez de ODF
REM MSO sucks :-)
'=======================================
Sub change_defaultfilters
Dim oCP As Object
Dim oCUA As Object
Dim aProps(0) As New com.sun.star.beans.PropertyValue
Dim oElementNames As Object
oCP = CreateUnoService( _
"com.sun.star.configuration.ConfigurationProvider" )
aProps(0).Name = "nodepath"
aProps(0).Value = "/org.openoffice.Setup/Office/Factories"
oCUA = oCP.createInstanceWithArguments( _
"com.sun.star.configuration.ConfigurationUpdateAccess", aProps )
' settings of the factories are categorized by their name of the
document module
' settings needs internal filter name to change its default filter
If oCUA.hasByName("com.sun.star.text.TextDocument") Then
oTextNode = oCUA.getByName( "com.sun.star.text.TextDocument" )
oTextNode.setPropertyValue("ooSetupFactoryDefaultFilter", "MS Word 97")
End If
If oCUA.hasByName("com.sun.star.sheet.SpreadsheetDocument") Then
oTextNode = oCUA.getByName( "com.sun.star.sheet.SpreadsheetDocument" )
oTextNode.setPropertyValue("ooSetupFactoryDefaultFilter", "MS Excel
97")
End If
If oCUA.hasByName("com.sun.star.presentation.PresentationDocument") Then
oTextNode = oCUA.getByName(
"com.sun.star.presentation.PresentationDocument" )
oTextNode.setPropertyValue("ooSetupFactoryDefaultFilter", "MS
PowerPoint 97")
End If
oCUA.commitChanges()
End Sub
Cierren OOo y abranlo de nuevo y veran que estan los archivos de MSO por
default en Herramientas -> Opciones -> Guardar
--
Alexandro Colorado
CoLeader of OpenOffice.org ES
http://es.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
