#95469# Targetpath is now created if not existing

12 files changed, 129 insertions, 126 deletions

diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba
index 2d56a31fdfb8..ee378921dcab 100644
--- a/wizards/source/euro/AutoPilotRun.xba
+++ b/wizards/source/euro/AutoPilotRun.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="AutoPilotRun" script:language="StarBasic">Option Explicit
+ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="AutoPilotRun" script:language="StarBasic">Option Explicit
 
 Public SourceDir as String
 Public TargetDir as String
@@ -27,6 +27,7 @@ Public OpenProperties(1) as New com.sun.star.beans.PropertyValue
 Sub StartAutoPilot()
 Dim i As Integer
 	BasicLibraries.LoadLibrary(&quot;Tools&quot;)
+	BasicLibraries.LoadLibrary(&quot;ImportWizard&quot;)
 	If InitResources(&quot;Euro Converter&quot;, &quot;eur&quot;) Then
 		oDocInfo = CreateUnoService(&quot;com.sun.star.document.DocumentProperties&quot;)
 		oUcb = createUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
@@ -194,10 +195,14 @@ Sub SwapExtent()
 End Sub
 
 
-Sub	InitializeThirdStep()
+Function InitializeThirdStep() as Boolean
 Dim TextBoxText as String
 	Source = AssignFileName(DialogModel.txtSource.Text, DialogModel.lblSource.Label, True)
-	TargetDir = AssignFileName(DialogModel.txtTarget.Text, DialogModel.lblTarget.Label, False)
+	If CheckTextBoxPath(DialogModel.txtTarget, True, True, sMsgDLGTITLE, True) Then
+		TargetDir = AssignFileName(DialogModel.txtTarget.Text, DialogModel.lblTarget.Label, False)
+	Else
+		TargetDir = &quot;&quot;
+	End If
 	If Source &lt;&gt; &quot;&quot; And TargetDir &lt;&gt; &quot;&quot; Then
 		bRecursive = DialogModel.chkRecursive.State = 1
 		bDoUnprotect = DialogModel.chkProtect.State = 1
@@ -219,8 +224,11 @@ Dim TextBoxText as String
 		DialogModel.txtConfig.Text = TextBoxText
 	 	ToggleProgressStep()
 		DialogModel.cmdGoOn.Enabled = False 	
-	 End If
-End Sub
+		InitializeThirdStep() = True	
+	Else
+		InitializeThirdStep() = False
+	End If
+End Function
 
 
 Sub ToggleProgressStep(Optional aEvent as Object)
@@ -289,7 +297,6 @@ Dim sNoDirMessage as String
 			If bCheckFileType Then
 				sLocMimeType = GetRealFileContent(oDocInfo, sPath)
 				If DialogModel.chkTextDocuments.State = 1 Then
-&apos;Todo: Neue Resource aufsetzen mit Hinweis, dass Writer oder Calc Dokument ausgewählt werden muss
 					If (Instr(1, sLocMimeType, &quot;writer&quot;) = 0) And (Instr(1, sLocMimeType, &quot;calc&quot;) = 0) Then
 						Msgbox(sMsgFileInvalid, 48, sMsgDLGTITLE)
 						bIsValid = False						
@@ -332,11 +339,6 @@ Dim sPath as String
 		sPath = ConvertToUrl(Trim(DialogModel.txtSource.Text))
 		bDoEnable = oUcb.Exists(sPath)
 	End If
-	If bDoEnable Then
-		&apos; Check if Source is set correctly
-		sPath = ConvertToUrl(Trim(DialogModel.txtTarget.Text))
-		bDoEnable = oUcb.Exists(sPath)
-	End If
 	DialogModel.cmdGoOn.Enabled = bDoEnable
 End Sub
 
diff --git a/wizards/source/euro/Common.xba b/wizards/source/euro/Common.xba
index 0fcb07b30f22..8549ff1908d2 100644
--- a/wizards/source/euro/Common.xba
+++ b/wizards/source/euro/Common.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Common" script:language="StarBasic"> REM  *****  BASIC  *****
+ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Common" script:language="StarBasic"> REM  *****  BASIC  *****
 Public DialogModel as Object
 Public DialogConvert as Object
 Public DialogPassword as Object
@@ -189,9 +189,10 @@ Sub StartConversion()
 			End If
 		Case 2
 			bCancelTask = False
