Thema Datum  Von Nutzer Rating
Antwort
Rot Mergfield in Word ansprechen
07.08.2017 08:58:21 Niko
NotSolved
08.08.2017 14:12:41 Gast54656
NotSolved

Ansicht des Beitrags:
Von:
Niko
Datum:
07.08.2017 08:58:21
Views:
342
Rating: Antwort:
  Ja
Thema:
Mergfield in Word ansprechen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Mergfield in Word ansprechen
07.08.2017 08:58:21 Niko
NotSolved
08.08.2017 14:12:41 Gast54656
NotSolved