Sida 1 av 1

Problem med konvertering av dokument i OpenOffice!

Postat: 18 sep 2007, 16:00
av ZX Spectrum
Jag tänkte konvertera min doc-filer till odt-filer med Openoffice idag, men får detta felmeddelande när jag ska köra guiden.
"Otillåtet värde eller datatyp. Indexet ligger utanför definierat intervall"
och så kommer denna kod upp i en ruta som heter "Makron och dialogrutor för OpenOffice.Org.ImportWizard":

Kod: Markera allt

Option Explicit

Public sMSTemplateCheckbox(2) As String
Public sMSDocumentCheckbox(2) As String
Public sSODocumentCheckbox(4) As String
Public sSOHelperdocuments(1,1) As String
Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String
Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String
Public sTemplateGroupName As String
Public sSearchInSubDir as String
Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String
Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String
Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String
Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String
Public sImportLabel As String, sExportLabel As String
Public SOApplicationName(5) As String
Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String
Public sSumInclusiveSubDir As String, sSumSaveDocuments As String
Public sSummaryHeader As String
Public sWelcometextLabel1 As String, sWelcometextLabel2 As String,  sWelcometextLabel3 As String
Public sBeginButton As String, sMsgDirNotThere As String
Public sQueryForNewCreation As String, sPathError3 As String
Public sNoDirCreation As String
Public sProgressMoreDocs As String, sProgressMoreTemplates as String
Public sFileExists As String, sMorePathsError3 As String
Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String
Public sRTErrorDesc As String, sRTErrorHeader As String
Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String
Public sProgressFound as String, sProgresspage_5 as String
Public sContainerName(1) as String
Public sReady as String, sTitle as String
Public sCloseButton as String
Public sSourceDocuments as String
Public sTargetDocuments as String
Public sSumSODocuments(4) as String
Public sSumSOTemplates(4) as String
Public sSumMSDocuments(3) as String
Public sSumMSTemplates(3) as String
Public ModuleList(3) as String
Public sLogSummary as String
Public sReeditMacro as String
Public sOverwriteallFiles as String
Public scouldnotopenDocument as String
Public sCurcouldnotopenDocument as String
Public scouldnotsaveDocument as String
Public sCurcouldnotsaveDocument as String


Sub LoadLanguage()
	If InitResources("ImportWizard","imp") then
		sHelpButton = GetResText(1000)
		sCancelButton = GetResText(1001)
		sBackButton = GetResText(1002)
		sNextButton = GetResText(1003)
		sBeginButton = GetResText(1004)
		sCloseButton = GetResText(1005)
		
		sWelcometextLabel1 = ReplaceString(GetResText(1006), GetProductName(),"%PRODUCTNAME")
		sWelcometextLabel2 = GetResText(1007)
		sWelcometextLabel3 = GetResText(1008)

		' Microsoft Documents
		GetApplResourceArray(1009, 3, sMSTemplateCheckBox())

		' DocumentCheckbox- Captions
		GetApplResourceArray(1012, 3, sMSDocumentCheckBox())

		' DocumentCheckbox- Captions
		GetApplResourceArray(2013, 5, sSODocumentCheckBox())

		'StarOffice Applicationnames

		sSOHelperDocuments(0,0) = GetResText(2017)
		sSOHelperDocuments(0,1) = "com.sun.star.text.GlobalDocument"
		sSOHelperDocuments(1,0) = GetResText(2018)
		sSOHelperDocuments(1,1) = "com.sun.star.formula.FormulaProperties"
		
		GetApplResourceArray(2017,2, sSOHelperDocuments())		
		
		sContainerName(0) = GetResText(1030)
		' Note: for the version 5.2 there was no Productname "StarSuite"
		sContainerName(1) = "StarOffice"
	
		sSummaryHeader = GetResText(1031)

		sTemplateGroupName = GetResText(1036)

		sProgressMoreDocs = GetResText(1041)
		sProgressMoreTemplates = GetResText(1042)
		sNoDirCreation = GetResText(1050)
		sMsgDirNotThere = GetResText(1051)
		sQueryForNewCreation = GetResText(1052)
		sFileExists = GetResText(1053)
		sMorePathsError3 = GetResText(1054)
		sConvertError1 = GetResText(1055)
		sConvertError2 = GetResText(1056)
		sRTErrorDesc = GetResText(1057)
		sRTErrorHeader = GetResText(1058)
		sOverwriteallFiles = GetResText(1070)
		sReeditMacro = GetResText(1071)
		scouldnotsaveDocument = GetResText(1072)		
		scouldnotopenDocument = GetResText(1073)
		sPathDialogMessage = GetResText(1080)
		sTitle = GetResText(1081)

		sProgressPage_1 = GetResText(1090)
		sProgressPage_2 = GetResText(1091)
		sProgressPage_3 = GetResText(1092)
		sProgressFound = GetResText(1093)
		sProgressPage_5 = GetResText(1094)
		sReady = GetResText(1100)
		sSourceDocuments = GetResText(2030)
		sTargetDocuments = GetResText(2031)
		sLogSummary = GetResText(2034)
		sSumInclusiveSubDir = GetResText(3000)
		sSumSaveDocuments = GetResText(3001)
		'StarOffice Applicationnames
		GetApplResourceArray(3100, 4, sSumSODocuments())
		GetApplResourceArray(3110, 4, sSumSOTemplates())
		GetApplResourceArray(3200, 3, sSumMSDocuments())
		GetApplResourceArray(3210, 3, sSumMSTemplates())
		With ImportDialog
			sImportLabel = GetResText(1033)
			sExportLabel = GetResText(1034)
			sSearchInSubDir = GetResText(1022)
			.chkTemplateSearchSubDir.Label = sSearchInSubDir
			.lblDocumentImport.Label = sImportLabel
			.lblDocumentExport.Label = sExportLabel
			.chkDocumentSearchSubDir.Label = sSearchInSubDir
			.lblTemplateImport.Label = sImportLabel
			.lblTemplateExport.Label = sExportLabel
			.chkLogfile.Label = GetResText(2032)
			.chkLogfile.Helptext = GetResText(2033)
			Dim Blabla as String
			blabla = GetResText(1072)
			.cmdShowLogFile.Label = GetResText(2035)
		End With
		ModuleList(0) = "com.sun.star.text.TextDocument"
		ModuleList(1) = "com.sun.star.sheet.SpreadsheetDocument"
		ModuleList(2) = "com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument"
		ModuleList(3) = "com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument"
	End If