-			InitializeThirdStep()
-			ConvertDocuments()
-			bCancelTask = True
+			If InitializeThirdStep() Then
+				ConvertDocuments()
+				bCancelTask = True
+			End If
 		Case 3
 			DialogConvert.EndExecute()
 	End Select
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba
index fd45e2be09cc..8d14fac4efcc 100644
--- a/wizards/source/euro/ConvertRun.xba
+++ b/wizards/source/euro/ConvertRun.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ConvertRun" script:language="StarBasic">Option Explicit
+ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ConvertRun" script:language="StarBasic">Option Explicit
 
 Public oPreSelRange as Object
 
@@ -17,6 +17,8 @@ Sub Main()
 		bDoUnProtect = False
 		bPreSelected = True
 		oDocument = ThisComponent
+		Msgbox Vartype(oDocument)
+		Msgbox oDocument.CharLocale.Language &amp; &quot;;&quot; &amp; oDocument.CharLocale.Country
 		RetrieveDocumentObjects()											&apos; Statusline, SheetsCollection etc.
 		InitializeConverter(oDocument.CharLocale, 1)
 		GetPreSelectedRange()
diff --git a/wizards/source/euro/DlgConvert.xdl b/wizards/source/euro/DlgConvert.xdl
index 1c44ad984dc9..cba650a14489 100644
--- a/wizards/source/euro/DlgConvert.xdl
+++ b/wizards/source/euro/DlgConvert.xdl
@@ -1,77 +1,75 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
-<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DialogConvert" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210" dlg:page="3" dlg:help-url="HID:34660">
- <dlg:bulletinboard>
-  <dlg:button dlg:id="cmdCancel" dlg:tab-index="0" dlg:left="6" dlg:top="190" dlg:width="53" dlg:height="14" dlg:help-url="HID:34673" dlg:value="cmdCancel">
-   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Common.CancelTask" script:language="StarBasic"/>
-  </dlg:button>
-  <dlg:button dlg:id="cmdHelp" dlg:tab-index="1" dlg:left="63" dlg:top="190" dlg:width="53" dlg:height="14" dlg:tag="34674" dlg:value="cmdHelp" dlg:button-type="help"/>
-  <dlg:button dlg:id="cmdBack" dlg:tab-index="2" dlg:left="155" dlg:top="190" dlg:width="53" dlg:height="14" dlg:help-url="HID:34675" dlg:value="cmdBack">
-   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.PreviousStep" script:language="StarBasic"/>
-  </dlg:button>
-  <dlg:button dlg:id="cmdGoOn" dlg:tab-index="3" dlg:left="211" dlg:top="190" dlg:width="53" dlg:height="14" dlg:help-url="HID:34676" dlg:value="cmdGoOn">
-   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Common.StartConversion" script:language="StarBasic"/>
-  </dlg:button>
-  <dlg:radiogroup>
-   <dlg:radio dlg:id="optCellTemplates" dlg:tab-index="4" dlg:left="12" dlg:top="96" dlg:width="129" dlg:height="10" dlg:page="1" dlg:help-url="HID:34662" dlg:value="optCellTemplates">
-    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Soft.CreateStyleEnumeration" script:language="StarBasic"/>
-   </dlg:radio>
-   <dlg:radio dlg:id="optSheetRanges" dlg:tab-index="5" dlg:left="12" dlg:top="110" dlg:width="130" dlg:height="10" dlg:page="1" dlg:help-url="HID:34663" dlg:value="optSheetRanges">
-    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Hard.CreateRangeList" script:language="StarBasic"/>
-   </dlg:radio>
-   <dlg:radio dlg:id="optDocRanges" dlg:tab-index="6" dlg:left="12" dlg:top="124" dlg:width="130" dlg:height="10" dlg:page="1" dlg:help-url="HID:34664" dlg:value="optDocRanges">
-    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Hard.CreateRangeList" script:language="StarBasic"/>
-   </dlg:radio>
-   <dlg:radio dlg:id="optSelRange" dlg:tab-index="7" dlg:left="12" dlg:top="138" dlg:width="130" dlg:height="10" dlg:page="1" dlg:help-url="HID:34665" dlg:value="optSelRange">
-    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.ConvertRun.CheckRangeSelection" script:language="StarBasic"/>
-   </dlg:radio>
-  </dlg:radiogroup>
-  <dlg:text dlg:id="lblSelection" dlg:tab-index="8" dlg:left="170" dlg:top="84" dlg:width="73" dlg:height="8" dlg:page="1" dlg:value="lblSelection"/>
-  <dlg:menulist dlg:id="lstSelection" dlg:tab-index="9" dlg:left="170" dlg:top="96" dlg:width="90" dlg:height="52" dlg:page="1" dlg:help-url="HID:34666" dlg:multiselection="true">
-   <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="Euro.ConvertRun.SelectListItem" script:language="StarBasic"/>
-  </dlg:menulist>
-  <dlg:checkbox dlg:id="chkComplete" dlg:tab-index="10" dlg:left="12" dlg:top="43" dlg:width="129" dlg:height="10" dlg:page="1" dlg:help-url="HID:34661" dlg:value="chkComplete" dlg:checked="true">
-   <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="Euro.ConvertRun.RetrieveEnableValue" script:language="StarBasic"/>
-  </dlg:checkbox>
-  <dlg:text dlg:id="lblHint" dlg:tab-index="11" dlg:left="6" dlg:top="164" dlg:width="258" dlg:height="22" dlg:value="lblHint" dlg:multiline="true"/>
-  <dlg:textfield dlg:id="txtTarget" dlg:tab-index="12" dlg:left="80" dlg:top="143" dlg:width="165" dlg:height="12" dlg:page="2" dlg:help-url="HID:34672">
-   <script:event script:event-name="on-textchange" script:location="application" script:macro-name="Euro.AutoPilotRun.ToggleGoOnButton" script:language="StarBasic"/>
-  </dlg:textfield>
-  <dlg:button dlg:id="cmdCallTargetDialog" dlg:tab-index="13" dlg:left="249" dlg:top="142" dlg:width="15" dlg:height="14" dlg:page="2" dlg:help-url="HID:34678" dlg:value="...">
-   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.CallFolderPicker" script:language="StarBasic"/>
-  </dlg:button>
-  <dlg:text dlg:id="lblTarget" dlg:tab-index="14" dlg:left="6" dlg:top="145" dlg:width="73" dlg:height="8" dlg:page="2" dlg:value="lblTarget"/>
-  <dlg:checkbox dlg:id="chkProtect" dlg:tab-index="15" dlg:left="12" dlg:top="126" dlg:width="251" dlg:height="10" dlg:page="2" dlg:help-url="HID:34679" dlg:value="chkProtect" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="chkRecursive" dlg:tab-index="16" dlg:left="12" dlg:top="98" dlg:width="252" dlg:height="10" dlg:page="2" dlg:help-url="HID:34671" dlg:value="chkRecursive" dlg:checked="false"/>
-  <dlg:textfield dlg:id="txtSource" dlg:tab-index="17" dlg:left="80" dlg:top="82" dlg:width="165" dlg:height="12" dlg:page="2" dlg:help-url="HID:34670">
-   <script:event script:event-name="on-textchange" script:location="application" script:macro-name="Euro.AutoPilotRun.ToggleGoOnButton" script:language="StarBasic"/>
-  </dlg:textfield>
-  <dlg:button dlg:id="cmdCallSourceDialog" dlg:tab-index="18" dlg:left="249" dlg:top="81" dlg:width="15" dlg:height="14" dlg:page="2" dlg:help-url="HID:34677" dlg:value="...">
-   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.CallFilePicker" script:language="StarBasic"/>
-  </dlg:button>
-  <dlg:text dlg:id="lblSource" dlg:tab-index="19" dlg:left="6" dlg:top="84" dlg:width="73" dlg:height="8" dlg:page="2" dlg:value="lblSource"/>
-  <dlg:radiogroup>
-   <dlg:radio dlg:id="optSingleFile" dlg:tab-index="20" dlg:left="12" dlg:top="51" dlg:width="146" dlg:height="10" dlg:page="2" dlg:help-url="HID:34667" dlg:value="optSingleFile">
-    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.SwapExtent" script:language="StarBasic"/>
-   </dlg:radio>
-   <dlg:radio dlg:id="optWholeDir" dlg:tab-index="21" dlg:left="12" dlg:top="65" dlg:width="146" dlg:height="10" dlg:page="2" dlg:help-url="HID:34668" dlg:value="optWholeDir" dlg:checked="true">
-    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.SwapExtent" script:language="StarBasic"/>
-   </dlg:radio>
-  </dlg:radiogroup>
-  <dlg:text dlg:id="lblCurProgress" dlg:tab-index="22" dlg:left="16" dlg:top="130" dlg:width="181" dlg:height="8" dlg:page="3"/>
-  <dlg:text dlg:id="lblRetrieval" dlg:tab-index="23" dlg:left="9" dlg:top="119" dlg:width="178" dlg:height="8" dlg:page="3" dlg:value="lblRetrieval"/>
-  <dlg:textfield dlg:id="txtConfig" dlg:tab-index="24" dlg:left="6" dlg:top="50" dlg:width="258" dlg:height="55" dlg:page="3" dlg:vscroll="true" dlg:multiline="true" dlg:readonly="true"/>
-  <dlg:text dlg:id="lblConfig" dlg:tab-index="25" dlg:left="6" dlg:top="39" dlg:width="94" dlg:height="8" dlg:page="3" dlg:value="lblConfig"/>
-  <dlg:text dlg:id="lblCurDocument" dlg:tab-index="26" dlg:left="16" dlg:top="141" dlg:width="208" dlg:height="8" dlg:page="3"/>
-  <dlg:img dlg:id="imgPreview" dlg:tab-index="27" dlg:left="6" dlg:top="6" dlg:width="258" dlg:height="26" dlg:src="file:///D:/office630np/share/template/german/wizard/bitmap/euro_2.bmp"/>
-  <dlg:text dlg:id="lblCurrencies" dlg:tab-index="28" dlg:left="170" dlg:top="39" dlg:width="89" dlg:height="8" dlg:value="lblCurrencies"/>
-  <dlg:menulist dlg:id="lstCurrencies" dlg:tab-index="29" dlg:left="170" dlg:top="51" dlg:width="90" dlg:height="12" dlg:help-url="HID:34669" dlg:spin="true" dlg:linecount="12">
-   <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="Euro.ConvertRun.SelectCurrency" script:language="StarBasic"/>
-  </dlg:menulist>
-  <dlg:checkbox dlg:id="chkTextDocuments" dlg:tab-index="30" dlg:left="12" dlg:top="112" dlg:width="251" dlg:height="10" dlg:page="2" dlg:help-url="HID:34680" dlg:value="chkTextDocuments" dlg:checked="false"/>
-  <dlg:fixedline dlg:id="hlnSelection" dlg:tab-index="31" dlg:left="7" dlg:top="72" dlg:width="258" dlg:height="8" dlg:page="1" dlg:value="hlnSelection"/>
-  <dlg:fixedline dlg:id="hlnExtent" dlg:tab-index="32" dlg:left="6" dlg:top="39" dlg:width="156" dlg:height="8" dlg:page="2" dlg:value="hlnExtent"/>
-  <dlg:fixedline dlg:id="hlnProgress" dlg:tab-index="33" dlg:left="6" dlg:top="108" dlg:width="258" dlg:height="8" dlg:page="3" dlg:value="hlnProgress"/>
-  <dlg:fixedline dlg:id="FixedLine1" dlg:tab-index="34" dlg:left="6" dlg:top="152" dlg:width="258" dlg:height="9" dlg:page="1"/>
- </dlg:bulletinboard>
-</dlg:window>
\ No newline at end of file
+ <dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DialogConvert" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210" dlg:page="3" dlg:help-url="HID:34660">
+  <dlg:bulletinboard>
+   <dlg:button dlg:id="cmdCancel" dlg:tab-index="0" dlg:left="6" dlg:top="190" dlg:width="53" dlg:height="14" dlg:help-url="HID:34673" dlg:value="cmdCancel">
+    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Common.CancelTask" script:language="StarBasic"/>
+   </dlg:button>
+   <dlg:button dlg:id="cmdHelp" dlg:tab-index="1" dlg:left="63" dlg:top="190" dlg:width="53" dlg:height="14" dlg:tag="34674" dlg:value="cmdHelp" dlg:button-type="help"/>
+   <dlg:button dlg:id="cmdBack" dlg:tab-index="2" dlg:left="155" dlg:top="190" dlg:width="53" dlg:height="14" dlg:help-url="HID:34675" dlg:value="cmdBack">
+    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.PreviousStep" script:language="StarBasic"/>
+   </dlg:button>
+   <dlg:button dlg:id="cmdGoOn" dlg:tab-index="3" dlg:left="211" dlg:top="190" dlg:width="53" dlg:height="14" dlg:help-url="HID:34676" dlg:value="cmdGoOn">
+    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Common.StartConversion" script:language="StarBasic"/>
+   </dlg:button>
+   <dlg:radiogroup>
+    <dlg:radio dlg:id="optCellTemplates" dlg:tab-index="4" dlg:left="12" dlg:top="96" dlg:width="129" dlg:height="10" dlg:page="1" dlg:help-url="HID:34662" dlg:value="optCellTemplates">
+     <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Soft.CreateStyleEnumeration" script:language="StarBasic"/>
+    </dlg:radio>
+    <dlg:radio dlg:id="optSheetRanges" dlg:tab-index="5" dlg:left="12" dlg:top="110" dlg:width="130" dlg:height="10" dlg:page="1" dlg:help-url="HID:34663" dlg:value="optSheetRanges">
+     <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Hard.CreateRangeList" script:language="StarBasic"/>
+    </dlg:radio>
+    <dlg:radio dlg:id="optDocRanges" dlg:tab-index="6" dlg:left="12" dlg:top="124" dlg:width="130" dlg:height="10" dlg:page="1" dlg:help-url="HID:34664" dlg:value="optDocRanges">
+     <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Hard.CreateRangeList" script:language="StarBasic"/>
+    </dlg:radio>
+    <dlg:radio dlg:id="optSelRange" dlg:tab-index="7" dlg:left="12" dlg:top="138" dlg:width="130" dlg:height="10" dlg:page="1" dlg:help-url="HID:34665" dlg:value="optSelRange">
+     <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.ConvertRun.CheckRangeSelection" script:language="StarBasic"/>
+    </dlg:radio>
+   </dlg:radiogroup>
+   <dlg:text dlg:id="lblSelection" dlg:tab-index="8" dlg:left="170" dlg:top="84" dlg:width="73" dlg:height="8" dlg:page="1" dlg:value="lblSelection"/>
+   <dlg:menulist dlg:id="lstSelection" dlg:tab-index="9" dlg:left="170" dlg:top="96" dlg:width="90" dlg:height="52" dlg:page="1" dlg:help-url="HID:34666" dlg:multiselection="true">
+    <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="Euro.ConvertRun.SelectListItem" script:language="StarBasic"/>
+   </dlg:menulist>
+   <dlg:checkbox dlg:id="chkComplete" dlg:tab-index="10" dlg:left="12" dlg:top="43" dlg:width="129" dlg:height="10" dlg:page="1" dlg:help-url="HID:34661" dlg:value="chkComplete" dlg:checked="true">
+    <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="Euro.ConvertRun.RetrieveEnableValue" script:language="StarBasic"/>
+   </dlg:checkbox>
+   <dlg:text dlg:id="lblHint" dlg:tab-index="11" dlg:left="6" dlg:top="164" dlg:width="258" dlg:height="22" dlg:value="lblHint" dlg:multiline="true"/>
+   <dlg:textfield dlg:id="txtTarget" dlg:tab-index="12" dlg:left="80" dlg:top="143" dlg:width="165" dlg:height="12" dlg:page="2" dlg:help-url="HID:34672"/>
+   <dlg:button dlg:id="cmdCallTargetDialog" dlg:tab-index="13" dlg:left="249" dlg:top="142" dlg:width="15" dlg:height="14" dlg:page="2" dlg:help-url="HID:34678" dlg:value="...">
+    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.CallFolderPicker" script:language="StarBasic"/>
+   </dlg:button>
+   <dlg:text dlg:id="lblTarget" dlg:tab-index="14" dlg:left="6" dlg:top="145" dlg:width="73" dlg:height="8" dlg:page="2" dlg:value="lblTarget"/>
+   <dlg:checkbox dlg:id="chkProtect" dlg:tab-index="15" dlg:left="12" dlg:top="126" dlg:width="251" dlg:height="10" dlg:page="2" dlg:help-url="HID:34679" dlg:value="chkProtect" dlg:checked="false"/>
+   <dlg:checkbox dlg:id="chkRecursive" dlg:tab-index="16" dlg:left="12" dlg:top="98" dlg:width="252" dlg:height="10" dlg:page="2" dlg:help-url="HID:34671" dlg:value="chkRecursive" dlg:checked="false"/>
+   <dlg:textfield dlg:id="txtSource" dlg:tab-index="17" dlg:left="80" dlg:top="82" dlg:width="165" dlg:height="12" dlg:page="2" dlg:help-url="HID:34670">
+    <script:event script:event-name="on-textchange" script:location="application" script:macro-name="Euro.AutoPilotRun.ToggleGoOnButton" script:language="StarBasic"/>
+   </dlg:textfield>
+   <dlg:button dlg:id="cmdCallSourceDialog" dlg:tab-index="18" dlg:left="249" dlg:top="81" dlg:width="15" dlg:height="14" dlg:page="2" dlg:help-url="HID:34677" dlg:value="...">
+    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.CallFilePicker" script:language="StarBasic"/>
+   </dlg:button>
+   <dlg:text dlg:id="lblSource" dlg:tab-index="19" dlg:left="6" dlg:top="84" dlg:width="73" dlg:height="8" dlg:page="2" dlg:value="lblSource"/>
+   <dlg:radiogroup>
+    <dlg:radio dlg:id="optSingleFile" dlg:tab-index="20" dlg:left="12" dlg:top="51" dlg:width="146" dlg:height="10" dlg:page="2" dlg:help-url="HID:34667" dlg:value="optSingleFile">
+     <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.SwapExtent" script:language="StarBasic"/>
+    </dlg:radio>
+    <dlg:radio dlg:id="optWholeDir" dlg:tab-index="21" dlg:left="12" dlg:top="65" dlg:width="146" dlg:height="10" dlg:page="2" dlg:help-url="HID:34668" dlg:value="optWholeDir" dlg:checked="true">
+     <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.AutoPilotRun.SwapExtent" script:language="StarBasic"/>
+    </dlg:radio>
+   </dlg:radiogroup>
+   <dlg:text dlg:id="lblCurProgress" dlg:tab-index="22" dlg:left="16" dlg:top="130" dlg:width="181" dlg:height="8" dlg:page="3"/>
+   <dlg:text dlg:id="lblRetrieval" dlg:tab-index="23" dlg:left="9" dlg:top="119" dlg:width="178" dlg:height="8" dlg:page="3" dlg:value="lblRetrieval"/>
+   <dlg:textfield dlg:id="txtConfig" dlg:tab-index="24" dlg:left="6" dlg:top="50" dlg:width="258" dlg:height="55" dlg:page="3" dlg:vscroll="true" dlg:multiline="true" dlg:readonly="true"/>
+   <dlg:text dlg:id="lblConfig" dlg:tab-index="25" dlg:left="6" dlg:top="39" dlg:width="94" dlg:height="8" dlg:page="3" dlg:value="lblConfig"/>
+   <dlg:text dlg:id="lblCurDocument" dlg:tab-index="26" dlg:left="16" dlg:top="141" dlg:width="208" dlg:height="8" dlg:page="3"/>
+   <dlg:img dlg:id="imgPreview" dlg:tab-index="27" dlg:left="6" dlg:top="6" dlg:width="258" dlg:height="26" dlg:src="file:///D:/office630np/share/template/german/wizard/bitmap/euro_2.bmp"/>
+   <dlg:text dlg:id="lblCurrencies" dlg:tab-index="28" dlg:left="170" dlg:top="39" dlg:width="89" dlg:height="8" dlg:value="lblCurrencies"/>
+   <dlg:menulist dlg:id="lstCurrencies" dlg:tab-index="29" dlg:left="170" dlg:top="51" dlg:width="90" dlg:height="12" dlg:help-url="HID:34669" dlg:spin="true" dlg:linecount="12">
+    <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="Euro.ConvertRun.SelectCurrency" script:language="StarBasic"/>
+   </dlg:menulist>
+   <dlg:checkbox dlg:id="chkTextDocuments" dlg:tab-index="30" dlg:left="12" dlg:top="112" dlg:width="251" dlg:height="10" dlg:page="2" dlg:help-url="HID:34680" dlg:value="chkTextDocuments" dlg:checked="false"/>
+   <dlg:fixedline dlg:id="hlnSelection" dlg:tab-index="31" dlg:left="7" dlg:top="72" dlg:width="258" dlg:height="8" dlg:page="1" dlg:value="hlnSelection"/>
+   <dlg:fixedline dlg:id="hlnExtent" dlg:tab-index="32" dlg:left="6" dlg:top="39" dlg:width="156" dlg:height="8" dlg:page="2" dlg:value="hlnExtent"/>
+   <dlg:fixedline dlg:id="hlnProgress" dlg:tab-index="33" dlg:left="6" dlg:top="108" dlg:width="258" dlg:height="8" dlg:page="3" dlg:value="hlnProgress"/>
+   <dlg:fixedline dlg:id="FixedLine1" dlg:tab-index="34" dlg:left="6" dlg:top="152" dlg:width="258" dlg:height="9" dlg:page="1"/>
+  </dlg:bulletinboard>
+ </dlg:window>
\ No newline at end of file
diff --git a/wizards/source/euro/DlgPassword.xdl b/wizards/source/euro/DlgPassword.xdl
index 3a106a259359..44dfd5acdee1 100644
--- a/wizards/source/euro/DlgPassword.xdl
+++ b/wizards/source/euro/DlgPassword.xdl
@@ -1,15 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
-<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DlgPassword" dlg:title="DlgPassword" dlg:left="77" dlg:top="93" dlg:width="310" dlg:height="65">
- <dlg:bulletinboard>
-  <dlg:button dlg:id="cmdGoOn" dlg:tab-index="0" dlg:left="251" dlg:top="6" dlg:width="53" dlg:height="14" dlg:help-url="HID:34690" dlg:value="cmdGoOn">
-   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Protect.ReadPassword" script:language="StarBasic"/>
-  </dlg:button>
-  <dlg:button dlg:id="cmdCancel" dlg:tab-index="1" dlg:left="251" dlg:top="24" dlg:width="53" dlg:height="14" dlg:help-url="HID:34691" dlg:value="cmdCancel">
-   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Protect.RejectPassword" script:language="StarBasic"/>
-  </dlg:button>
-  <dlg:button dlg:id="cmdHelp" dlg:tab-index="2" dlg:left="251" dlg:top="45" dlg:width="53" dlg:height="14" dlg:tag="34692" dlg:value="cmdHelp" dlg:button-type="help"/>
-  <dlg:textfield dlg:id="txtPassword" dlg:tab-index="3" dlg:left="11" dlg:top="18" dlg:width="232" dlg:height="12" dlg:help-url="HID:34693" dlg:echochar="*"/>
-  <dlg:fixedline dlg:id="hlnPassword" dlg:tab-index="4" dlg:left="6" dlg:top="6" dlg:width="238" dlg:height="8" dlg:value="hlnPassword"/>
- </dlg:bulletinboard>
-</dlg:window>
\ No newline at end of file
+ <dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DlgPassword" dlg:title="DlgPassword" dlg:left="77" dlg:top="93" dlg:width="310" dlg:height="65">
+  <dlg:bulletinboard>
+   <dlg:button dlg:id="cmdGoOn" dlg:tab-index="0" dlg:left="251" dlg:top="6" dlg:width="53" dlg:height="14" dlg:help-url="HID:34690" dlg:value="cmdGoOn">
+    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Protect.ReadPassword" script:language="StarBasic"/>
+   </dlg:button>
+   <dlg:button dlg:id="cmdCancel" dlg:tab-index="1" dlg:left="251" dlg:top="24" dlg:width="53" dlg:height="14" dlg:help-url="HID:34691" dlg:value="cmdCancel">
+    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Euro.Protect.RejectPassword" script:language="StarBasic"/>
+   </dlg:button>
+   <dlg:button dlg:id="cmdHelp" dlg:tab-index="2" dlg:left="251" dlg:top="45" dlg:width="53" dlg:height="14" dlg:tag="34692" dlg:value="cmdHelp" dlg:button-type="help"/>
+   <dlg:textfield dlg:id="txtPassword" dlg:tab-index="3" dlg:left="11" dlg:top="18" dlg:width="232" dlg:height="12" dlg:help-url="HID:34693" dlg:echochar="*"/>
+   <dlg:fixedline dlg:id="hlnPassword" dlg:tab-index="4" dlg:left="6" dlg:top="6" dlg:width="238" dlg:height="8" dlg:value="hlnPassword"/>
+  </dlg:bulletinboard>
+ </dlg:window>
\ No newline at end of file
diff --git a/wizards/source/euro/Hard.xba b/wizards/source/euro/Hard.xba
index db22d2bde95b..16e0d0e084bd 100644
--- a/wizards/source/euro/Hard.xba
+++ b/wizards/source/euro/Hard.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Hard" script:language="StarBasic">REM  *****  BASIC  *****
+ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Hard" script:language="StarBasic">REM  *****  BASIC  *****
 Option Explicit
 &apos;ToDo: Währung wechseln und dann sehen, ob die Listbox mit den neuen Ranges aufgefrischt wird
 
diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba
index 0b6790bd597a..9885adebd733 100644
--- a/wizards/source/euro/Init.xba
+++ b/wizards/source/euro/Init.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Init" script:language="StarBasic">Option Explicit
+ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Init" script:language="StarBasic">Option Explicit
 REM  *****  BASIC  *****
 
 &apos; Zu diskutieren:
@@ -156,7 +156,6 @@ Sub InitializeResources()
 		.cmdGoOn.Label =  sGOON
 		.lblHint.Label =  GetResText(1004)
 		.lblCurrencies.Label = GetResText(1006)
-&apos; Todo: Dieses Model später am Control unsichtbar machen	
 		If .Step = 1 Then
 			.chkComplete.Label = GetResText(1100)
 			.hlnSelection.Label = GetResText(1101)
@@ -171,7 +170,8 @@ Sub InitializeResources()
 			.optSingleFile.Label = GetResText(1201) &apos;&quot;Einzelnes StarOffice -Dokument&quot;&apos;GetResText(1201)
  			.optWholeDir.Label = GetResText(1202)
  			.chkProtect.Label = GetResText(1207)
- 			.chkTextDocuments.Label = GetResText(1210) 	&apos; &quot;Auch Feldbefehle und Tabellen in Textdokumenten konvertieren&quot;
+ 			.chkTextDocuments.Label = GetResText(1210) 	&apos; &quot;Auch Feldbefehle und Tabellen in Textdokumenten konvertieren&quot;&apos; Todo: Dieses Model später am Control unsichtbar machen	
+
 			sSOURCEFILE = GetResText(1203)
 			sSOURCEDIR = GetResText(1204)
  			.lblSource.Label = sSOURCEDIR
