Thema Datum  Von Nutzer Rating
Antwort
Rot Bild mit Dateinamen einfügen und Formatvorlagen zuweisen
 22.10.2012 10:15:42 Heiko Rompel
NotSolved
22.10.2012 10:25:28 Heiko Rompel
NotSolved
23.10.2012 10:46:23 Gast70683
NotSolved

Ansicht des Beitrags:
Von:
Heiko Rompel		 Datum:
22.10.2012 10:15:42		 Views:
4103		 Rating:
     
Antwort:
  Ja
Thema:
Bild mit Dateinamen einfügen und Formatvorlagen zuweisen

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):
 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bild mit Dateinamen einfügen und Formatvorlagen zuweisen
 22.10.2012 10:15:42 Heiko Rompel
NotSolved
22.10.2012 10:25:28 Heiko Rompel
NotSolved
23.10.2012 10:46:23 Gast70683
NotSolved