Jede Woche muss John eine invoice erstellen und mehrere gescannte Bilder in ein Word-Dokument einfügen. Er fragt sich, ob es eine Möglichkeit gibt, alle JPG-Bilder aus einem bestimmten Ordner in das aktuelle Word-Dokument einzufügen.

Es gibt verschiedene Möglichkeiten, dies zu tun. Eine Möglichkeit besteht darin, einfach alle Grafiken auszuwählen und in einem Schritt einzufügen:

  1. Platzieren Sie die Einfügemarke an der Stelle im Dokument, an der die Grafiken eingefügt werden sollen.

  2. Wählen Sie Einfügen | Bild | Aus Datei. Word zeigt das Dialogfeld Bild einfügen an.

  3. Verwenden Sie das Steuerelement Suchen in, um den Ordner zu suchen, der die Bilder enthält.

  4. Drücken Sie Strg + A. Word wählt alle Dateien im Ordner aus.

  5. Klicken Sie je nach Word-Version auf OK oder Einfügen.

Das ist es; Word fügt alle Grafiken in das Dokument ein. Sie sollten dabei vorsichtig sein, denn wenn es viele gibt (mehr als beispielsweise 100)

Grafiken im Ordner oder wenn die Grafikdateien ziemlich groß sind, können Sie Word zum Crawlen verlangsamen oder es vollständig aufhängen. Wenn der Ordner mehr als nur Grafiken enthält oder Sie nur einige der Grafikdateien möchten, können Sie die Strg-Taste gedrückt halten, während Sie in Schritt 4 mit der Maus Grafiken auswählen. Der Punkt ist, dass alle Dateien, die Sie in Schritt 4 ausgewählt haben, Dies sind die Dateien, die Word in Ihr Dokument einfügt.

Eine Variation dieses Ansatzes beinhaltet die Verwendung von Windows. Befolgen Sie diese allgemeinen Schritte:

  1. Platzieren Sie die Einfügemarke an der Stelle im Dokument, an der die Grafiken eingefügt werden sollen.

  2. Minimieren Sie das Word-Dokument.

  3. Zeigen Sie in Windows den Ordner an, in dem sich die Bilder befinden.

  4. Erstellen Sie einen Auswahlsatz der Bilder, die in das Dokument eingefügt werden sollen.

  5. Klicken Sie auf ein einzelnes Bild im Auswahlsatz und halten Sie die Maustaste gedrückt.

  6. Ziehen Sie den Auswahlsatz über den oberen Rand des Dokuments, wie er in der Taskleiste angezeigt wird. (Lassen Sie die Maustaste noch nicht ganz los.)

  7. Lassen Sie die Maustaste los, sobald Windows das Word-Dokument anzeigt (was nach einigen Sekunden der Fall ist).

Zu diesem Zeitpunkt werden alle in Schritt 4 ausgewählten Bilder wie in der vorherigen Methode in das Word-Dokument eingefügt.

Wenn Sie eine der oben genannten Methoden verwenden, müssen Sie die Größe der Bilder ändern und sie nach Bedarf verschieben, damit Ihr Dokument so angezeigt wird, wie Sie es möchten.

Wenn Sie routinemäßig ganze Gruppen von Bildern einfügen müssen, kann das Durchlaufen dieser Schritte nach einer Weile natürlich mühsam werden.

Tedium wird oft durch die Verwendung eines Makros entlastet, und dieser Fall ist keine Ausnahme. Das folgende Makro kann verwendet werden, um ein Dialogfeld anzuzeigen (ähnlich wie bei den früheren Methoden), in dem Sie die gewünschten Dateien auswählen können. Wenn Sie das Dialogfeld schließen, werden alle Bilder, die Sie im Dialogfeld ausgewählt haben, in Ihr Dokument eingefügt, jedes in einem eigenen Absatz.

Sub InsertImages()

Dim doc As Word.Document     Dim fd As FileDialog     Dim vItem As Variant     Dim mg1 As Range     Dim mg2 As Range

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Set doc = ActiveDocument

With fd         .Filters.Add "Images", ".gif; .jpg; *.jpeg", 1         .FilterIndex = 1

If .Show = -1 Then             For Each vItem In .SelectedItems                 Set mg2 = ActiveDocument.Range                 mg2.Collapse wdCollapseEnd                 doc.InlineShapes.AddPicture _                   FileName:=vItem, _                   LinkToFile:=False, SaveWithDocument:=True, Range:=mg2                 Set mg1 = ActiveDocument.Range                 mg1.Collapse wdCollapseEnd

mg1.Text = vbCrLF & vbCrLf             Next vItem         End If     End With

Set fd = Nothing End Sub

Wenn Sie sich nicht mit der Auswahl von Ordnern oder Dateien beschäftigen möchten, können Sie ein noch einfacheres Makro verwenden. Im Folgenden werden alle JPG-Dateien aus einem angegebenen Ordner abgerufen und im aktuellen Dokument abgelegt. Jedes Bild befindet sich in einem eigenen Absatz.

Sub GetPictures()

Dim sPic As String     Dim sPath As String

sPath = "c:\myfolder\"

sPic = Dir(sPath & "*.jpg")



Do While sPic <> ""

Selection.InlineShapes.AddPicture _           FileName:=sPath & sPic, _           LinkToFile:=False, SaveWithDocument:=True         sPic = Dir         Selection.TypeParagraph         Selection.TypeParagraph     Loop End Sub

Um das Makro zu verwenden, stellen Sie einfach sicher, dass Sie den sPath zugewiesenen Wert so ändern, dass er den gewünschten Ordner darstellt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (10726) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Einfügen mehrerer Grafiken in ein Dokument.