|
Hi,
ich möchte ein Makro erstellen, indem ein definiertes Publisher Dokument aufgerufen wird. Danach soll dann an die Bookmarks mit den informationen aus der Excel Tabelle gefüttert werden. So soll z.B. der Name, des Spielers, der in der Zelle 2,3 steht, eingetragen werden und ein Foto, mit dem Namen des Spielers aus der Datenbank, in ein weiteres Bookmark eingefügt werden.
Das Problem ist, dass er nicht die Bookmarks einfügen möchte. Öffnen lässt sich die Datei "karte.pub", nur dann ist ende. "debugged".
Meine Programmierung sieht bislang so aus.
Sub karte_erstellen()
Dim pbApp As Object, pbDoc As Object
Dim i As Integer
Set pbApp = CreateObject("Publisher.Application")
Set pbDoc = pbApp.Documents.Add.Application.Open("C:\test\karte.pub")
Sheets(1).Select
With pbDoc
.Bookmarks("Spieler").Range.Text = Cells(2, 3)
.Bookmarks.Item("foto").Range.InlineShapes.AddPicture Filename:="C:\test\Datenbank\Fotos\" & Cells(2, 3) & ".jpg", LinkToFile:=False, SaveWithDocument:=True
End With
pbDoc.SaveAs ("C:\test\karte" & Cells(2, 3) & ".pub")
pbDoc.Close
pbApp.Quit
End Sub
Vllt. könnt ihr mir weiter helfen.
Gruß
|