Rolf Thielmann

Hallo allerseits,
ich habe eine andere Lösung gefunden.
Es ist vielleicht nicht besonders elegant, aber es funktioniert und ich brauche dafür keine Kenntnis der RestAPI bzw. wie man überhaupt eine API nutzt. 🙂 
So geht es:
ich sende den Report als Word-Datei an mich.
Dann kann ich mit nachfolgendem VBA-Code das vorletzte und letzte in der Word-Datei enthaltene Bilder als Bilddatei speichern:
Sub Demo_Bilder_aus_Word_Dokument_speichern() Dim aktuelles_Dokument As Word.Document Dim eingebettetes_Bild As InlineShape Dim Ziel As String Tempordner = "S:\- Temp\" Dateiextension = "EMF" On Error Resume Next Kill Tempordner & "Unterschrift *." & Dateiextension On Error GoTo 0 Set aktuelles_Dokument = Word.ActiveDocument Ziel = Tempordner & "Unterschrift Techniker." & Dateiextension Set eingebettetes_Bild = aktuelles_Dokument.InlineShapes.Item(aktuelles_Dokument.InlineShapes.Count - 1) SaveInlineshapeToEmfFile eingebettetes_Bild, Ziel Ziel = Tempordner & "Unterschrift Kunde." & Dateiextension Set eingebettetes_Bild = aktuelles_Dokument.InlineShapes.Item(aktuelles_Dokument.InlineShapes.Count) SaveInlineshapeToEmfFile eingebettetes_Bild, Ziel End Sub Function SaveInlineshapeToEmfFile(eingebettetes_Bild As InlineShape, Ziel As String) As Boolean Dim EMF_Bytes() As Byte EMF_Bytes = eingebettetes_Bild.Range.EnhMetaFileBits Open Ziel For Binary Access Write As #1 Put #1, , EMF_Bytes Close #1 End Function Statt EMF kann man auch JPG als Dateiextension verwenden.
VIELEN DANK an OlimilO für seinen Tipp im VBA-Forum (https://foren.activevb.de/forum/vba/thread-27329/beitrag-27330/Re-Bild-aus-Word-Datei-als-Bild/#forum)
 
Ich habe auch ein Makro entwickelt, mit dem ich die Unterschriftsdateien in eine Word-Datei einfügen kann, über die ich dann eine zweite Variante des Reports (für unsere Kunden) erstellen kann. Das werde ich bei nächster Gelegenheit in meinem dazugehörigen Beitrag posten. 😉
 

Hallo allerseits,
wie es scheint, habe ich den Fehler erkannt.
Beim Export aus dem ERP wurde offensichtlich die Zeichenkombination "/ Ø" durch sehr viele Ziffern ersetzt.
Nachdem ich das manuell ersetzt und neu importiert habe, konnte ich das Feld auch wieder als Suchspalte klassifizieren.
Ich gehe davon aus, dass der lange String nicht indiziert werden konnte und daher eine Suche danach nicht möglich gewesen wäre.

Hallo Manuel,
hallo Bülent,

VIELEN DANK für Eure Tipps!
Ich habe es etwas anders umgesetzt, weil der folgende Abschnitt nur eingeblendet werden soll, wenn kein Eintrag in der Wiederholungsgruppe vorhanden ist, bzw. alle vollständig ausgefüllt sind.
 
Hier nochmal meine Version:

Hallo allerseits,

VIELEN DANK für Eure Tipps.

Ich habe es zuerst mit dem KI-Vorschlag von Bülent versucht.
Wenn ich innerhalb der Wiederholungsgruppe auf Fotos hinzufügen klicke. muss ich auch ein Foto erfassen.
Wenn ich allerdings die Wiederholungsgruppe ignoriere und einfach weitergehe, funktioniert das auch noch und das will ich gerade vermeiden.

Daher habe ich den Vorschlag von Moritz umgesetzt und genau das Ergebnis, das ich haben möchte.


Wenn kein Foto erfasst ist, liefert die Formel im Baustein Summe_1 einen Fehler.
Man könnte jetzt noch bedingte Anzeigen, etc. hinzufügen. Aber für den Test reicht das so aus.

VIELEN DANK

Rolf

Hallo Bülent,
das ist doch schon recht elegant. 🙂
Ich habe die Zwischenergebnisse in der App und im Bericht ausgeblendet und so fällt es nicht auf, dass ich da in mehreren Schritten berechne.

VIELEN DANK
 
Rolf