INTEGRATION: CWS c16v002_SRC680 (1.45.114); FILE MERGED

2007/12/03 14:43:56 bc 1.45.114.1: #b6633533# Replaced deprecated service call

wizards/source/importwizard/FilesModul.xba

@@ -41,7 +41,7 @@ Dim NewContentList() as String
 Dim XMLTemplateContentString as String
 Dim ApplIndex as Integer
 Dim bAssignFileName as Boolean
-	oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties")
+	oDocInfo = CreateUnoService("com.sun.star.document.StandaloneDocumentInfo")
 	bInterruptSearch = False
 	For i = 0 To MaxCollectIndex
 		SearchDir = PathCollection(i,0)