End Sub


Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
Dim i as Integer
Dim a as Integer
	a = 0
	For i = StartResIndex To StartResIndex + Count-1
		BigArray(a) = GetResText(i)
		a = a + 1
	Next			
End Sub
Raden i slutet av skriptet markeras vid felmeddelandet, dvs. BigArray(a) = GetResText(i)
Är det något som jag kan ändra och i så fall vilket värde behöver jag?

SV: Problem med konvertering av dokument i OpenOffice!

Postat: 18 sep 2007, 17:43
av ZX Spectrum
Ingen som har någon rekommendation? Fungerade för mig för c:a 6 månader sen.
Kan det ha med den nya versionen av OpenOffice att göra?

SV: Problem med konvertering av dokument i OpenOffice!

Postat: 19 sep 2007, 00:03
av ZX Spectrum
Verkar vara en bugg i denna versionen av OpenOffice :(

https://bugs.launchpad.net/ubuntu/+sour ... +bug/93002

Någon som vet när OOo 2.3 kommer ut på svenska?
och finns det något annat program som konverterar doc-odt?
Är frågan om över 2500 dokument, så det måste vara något automatiserat program.

SV: Problem med konvertering av dokument i OpenOffice!

Postat: 20 sep 2007, 20:41
av ZX Spectrum
Svettigt att konvertera doc-filerna till odt.
Var tvungen att starta Windows och installera OpenOffice där. Fungerar bra hittills, men tar fruktansvärt lång tid.
Datorn har hållt på med konverteringen i över 7 timmar nu och kommit c:a 70%

SV: Problem med konvertering av dokument i OpenOffice!

Postat: 20 sep 2007, 20:54
av Okänd
ZX Spectrum skrev: Svettigt att konvertera doc-filerna till odt.
Var tvungen att starta Windows och installera OpenOffice där. Fungerar bra hittills, men tar fruktansvärt lång tid.
Datorn har hållt på med konverteringen i över 7 timmar nu och kommit c:a 70%
Det har jag varit med om. Men det funkar.
Vet inte varför det ta så lång tid. Processorkraft visa bara 30% med det..
Nåja,
LJ

SV: Problem med konvertering av dokument i OpenOffice!

Postat: 20 sep 2007, 20:58
av ZX Spectrum
Synd bara att inte dokumenten ser lika ut i Microsoft Office och OpenOffice.
Jag brukar lägga källan till dokumentet med liten text nederst på sidan, och det blir ett papper extra på varje fil i OpenOffice.

SV: Problem med konvertering av dokument i OpenOffice!

Postat: 20 sep 2007, 21:00
av Okänd
ZX Spectrum skrev: Synd bara att inte dokumenten ser lika ut i Microsoft Office och OpenOffice.
Jag brukar lägga källan till dokumentet med liten text nederst på sidan, och det blir ett papper extra på varje fil i OpenOffice.
Just det. Det tycker jag inte om heller,
Hoppas bara att dom löser problemet.
Jag körde slutligen allting via PDF och det var lite bättre.
LJ