Excel Code auf Word anpassen

[Fennek]

Hallo,

ohne Kenntnis des letzen Code:

Dieser Code lädt alle Bilder eines Ordners:

Code:

Sub T_1()

p = "z:\bilder\" ' Ordner mit Bildern, nicht mehr als in STRING() angegeben
f = Dir(p & "*.jpg")

With ThisDocument
    .Content = String(20, vbCr)

    Do While Len(f)
    r = r + 1
    .Paragraphs(r).Range.Select
    .Fields.Add Selection.Range, 67, "", False
    .Fields(.Fields.Count).Code.Select
    Selection.Collapse 0
    .Fields.Add Selection.Range, 64, "Bild" & r, 0

    .Variables("Bild" & r) = p & f
    .Fields.Update
f = Dir
Loop
End With
End Sub

mfg

[snb]

@Fen

Viel schneller:

Code:

  
f = Dir
Loop
.Fields.Update

Code:

Sub M_snb()
   With Application.FileDialog(3)
      .AllowMultiSelect = True
      .InitialFileName = "G:\OF\foto\*.jpg"
      If .Show Then
          ReDim sp(.SelectedItems.Count)
          For j = 0 To UBound(sp) - 1
            sp(j) = .SelectedItems(j + 1)
          Next
     End If
    End With
  
   With ThisDocument
      .Content = String(UBound(sp) + 1, vbCr)
  
        For j = 0 To UBound(sp)-1
           .Fields.Add(.Paragraphs(j + 1).Range, 67, "", False).Code.Select
           Selection.Collapse 0
           ThisDocument.Fields.Add Selection.Range, 64, "Bild_" & j, 0
           .Variables("Bild_" & j) = sp(j)
        Next
        .Fields.Update
    End With
End Sub

[Kyuboy]

Hallo Snb,

vielen Dank für deine Mühe :)

ich hatte bereits eine etwas umständlichere Methode gefunden, in der ich das Bild mittels Excel einfüge,
und dann komplett in Word übernehme. Aber deine Lösung klingt einfacher, daher werde ich sie ausprobieren.

Danke !

MFG

[Fennek]

Hallo,

schön, dass der TO sein Problem lösen konnte.

Ich fand die Frage kreativ und konnte noch etwas lernen.

Bei der Frage, wie viele Dateine in einem Ordner sind, kann man FSO bemühen (files.count) aber es geht auch so:

Code:

Sub T_1()
Pfad = "c:\temp"
Url = "http://www.spiegel.de"
Debug.Print CreateObject("wscript.shell").exec("PowerShell (get-childitem " & Pfad & ").count").stdout.readall

Ar = Split(CreateObject("wscript.shell").exec("PowerShell (iwr ""http://www.spiegel.de"").links.href").stdout.readall, vblfcr)

Debug.Print UBound(Ar)
For i = 0 To UBound(Ar)
    Debug.Print Ar(i)
Next i
End Sub

Als Bonus gibt es noch eine Liste aller Links einer bekannten Webseite.

mfg