Bildbeschriftung mit Hilfe von Makros formatieren

Jonas Theilmeier · 11. Februar 2023

Hallo Zusammen,Das ist mein erster Eintrag hier im Forum. Ich bin im Moment echt am Verzweifeln. Mein Makro erstellt mir folgende Bildbeschriftung unter dem jeweils markierten Bild: Abb. 1 Beispieltext Selection.InsertCaption Label:="Abb.", TitleAutoText:= _ "EinfügenBeschriftung2", Title:="", Position:=wdCaptionPositionBelow, _ ExcludeLabel:=0Besteht die Möglichkeit dies mit Hilfe einer Erweiterung des Codes zu Abb. 1: Beispieltext zu ändern? Also dass jedes Mal, wenn ich das Makro aktiviere, meine Bildbeschriftung in dem gezeigten Format erscheint? Oder kann man das ganze mi

Jonas Theilmeier

Vielen Dank für die schnelle Antwort!
Ich würde allerdings gerne die Formatierung der Beschriftung von Abb. 1: Beispieltext zu Abb. 1: Beispieltext ändern. Ist dies auch möglich?

AnnaThomasH

Hallo Jonas

Ich bin AnnaThomas und helfe Ihnen gerne bei Ihrer Frage. In diesem Forum sind wir Microsoft-Verbraucher wie Sie.

Ja, es ist möglich, das Makro so zu ändern, dass der Doppelpunkt nach der Figurennummer hinzugefügt wird. Hier ist eine aktualisierte Version des Makros, das die Beschriftung im Format "Abb. 1: Beispieltext" einfügt:

Selection.InsertCaption Label:="Abb.", TitleAutoText:= _
"InsertLabel2", Title:=": Beispieltext", Position:=wdCaptionPositionBelow, _
ExcludeLabel:=0

Dieses Makro fügt bei jeder Aktivierung die Beschriftung "Abb. 1: Beispieltext" unter dem ausgewählten Bild ein.

Ich hoffe, das hilft ;-), lassen Sie mich wissen, wenn dies im Widerspruch zu dem steht, was Sie brauchen, ich wäre immer noch hilfreich, um mehr von Ihren Fragen zu beantworten.

Alles Gute

AnnaThomas

Geben Sie der Gemeinschaft etwas zurück. Helfen Sie der nächsten Person mit diesem Problem, indem Sie angeben, ob diese Antwort Ihr Problem gelöst hat. Klicken Sie unten auf Ja oder Nein.

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.

Leonielhou Orilla

Hallo, ich bin Leonielhou, ein unabhängiger Berater und ein Benutzer wie Sie, ich helfe gerne bei der Klärung Ihrer Fragen.

Ich bin mir nicht ganz sicher, was Sie meinten. Meinten Sie, dass Sie Italicized " Abb. 1 " mit einem VBA-Code in das fette Format ändern möchten?

Sub ChangeToBold()

MyRange als Bereich dimmen

Für jede myRange in ActiveDocument.Range.Find.Execute("Abb. 1", , , , , wdFindStop)
Wenn myRange.Font.Italic = true ist, dann
myRange.Font.Bold = True
myRange.Font.Italic = False
Ende Wenn
Nächster

Ende Sub

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.

Gerhard H

Ist auch hier https://www.ms-office-forum.net/forum/showthread.php?p=2099691#post2099691 schon in Arbeit.

AnnaThomasH

Ja, es ist möglich, das Beschriftungsformat auf "Abb. 1: Beispieltext" zu ändern. Hier ist eine aktualisierte Version des Makros, das die Beschriftung im gewünschten Format einfügt:

Selection.InsertCaption Label:="Abb.", TitleAutoText:= _
"InsertLabel2", Title:=": Beispieltext", Position:=wdCaptionPositionBelow, _
ExcludeLabel:=0

Dieses Makro fügt bei jeder Aktivierung die Beschriftung "Abb. 1: Beispieltext" unter das ausgewählte Bild ein.

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.

Hi,

willkommen im Windows Forum!

Bildbeschriftung mit Hilfe von Makros formatieren - Similar Threads - Bildbeschriftung Hilfe Makros	Forum	Datum
Falsche Platzierung von Objekten mit Hilfe des Makros Falsche Platzierung von Objekten mit Hilfe des Makros: Hallo Community,Ich habe mir eine Tabelle etwickelt und es läuft alles reibungslos, bis auf Platzierung von Objekten/ Formen, die ich mit Hilfe des Macros an genau definiertem Platz einfügen...	Microsoft Office	3. Dezember 2023
Word Bildbeschriftungen verschieben sich in vorherigen Bildbeschriftungen Word Bildbeschriftungen verschieben sich in vorherigen Bildbeschriftungen: Hallo,Ich habe folgendes Problem dass ich mir nicht erklären kann.Die Bildbeschriftungen von darauffolgenden Bildern verschieben sich in die "Bildbeschriftungsboxen" der vorherigen...	Microsoft Office	18. Januar 2022
Fußnote in Bildbeschriftung Fußnote in Bildbeschriftung: Hallo liebe Community, ich brauche eure Hilfe: Ich habe ein Bild in meine Arbeit eingefügt und eine Bildbeschriftung eingefügt, um später ein Abbildungsverzeichnis über die Wordfunktion einfügen...	Microsoft Office	15. Mai 2021
Bildbeschriftung Bildbeschriftung: Ich würde gerne auf meinem IPad eine Abbildung bei Word beschriften, jedoch ist diese Funktion nirgends auffindbar.	Microsoft Office	9. Februar 2020
Gruppierung Bildbeschriftung Gruppierung Bildbeschriftung: Hallo, ich kann auf Windows in Word 365 keine Gruppierung von Bildern und der jeweiligen Beschriftung durchführen. Öffne ich das gleiche Dokument auf dem Mac in Word 365 funktioniert es...	Microsoft Office	9. Dezember 2019
Bildbeschriftung - Abbildungsverzeichnis unterschiedlich Bildbeschriftung - Abbildungsverzeichnis unterschiedlich: WORD 2016 Ich möchte: BILD Abb1: Sonnenaufgang Abbildungsverzeichnis: Abb1: Sonnenaufgang, www.sonnenaufgang.de..................Seite 1 Ich arbeite mit MAC und möchte die...	Microsoft Office	7. November 2017
Fußnote bei Bildbeschriftung einfügen Fußnote bei Bildbeschriftung einfügen: Guten Tag, ich bin in den letzten Zügen einer Projektarbeit und bin nun als letzten Punkt bei den Quellenangaben angelangt. Ich habe in der Projektarbeit Bilder eingefügt und diese mit der...	Microsoft Office	27. Juli 2017

Bildbeschriftung mit Hilfe von Makros formatieren