Hallo zusammen!

Ich bin neu hier und hoffe, dass mein Anliegen an dieser Stelle richtig platziert ist.

Es geht um folgendes:

Ich möchte in Word über die Serienbrief-Funktion Etiketten erstellen. Unter anderem wird dabei die Artikelnummer aus einer Excel-Tabelle gelesen und im Layout platziert. Die Besonderheit: Die Formatierung der Artikelnummer soll sich ändern, sprich die Schriftgröße soll - abhängig von der Länge der Artikelnummer - variabel angepasst werden. Es geht im Grunde darum, dass eine länge Artikelnummer ohne Umbruch auf das Etikett passt.

Ich habe dazu folgendes Skript gefundenm, das ein Bookmark anspricht.
Wie muss ich das Skript ändern, damit ich A) die Länge das Datenbankfeldes "Artikelnummer" auslesen kann und B) im Word-Layout die Formatierung des MERGFIELDs ansprechen kann?

Sub Schriftgroesse()
If ActiveDocument.Bookmarks.Exists("Text1") Then  'Namen ggf. anpassen
    ActiveDocument.Bookmarks("Text1").Select
    a = Selection.Characters.Count
    With Selection.Font
        If Selection.Characters.Count = 5 Then
            .Size = "14"                                               'anpassen
        ElseIf Selection.Characters.Count = 20 Then
            .Size = "10"                                               'anpassen
        ElseIf Selection.Characters.Count = 30 Then
            .Size = "6"                                                'anpassen
        End If
    End With
End If
End Sub

Vorab vielen Dank!

Grüße!

Niko