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
|