Makro anpassen

22/10/2012 - 08:21 von Heiko Rompel | Report spam
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/foru...php?t%5901):

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?

Könnte man auch die Bildhöhe gleich auf 10cm setzen?
Und dem Text die Formatvorlage "Untertitel" und dem Bild "Standard"
zuwesien?

Gruß Heiko
 

Lesen sie die antworten

#1 Heiko Rompel
22/10/2012 - 08:47 | Warnen spam
Nachtrag:

Mit:

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


habe ich jetzt schonmal nur den Dateinamen unter dem Bild.
Aber wie erweitere ich das jetzt auf mehrere Bilder und wie weise ich
die Formatvorlagen zu?

Gruß HEiko

Ähnliche fragen