title image


Smiley Re: Lochermarkierung irgendwie aufs Blatt kriegen ?
Hallo Thomas,



wenn Du dieses Makro nimmst und in die Normal.dot bringst, hast Du bei jedem neuen Dokument gleich die Loch- und Falzmarke. Funktioniert mit 2000 und 2002 (XP)



Kannst Du hier einfach kopieren und in Dein Word über die Zwischenablage einfügen. Aber das wirst Du wissen!



Viel Erfolg wünsche ich Dir!











Sub FalzUndLochmarke()

Dim oKz As Object, FM As Shape, LM As Shape

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

Set FM = oKz.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _

Left:=CentimetersToPoints(0.5), _

Top:=CentimetersToPoints(10.4), _

Width:=CentimetersToPoints(0.2), _

Height:=CentimetersToPoints(0.005))



FM.LockAnchor = True

FM.Line.Weight = 0.25

Set LM = oKz.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _

Left:=CentimetersToPoints(0.5), _

Top:=CentimetersToPoints(14.85), _

Width:=CentimetersToPoints(0.4), _

Height:=CentimetersToPoints(0.005))

LM.LockAnchor = True

LM.Line.Weight = 0.25

Set FM = Nothing

Set LM = Nothing

End Sub













geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: