Hi Jonas,

Klar geht das, dein Code funktioniert allerdings bei mir nicht. Liegt wahrscheinlich an TitleAutoText:="EinfügenBeschriftung2", der bei mir nicht existiert. Aber wenn ich dich richtig verstehe, willst du diesen Autotext ja auch gar nicht. Der überschreibt nämlich den unter Title angegebenen Wunschtext. Falls doch lass deine Zeile wie sie ist, soweit sie funtioniert und ergänze nur die anderen Zeilen des folgenden Codes:

Sub Bildbeschriftung()

Dim picCaption As String, CaptionRange As Range, e As Long
picCaption = InputBox("Bitte eine Beschriftung eingeben", "Bildbeschriftung", "Beispieltext")
Selection.InsertCaption Label:="Abb.", Title:=": " & picCaption, Position:=wdCaptionPositionBelow ', ExcludeLabel:=False
Set CaptionRange = Selection.Paragraphs(1).Range
e = InStr(CaptionRange, ":") + 2
CaptionRange.SetRange CaptionRange.Start, CaptionRange.Start + e

With CaptionRange.Font
  .Bold = True
  .Italic = False
End With

End Sub

Gruß Mr. K.