Supportnet Computer
Planet of Tech

Supportnet / Forum / Textverarbeitung

Mehrere Grafiken gleichzeitig in Word einfügen???





Frage

Hallo, ich möchte in ein Word97 Dokument, mehrere Grafiken auf einmal einfügen. Leider geht dies nicht. Für Excel habe ich ein Makro gefunden. Da funktioniert es. hier dsa Makro: Sub GrafikDateienEinfuegen() Dim ZuOeffnendeDatei Dim isGrafik As Boolean, i As Long On Error Resume Next ZuOeffnendeDatei = Application.GetOpenFilename( _ , , "Grafikdateien", , True) With Sheets("Tabelle1") For i = 1 To UBound(ZuOeffnendeDatei) isGrafik = True Select Case LCase(Right$(ZuOeffnendeDatei(i), 3)) Case "jpg" Case "gif" Case "bmp" Case Else isGrafik = False End Select If isGrafik Then .Pictures.Insert ZuOeffnendeDatei(i) End If Next End With End Sub Kenn jemand so etwas für Word oder hat eine andere Idee??? Für jede Hilfe wäre ich dankbar. Liebe Grüße, Elke

Antwort 1 von poorfirele

eine direkte möglichkeit kenne ich in word auch nicht, daher trick17.

im explorer die entsprechenden bilder markieren, kopieren und im entsprechenden word-dokument einfügen.

gerade ausprobiert und funktioniert bei mir mit 6 bildern untwer msword 97

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: