Faltmarkierung für Briefumschlag mitdrucken (A4)

10/10/2009 - 16:14 von Thomas Frenkel | Report spam
Hallo,


ich wollte fragen, ob es bei Office2007 eine Möglichkeit gibt eine
"Faltmarkierung" am Rand mitzudrucken, wie man es auch auf manchen
Geschàftsschreiben sieht, damit man schnell weiß, wo man einen Brief am
besten knickt, damit er gut in einen Briefumschlag passt.
:-)

Gruß Thomas
 

Lesen sie die antworten

#1 Thomas Frenkel
10/10/2009 - 20:42 | Warnen spam
"Thomas Frenkel" schrieb im Newsbeitrag
news:
Hallo,


ich wollte fragen, ob es bei Office2007 eine Möglichkeit gibt eine
"Faltmarkierung" am Rand mitzudrucken, wie man es auch auf manchen
Geschàftsschreiben sieht, damit man schnell weiß, wo man einen Brief am
besten knickt, damit er gut in einen Briefumschlag passt.



Hab da ein Makro gefunden, welches zwei Faltmarken einfügt und auch gleich
einen Strich für den Locher in der Mitte.

Das funktioniert super, allerdings ergibt sich nun eine andere Frage:
Wie lösche ich die Striche nun wieder, falls ich sie mal eingefügt habe und
gespeichert habe? Würde mich einfach interessieren, weil ich eigentlich gar
nicht weiß, was genau das Makro da nun macht.

Hier das Makro:

Sub FalzUndLochmarkeEinfügen()
Dim oKz As Object
Set oKz = ActiveDocument.Sections(1).Headers(1)

Set FM1 = oKz.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=CentimetersToPoints(0.5), _
Top:=CentimetersToPoints(10.4), _
Width:=CentimetersToPoints(0.2), _
Height:=CentimetersToPoints(0.01))
FM1.LockAnchor = True

Set FM2 = oKz.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=CentimetersToPoints(0.5), _
Top:=CentimetersToPoints(20.8), _
Width:=CentimetersToPoints(0.2), _
Height:=CentimetersToPoints(0.01))
FM2.LockAnchor = True

Set LM = oKz.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=CentimetersToPoints(0.5), _
Top:=CentimetersToPoints(14.85), _
Width:=CentimetersToPoints(0.4), _
Height:=CentimetersToPoints(0.01))
LM.LockAnchor = True

Set FM1 = Nothing
Set FM2 = Nothing
Set LM = Nothing
End Sub









Gruß Thomas

Ähnliche fragen