|
Hallo Forum,
ich habe mir folgendes gebastelt, um ein Bild in die fünftletzte Zeile des Dokuments einzufügen:
Sub Unterschrift_einfügen()
Selection.EndKey Unit:=wdStory
Selection.MoveUp Unit:=wdLine, Count:=5
Dim Unterschrift
Set Unterschrift = ActiveDocument.Shapes.AddPicture(FileName:= _
"C:\Unterschrift.bmp", LinkToFile:=False, SaveWithDocument:= _
True)
Unterschrift.Select
Unterschrift.Name = "Unterschrift"
End Sub
Und dann hab ich das geschrieben, um das Bild wieder wegzubekommen:
Sub Unterschrift_löschen()
ActiveDocument.Shapes("Unterschrift").Select
ActiveDocument.Shapes("Unterschrift").Delete
End Sub
Jetzt habe ich das Problem, dass es immer dann funktioniert, wenn das Worddokument mehr als eine Seite hat. Bei einer Seite wird mit die Unterschrift immer am Anfang des Dokuments eingefügt. Ich weiß nicht warum und wie ich das beseitigen kann. Ich brauche auf jeden Fall zwei Makros, also eines um einzufügen und eines um zu löschen. Kann mir jemand helfen? Ich arbeite mit Office 2024 und Win11. Vielen Dank schon mal.
VG Armin
|