INTEGRATION: CWS c16v002_SRC680 (1.26.134); FILE MERGED

2007/12/03 14:41:15 bc 1.26.134.1: #b6633533# Replaced deprecated service call

wizards/source/euro/AutoPilotRun.xba

@@ -30,7 +30,7 @@ Dim oFactoryKey as Object
 	BasicLibraries.LoadLibrary("Tools")
 	BasicLibraries.LoadLibrary("ImportWizard")
 	If InitResources("Euro Converter", "eur") Then
-		oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties")
+		oDocInfo = CreateUnoService("com.sun.star.document.StandaloneDocumentInfo")
 		oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
 		oLocale = GetStarOfficeLocale()
 		InitializeConverter(oLocale, 2)