Office: Word XP Bilder automatisch laden mit verkürzter Pfadangabe

Hallo,

bevor es los geht, es soll auch für word 2000 funktionieren.

In meine allzeit beliebte .dot-Vorlage andert sich monatlich das Bild automatisch. Das funktioniert auch soweit ganz gut. Bis auf die Pfadangabe. VB akzeptiert mein vorgesehenes Pfadverzeichnis nicht. Eigentlich soll sich das Programm merken. "Hier bin ich und hier such ich auch nach dem entsprechenden Ordner" Leider macht es das nicht.

Ich poste mal meine VB schnipsel dazu. Vielleicht könnt Ihr mir weiterhelfen.

Code:

Sub Bild_einfuegen()
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   
    
'Bild einfügen
    Selection.HeaderFooter.Shapes("Text Box 77").Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.InsertDateTime DateTimeFormat:="MM", InsertAsField:=True, DateLanguage:=wdGerman, CalendarType:=wdCalendarWestern, InsertAsFullWidth:=False
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    monat = Selection.Text + 1
    If monat > 12 Then
        monat = 1
    End If
    Selection.Delete
  [color=red]  pfad [/color]= Selection.Document.ActiveWindow.Application.Options.DefaultFilePath(wdCurrentFolderPath)
    Selection.ShapeRange.Fill.UserPicture pfad & "/Bilder_Mandanten_Info/" & monat & ".jpg"
    Selection.Collapse
    
'Kopfzeil schließen
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        
'Cursorsprung auf 2.Seite
    Selection.MoveDown Unit:=wdLine, Count:=3
          
End Sub

LG
Peggy frusted by word

 

So, ich hab dann auch gleich mal die passende Lösung... . Also bei mir funktioniert es ;o))))

Code:

Sub Bild_einfuegen()
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

'Bild einfügen
    Selection.HeaderFooter.Shapes("Text Box 77").Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.InsertDateTime DateTimeFormat:="MM", InsertAsField:=True, DateLanguage:=wdGerman, CalendarType:=wdCalendarWestern, InsertAsFullWidth:=False
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    monat = Selection.Text + 1
    If monat > 12 Then
        monat = 1
    End If
    Selection.Delete
    
    pfad = ActiveDocument.AttachedTemplate.Path & "\" & IniName
    IniName = pfad & "Bilder_Mandanten_Info\" & monat & ".jpg"
  
    Selection.ShapeRange.Fill.UserPicture IniName
    Selection.Collapse
    
'Kopfzeil schließen
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        
'Cursorsprung auf 2.Seite
    Selection.MoveDown Unit:=wdLine, Count:=3
          
End Sub

LG
Peggy