Hallo,
ich habe mal in altem WORD97 mir die s.g.(Striche zum Knicken im Brief bzw.Vorlage) eigerichtet. Jetzt habe ich natürlich vergessen wie das entstand ist.Es geht um Markierung für Fensterumschlag. Hat jemand eine Idee? Muss doch einfach gehen oder?
Gruss Marwoj
Office - Word, Excel und Co. 9.703 Themen, 40.813 Beiträge
Hi,
versuche es doch mit diesem Makro:
Sub FalzUndLochmarkeEinfügen()
Dim oKz As HeaderFooter, FM As Shape, LM As Shape
Set oKz = ActiveDocument.Sections(1).Headers(1)
'Die Länge des Striches (Faltmarke) beträgt 1,2 - 0,5 = 0,7 cm
Set FM = oKz.Shapes.AddLine(CentimetersToPoints(0.5), _
CentimetersToPoints(10.4), _
CentimetersToPoints(1.2), _
CentimetersToPoints(10.4))
FM.Line.Weight = 0.25
FM.LockAnchor = True
'Die Länge des Striches (Lochmarke) beträgt 0,9 - 0,5 = 0,4 cm
Set LM = oKz.Shapes.AddLine(CentimetersToPoints(0.5), _
CentimetersToPoints(14.85), _
CentimetersToPoints(0.9), _
CentimetersToPoints(14.85))
LM.Line.Weight = 0.25
LM.LockAnchor = True
End Sub
Viel Spaß!