Bilder Import aus Netzwerkordner

[morpheus_f]

Hallo Zusammen,

ich bin ein bisschen am verzweifeln.

Ich möchte gerne Bilder in einem Writer-Dokument einfügen. Diese Bilder befinden sich auf einem Netzwerkordner.
Bei diesen Bildern handelt es sich um .jpeg, .jpg und .gif Dateien.

Die Bilder werden im Dokument mit dem Namen dargestellt wie sie auf dem Netzwerkordner vorhanden sind:

5678789034.jpg , Baum-3432-f23.gif , usw.

Gibt es irgendwie eine Möglichkeit diese Bilder zu importieren. Gut wäre auch wenn man bei der Formatierung des Bildes festlegen könnte das kein Textumlauf stattfindet sowie deren Grösse festlegen könnte.

Nur zur Info: Ich hab leider keine Ahnung von Programmierung!!!!!!!

Für einen Tipp wäre ich euch sehr Dankbar!

Gruss morpheus_f

[morpheus_f]

Hat keiner eine Idee ???

[komma4]

Kap. 5.30.1 Insert, size, and position a graphic in a Calc document in Andrews Makro-Dokument

[morpheus_f]

Vielen Dank Komma,

das bringt mich schon ein bisschen weiter. Ein weiteres Problem hab ich aber dennoch.

Meine Idee war : Das Makro durchsucht das Writer Dokument nach dem Namen der Bilddatei mit (.*.jpg) und importiert es von einem Netzwerkordner.

zB. Beim Textfeld bild2.jpg wird das Bild vom Server //192.168.0.46/Bilderordner/bild2.jpg importiert, dann sucht das Makro weiter im Text mit (.*.jpg), importiert das nächste usw...

Ist das vielleicht zu komplex sowas zu schreiben. Sorry für die Frage, bin totaler Anfänger !!!!!!!!

[komma4]

Ist das vielleicht zu komplex sowas zu schreiben. Sorry für die Frage, bin totaler Anfänger !!!!!!!!

Für einen totalen Anfänger: ja.

Lese mal das Dokument von Andrew. Er beschreibt auch, wie man Text findet...

Habe im Moment (für Dich: leider) keine Langeweile, um DIr da die Arbeit abzunehmen und Dir was zusammen zu schreiben...

[morpheus_f]

OK, vielen Dank nochmal für den Link. Ich werde mich dann mal dahinter klemmen

[morpheus_f]

So, nun hab ich mal einiges ausprobiert.

Code: Alles auswählen

Sub FindInsertGraphStatements(oDoc)
  Dim oSearch
  Dim oFound
  Dim s$
  Dim sLeading$
  Dim lLeadLen As Long
  Dim sFileURL$
  
  sLeading = "Insert image "
  lLeadLen = Len(sLeading)
  
  oSearch = oDoc.createSearchDescriptor()
  'Inspect oSearch
  With oSearch
    .SearchString = sLeading & "(.*\.jpg)|(.*\.gif)"
    .SearchRegularExpression = True
  End With
  oFound = oDoc.findFirst(oSearch)
  Do While Not IsNull(oFound)
    s = oFound.getString()
    sFileURL$ = ConvertToUrl(Trim(Right(s, Len(s) - lLeadLen)))
    
    If FileExists(sFileURL) Then
      oFound.setString("")
      EmbedGraphic(oDoc, oFound, sFileURL, "OOoFigure")
      'Exit Sub
    End If    
    oFound = ThisComponent.findNext( oFound.End, oSearch)
  Loop
End Sub

Leider bringt er mir hier jetzt ein "Laufzeitfehler: Argument ist nicht optimal" bei

Code: Alles auswählen

  oSearch = oDoc.createSearchDescriptor()

Hhmmm! Ich kann dann das leider überhaupt nicht deuten..............

[morpheus_f]

Hallo Leute,

ich habe jetzt nochmal einiges ausprobiert und komme aber auf keinen grünen Zweig.

@Waldschrat , vielen Dank nochmal für den Tipp! Ich habe das ausprobiert und die Sachen geändert. Leider bekomme ich da überhaupt keine Rückmeldung. Mit RegEx zu suchen ( Beispiel "(.*.jpg)|(.*.gif)" ) hat auch irgendwie nicht funktioniert.

Ich geb's auf. Bin vielleicht zu unterbelichtet dafür !!"

Falls aber jemand sowas in der Art schon mal programmiert hat oder sowas innerhalb von 5 min schreiben kann ( Keine Ahnung ob das so schnell geht ), wäre ich demjenigen sehr sehr dankbar wenn er mir das Makro posten würde.

Also, wünsch euch noch einen sonnigen Mittwoch und vergesst nicht im Haus zu bleiben! Heute soll ein strahlendes Wölkchen nach Europa kommen !!!

Danke auch nochmal für eure Tipps

Gruss morpheus_f

[jessi_d]

Hallo,

ich bin neu hier. Habe auch schon einiges im Forum durchgelesen, nur leider noch nicht das gefunden was ich suche.
Im Prinzip suche ich das gleiche wie morpheus_f nur das sich der Bilderordner auf meinen Rechner befindet. Die Bilder sollten nur Anhand der Namen importiert werden und bei den Dateien handelt es sich nur um .jpg Dateien.

Es wäre ganz toll wenn da jemand eine Idee hat.

LG Jessi