MS-Office 2010 WORD-Profi gesucht!

[SHIQZAL]

Hab ich auch schon überlegt, aber da hier jeder mal im Büro für eine Beweissicherung eine Fotodok. erstellen muss, dachte ich mir ein Makro für jeden hier wäre das Einfachste, Bilder rein und direkt sind alle skaliert und man kann seine Texte schreiben.

Ansonsten muss man halt mit einem 2. Programm erst alle Bilder auf die richtige Pixelgröße bringen und dann einfügen, möchte ich aber erst, wenn alles scheitert!

---

Ich bin schonmal ein gutes Stückchen weiter :

Zitat:Private Sub CommandButton1_Click()
Dim oFileDialog As FileDialog
Set oFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With oFileDialog
.Filters.Clear
.Filters.Add "images", "*.jpg,*.gif,*.bmp"

.Filters.Add "*.jpg", "*.jpg"
.Filters.Add "*.gif", "*.gif"
.Filters.Add "*.bmp", "*.bmp"
.Title = "Bilder auswählen"
.ButtonName = "OK"
.AllowMultiSelect = True
If .Show = True Then
Dim dd As Variant
For Each dd In .SelectedItems
einfuge (dd)
Next
End If
End With
End Sub

Private Sub einfuge(ByVal was As String)


Selection.HomeKey Unit:=wdStory
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InlineShapes.AddPicture FileName:=was, LinkToFile:=False, SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Selection.InlineShapes(1).LockAspectRatio = msoTrue
If Selection.InlineShapes(1).Height >= Selection.InlineShapes(1).Width Then
Selection.InlineShapes(1).Height = 300
Else
Selection.InlineShapes(1).Width = 300
End If


Selection.InlineShapes(1).Select
SendKeys "%a"
SendKeys "w"
SendKeys "{Enter}"
CommandBars("Picture").Controls(10).Execute

End Sub

Jetzt hab ich noch folgendes Problem, Bilder werden zwar eingefügt, ABER NUR 3, er springt nicht automatisch auf die Nächste Seite.
Sobald ich 4 Bilder auswähle fügt er nur die ersten 3 ein.
Wie kann man das Problem lösen?