014 Normgerechte Faltmarken

Um normgerechte (DIN 5008) Faltmarken auf einem Briefbogen zu setzen, muss zunächst über "Einfügen - Positionsrahmen" (bei WinWord 8.0 "Einfügen Textfeld") ein Rahmen gesetzt werden. Diesen zunächst mit der Maus auf eine beliebige Größe ziehen und danach über den Befehl "Format - Positionsrahmen" folgende Werte eingeben:

Textfluss: ohne

Horizontal-Position: 0,5 cm von der Seite

Vertikal-Position: 10,4 cm von der Seite

Größe (Breite): Genau 0,2 cm

Größe (Höhe): Genau 0,02 cm

Abstand zum Text: 0 cm

Häkchen bei "Mit Text verschieben" entfernen und bei "Verankern" setzen

Eine weitere Faltmarke (für den Locher) kann bei Vertikal-Position 14,85 cm mit der Größe (Breite) 0,4 cm gesetzt werden (übrige Angaben wie zuvor).

Einfacher geht dies alles natürlich per Makro. Dazu mit Alt+ F11 den Visual-Basic-Editor starten, im Projekt-Fenster auf Normal klicken, in der Menüleiste auf Einfügen und danach auf Modul klicken, ins Modul-Fenster folgendes eintippen (oder über die Zwischenablage einfügen):

Option Explicit

Sub Faltmarke()

Dim Objekt As Object

Dim Falt As Shape

Dim Loch As Shape

Set Objekt = ActiveDocument.Sections(1).Headers(1)

Set Falt = Objekt.Shapes.AddLine(CentimetersToPoints(0.5), CentimetersToPoints(10.4), CentimetersToPoints(1.5), CentimetersToPoints(10.4))

Falt.Line.Weight = 0.25

Falt.LockAnchor = True

Set Loch = Objekt.Shapes.AddLine(CentimetersToPoints(0.5), CentimetersToPoints(14.85), CentimetersToPoints(1), CentimetersToPoints(14.85))

Loch.Line.Weight = 0.25

Loch.LockAnchor = True

End Sub

Zurück zur vorherigen Seite

Zurück zur Titelseite