Hallo VB/VBA-Experten,
ich brauche Eure Hilfe:
Aus Office2000-Zeiten hat mir mal eine gute Seele einen Makro geschrieben, der leider unter Word2013 nicht mehr funktioniert.
Ich selbst habe Null-Ahnung von VB oder VBA, daher weiss ich nicht mal, wo ich ansetzen könne
Das Problem war:
Sub Bildereinfuegen()
' Im Verzeichnis D:\wordarea stehen beliebig viele jpg-Dateien, die als
' Grafiken in ein Dokument eingefügt werden sollen, jeweils gefolgt von zwei
' Absatzmarken und einem Seitenumbruch
' hinweis:
'der Verweis auf die MS-Runtime-Bibliotheken
'ist unbedingt erforderlich. d.h. der Unterstrich mit der Verknüpfung
' darf nicht entfernt werden, sonst ergibt sich ein runtime-error
Path = "D:\wordarea\" _
& Application.PathSeparator
Set Fso = CreateObject("Scripting.FileSystemObject")
Set QuellOrdner = Fso.GetFolder(Path)
Set Dateien = QuellOrdner.Files
For Each File In Dateien
'If Right(File.Name, 3) = "jpg" Then
'Selection.TypeText Text:=File.Name
'oder Fullname
'Selection.TypeText Text:=File.Path
Selection.InlineShapes.AddPicture FileName:=File.Path, _
LinkToFile:=False, SaveWithDocument:=True
Selection.TypeParagraph: Selection.TypeParagraph
Selection.TypeParagraph
'End If
DoEvents
Next
End Sub
Das Ergebnis:
und weiter komme ich nicht.
Kann mir da bitte jemand weiterhelfen?
Danke schön
Fred
|