OpenOffice.info

Code: Alles auswählen

Sub RemoveControl(sControlName as String)
	If Len(sControlName) = 0 Then Exit Sub
	bRemoved = False
	oDoc = thisComponent
	oDoc.lockControllers
	oDrawPage = oDoc.Drawpage
	oForm = oDrawPage.Forms.getByIndex(0)
	If oForm.hasByName(sControlName) Then
		oForm.removeByName(sControlName)
		bRemoved = True
	End If
	If NOT bRemoved Then oDoc.unlockControllers : Exit Sub
	For n = oDrawpage.Count-1 To 0 Step -1
		oThisShape = oDrawpage.getByIndex(n)
		If oThisShape.supportsService("com.sun.star.drawing.ControlShape") Then
			If oThisShape.Control.Name = sControlName Then
				oDrawpage.remove(oThisShape)
				Exit For
			End If
		End If
	Next n
	Do While oDoc.hasControllersLocked
		oDoc.unlockControllers
	Loop
End Sub

Code: Alles auswählen

Function deleteButtons rem thisDoc As Object)
	Dim I As Integer
	drawp = ThisComponent.Drawpage
	Form = drawp.Forms.GetByIndex(0)
	I = Form.Count-1
	While (I <> -1)
		Temp = Form.getbyIndex(I)
		sname = Temp.getName
		If (hier steht meine elendig lange bedingung für die Namen der Felder)Then
			Form.RemoveByName(sname)
			For n = drawp.Count-1 To 0 Step -1
      			oThisShape = drawp.getByIndex(n)
      			If NOT isNull(oThisShape.Control) Then <---- HIER kommt es zum Fehelr mit der Message
         			sControlName = oThisShape.Control.Name
         			if (sControlName = sname) Then
         				drawp.remove(oThisShape)
         			End If
      			End If
   			Next n
			'for x = 0 to drawp.getCount -1
       		'	if drawp.getByIndex(x).control.name = sname then
          	'		drawp.remove(drawp.getByIndex(i))
       		'	end if
			'next
		End If
		I = I -1
	WEND
End Function

Code: Alles auswählen

        rem Hier war der Code für die odt speicherung - Das funktioniert

	Rem deletefunktion
	deleteButtons()
	
	Dim Dummy2()
	sURL = sourcePath & "temp.odt"
	thisDoc.StoreToURL(sUrl, Dummy2())
	
	dim myFileProp2() as new com.sun.star.beans.PropertyValue
	thisDoc2 = StarDesktop.loadComponentFromURL(sURL,"_blank",0,myFileProp2)
	
	REM Init next step "Doc-Speicherung"	
	counter = 0
	testOfStop = oDataArray(counter)(0)
	
	Dim oMediaDescriptor(0) As new com.sun.star.beans.PropertyValue
	oMediaDescriptor(0).Name = "FilterName"
	oMediaDescriptor(0).Value = "MS Word 97"
	
	Form = thisDoc2.Drawpage.Forms.GetByindex(0)
	While (testOfStop <> "Stop")
		oFeld = Form.getbyName("IT-Investnr")
		oFeld.text = testOfStop
	
		sDateiName = testOfStop & "_" & sErhebung & ".doc"
		sURL = sourcePath & testOfStop & "/" & sDateiName
		sURL = ConvertToURL(sURL)
		
		thisDoc2.StoreToURL( sURL , oMediaDescriptor() ) 'weiter brauch ich den Code nicht kopieren da dort OpenOffice abstürzt

Code: Alles auswählen

sub ButtonEntfernen
  oDoc = thisComponent
  REM entfernt die Zuordnung zur Drawpage
  odoc.drawpage.forms.getByIndex(0).removeByName("Schaltfläche 1") 
  REM  entfernt den Button (die Zeichnung) aus dem Dokument
'  for i = 0 to oDoc.drawpage.getCount -1
'       if odoc.Drawpage.getByIndex(i).control.name = "Schaltfläche 1" then
'          odoc.Drawpage.remove(odoc.Drawpage.getByIndex(i))
'       end if
'  next
end sub