OpenOffice in RTF

4. Dezember 2007

Hallo, kann es sein das LotusNOtes OpenOffice docs nicht erkent?

Code

If ( rtitem.Type = RICHTEXT ) Then
		If  Not Isempty(rtitem.EmbeddedObjects) Then			
			Forall o In rtitem.EmbeddedObjects
				If o.name Like "*[šđčćžŠĐČĆŽ]*"  Or (Not o.Source Like "*.jpg" And Not o.Source Like "*.JPG") Then
					If names ="" Then
						names = o.name
					Else
						names = names & ", " & o.name
					End If
					Call o.remove
					Call doc.Save(True,False)
				End If

			End Forall
		End If

Alles anzeigen

Der teil des Kodes sollte eigentlich alle docs die nicht .jpg sind enfernen aber es klappt nicht mit openoffice docs. Mit allen anderen docs klappt es

Teilen