diff options
Diffstat (limited to 'wizards/source/euro/AutoPilotRun.xba')
| -rw-r--r-- | wizards/source/euro/AutoPilotRun.xba | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index 052d71c2e27e..6c5adb9ea64a 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -17,7 +17,6 @@ Public DoUnprotect as Integer Public Password as String Public DocIndex as Integer Public oPathSettings as Object -Public oDocInfo as Object Public oUcb as Object Public TotDocCount as Integer Public sTotDocCount as String @@ -30,7 +29,6 @@ Dim oFactoryKey as Object BasicLibraries.LoadLibrary("Tools") BasicLibraries.LoadLibrary("ImportWizard") If InitResources("Euro Converter", "eur") Then - oDocInfo = CreateUnoService("com.sun.star.document.StandaloneDocumentInfo") oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") oLocale = GetStarOfficeLocale() InitializeConverter(oLocale, 2) @@ -303,7 +301,7 @@ Dim sNoDirMessage as String If bIsValid Then If DialogModel.optSingleFile.State = 1 Then If bCheckFileType Then - sLocMimeType = GetRealFileContent(oDocInfo, sPath) + sLocMimeType = GetRealFileContent(sPath) If DialogModel.chkTextDocuments.State = 1 Then If (Instr(1, sLocMimeType, "text") = 0) And (Instr(1, sLocMimeType, "calc") = 0) Then Msgbox(sMsgFileInvalid, 48, sMsgDLGTITLE) @@ -408,4 +406,4 @@ Sub PreviousStep() DialogModel.cmdGoOn.Label = sGOON DialogModel.cmdCancel.Label = sCANCEL End Sub -</script:module>
\ No newline at end of file +</script:module> |