diff --git a/wizards/source/euro/Protect.xba b/wizards/source/euro/Protect.xba
index cc7013677574..9efcfa3587c0 100644
--- a/wizards/source/euro/Protect.xba
+++ b/wizards/source/euro/Protect.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Protect" script:language="StarBasic">REM  *****  BASIC  *****
+ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Protect" script:language="StarBasic">REM  *****  BASIC  *****
 Option Explicit
 
 Public PWIndex as Integer
diff --git a/wizards/source/euro/Soft.xba b/wizards/source/euro/Soft.xba
index 7db87ecc183e..bf11a5584d2a 100644
--- a/wizards/source/euro/Soft.xba
+++ b/wizards/source/euro/Soft.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Soft" script:language="StarBasic">Option Explicit
+ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Soft" script:language="StarBasic">Option Explicit
 REM  *****  BASIC  *****
 
 
@@ -22,7 +22,7 @@ Dim Stylename as String
 	For m = 0 To oStyles.count-1
 		oStyle = oStyles.GetbyIndex(m)
 		StyleName = oStyle.Name
-		If CheckFormatType(oStyle) Then 
+		If CheckFormatType(oStyle) Then
 			If Not bAddToListBox Then
 				AddSingleItemToListbox(DialogModel.lstSelection, Stylename)
 			Else 
