|
Hallo,
ich muss viele Bilder in ein Word 2007 Dokument einfügen.
Unterdem Bild soll der Dateiname OHNE PFAD und OHNE Endung mittig stehen.
Im Netz fand ich jetzt dieses Script (Quelle: http://www.ms-office-forum.net/forum/showthread.php?t=255901):
Sub InsertPicture()
Dim ret As Integer, sPic As String
With Dialogs(wdDialogInsertPicture)
ret = .Show
If ret = vbTrue Then
sPic = CurDir & .Name
Selection.InsertBreak wdLineBreak
Selection.InsertAfter sPic
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
End If
End With
End Sub
Wenn ich aus "SPic = CurDir & .Name" ein "SPic = .Name" mache, dann wird mir unter dem Bild der komplette Pfad + Dateiname +Extention angezeigt.
Und wenn ich mehrere Bild gleichzeitig markiere, dann wird nur unter dem letzten Bild der Text ausgegeben.
Wie muss das Script geändert werden, das unter jedem Bild NUR der Dateiname mittig platziert wird?
Okay, das habe ich jetzt gelöst:
Sub InsertPicture()
Dim ret As Integer, sPic As String
With Dialogs(wdDialogInsertPicture)
ret = .Show
If ret = vbTrue Then
sPic = Dateiname_von(.Name)
Selection.InsertBreak wdLineBreak
Selection.InsertAfter sPic
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
End If
End With
End Sub
Function Dateiname_von(aa) As String 'Dateiname abtrennen
Dateiname_von = Mid(aa, InStrRev(aa, "\") + 1)
Dateiname_von = Mid(Dateiname_von, 1, Len(Dateiname_von) - 4)
End Function
Noch offen sind jetzt folgende Punkte:
-
Wie weise ich dem Bild die Formatvorlage "Standard" zu und dem Dateinamen die Vorlage "Untertitel"?
-
Könnte man auch die Bildhöhe gleich auf 10cm setzen?
Gruß Heiko
|