diff --git a/wizards/source/euro/Writer.xba b/wizards/source/euro/Writer.xba
index 17978b0402b9..3c5999796331 100644
--- a/wizards/source/euro/Writer.xba
+++ b/wizards/source/euro/Writer.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Writer" script:language="StarBasic">REM  *****  BASIC  *****
+ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Writer" script:language="StarBasic">REM  *****  BASIC  *****
 
 
 Sub ConvertWriterTables()
diff --git a/wizards/source/euro/dialog.xlb b/wizards/source/euro/dialog.xlb
index 296b542d5bcb..0ba5f21f27a3 100644
--- a/wizards/source/euro/dialog.xlb
+++ b/wizards/source/euro/dialog.xlb
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
-<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Euro" library:readonly="false" library:passwordprotected="false">
- <library:element library:name="DlgConvert"/>
- <library:element library:name="DlgPassword"/>
-</library:library>
\ No newline at end of file
+ <library:library xmlns:library="http://openoffice.org/2000/library" library:name="Euro" library:readonly="false" library:passwordprotected="false">
+  <library:element library:name="DlgConvert"/>
+  <library:element library:name="DlgPassword"/>
+ </library:library>
\ No newline at end of file
diff --git a/wizards/source/euro/script.xlb b/wizards/source/euro/script.xlb
index 02b3d34e92e4..05443e653f3b 100644
--- a/wizards/source/euro/script.xlb
+++ b/wizards/source/euro/script.xlb
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
-<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Euro" library:readonly="false" library:passwordprotected="false">
- <library:element library:name="ConvertRun"/>
- <library:element library:name="AutoPilotRun"/>
- <library:element library:name="Hard"/>
- <library:element library:name="Soft"/>
- <library:element library:name="Init"/>
- <library:element library:name="Common"/>
- <library:element library:name="Writer"/>
- <library:element library:name="Protect"/>
-</library:library>
\ No newline at end of file
+ <library:library xmlns:library="http://openoffice.org/2000/library" library:name="Euro" library:readonly="false" library:passwordprotected="false">
+  <library:element library:name="ConvertRun"/>
+  <library:element library:name="AutoPilotRun"/>
+  <library:element library:name="Hard"/>
+  <library:element library:name="Soft"/>
+  <library:element library:name="Init"/>
+  <library:element library:name="Common"/>
+  <library:element library:name="Writer"/>
+  <library:element library:name="Protect"/>
+ </library:library>
\ No newline at end of file