Supportnet Computer
Planet of Tech

Supportnet / Forum / Textverarbeitung

Falzmarke in Word-Dokument einfügen





Frage

Wie kann ich am einfachsten bei einem Word-Dokument am linken Seitenrand eine Falzmarke einfügen, ohne vorher eine Vorlage erstellen zu müssen?

Antwort 1 von pelle

Hallo Bruno,

alle Wordspezialisten werden mich auslachen, aber egal! :-(

Ich habe es bisher immer so gelöst:

Über die Symbolleiste "Zeichnen" einen dünnen Strich eingefügt!

Ca. 11,5 cm vom Seitenanfang bis kurz in den Beginn des linken Druckbereichs!

Nicht optimal, aber geht! :-)

gruss
pelle

Antwort 2 von Volker

Mit dem folgenden makro ist's kein Problem; und wenn du ihm dann noch eine Taste zuornest, dann wird's ganz bequem.
Das Makro fügt drei leine Striche als Falzmarken am linken Seitenrand ein.
hth
Volker

Attribute VB_Name = "NewMacros"
Sub Falzmarken()
Attribute Falzmarken.VB_Description = "Makro aufgezeichnet am 21.06.03 von mir"

Selection.InsertSymbol CharacterNumber:=8212, Unicode:=True, Bias:=0
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
ActiveDocument.Frames.Add Range:=Selection.Range
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
With Selection.Frames(1)
.Select
.TextWrap = True
.WidthRule = wdFrameAuto
.HeightRule = wdFrameAuto
.HorizontalPosition = CentimetersToPoints(0.3)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.VerticalPosition = CentimetersToPoints(9.2)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.HorizontalDistanceFromText = CentimetersToPoints(0.25)
.VerticalDistanceFromText = CentimetersToPoints(0)
.LockAnchor = False
End With
With Selection.Font
.Name = "Arial"
.Size = 10
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.ColorIndex = wdGray25
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.InsertSymbol CharacterNumber:=8212, Unicode:=True, Bias:=0
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 10
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.ColorIndex = wdGray25
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
ActiveDocument.Frames.Add Range:=Selection.Range
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
With Selection.Frames(1)
.Select
.TextWrap = True
.WidthRule = wdFrameAuto
.HeightRule = wdFrameAuto
.HorizontalPosition = CentimetersToPoints(0.3)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.VerticalPosition = CentimetersToPoints(19.2)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.HorizontalDistanceFromText = CentimetersToPoints(0.25)
.VerticalDistanceFromText = CentimetersToPoints(0)
.LockAnchor = False
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.InsertSymbol CharacterNumber:=8211, Unicode:=True, Bias:=0
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.ColorIndex = wdGray25
ActiveDocument.Frames.Add Range:=Selection.Range
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
With Selection.Frames(1)
.Select
.TextWrap = True
.WidthRule = wdFrameAuto
.HeightRule = wdFrameAuto
.HorizontalPosition = CentimetersToPoints(0.3)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.VerticalPosition = CentimetersToPoints(14.53)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.HorizontalDistanceFromText = CentimetersToPoints(0.25)
.VerticalDistanceFromText = CentimetersToPoints(0)
.LockAnchor = False
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Font.ColorIndex = wdAuto
End Sub

Antwort 3 von SvenjaK

Oh je, ist das ne Liste. *g*

Ich hatte mal ein Tool aus dem Netz, dass sich in Word einfügen ließ und die Falzmarken per Mausklick einfügte. Ich geh mal danach googeln.

Gruß
Svenja

Signatur und Textformatierungen wurden mit SNTool V1.0.105 erstellt

Antwort 4 von SvenjaK

Gefunden! :-)

Schau mal
hier
.

Gruß
Svenja

Antwort 5 von Griemokhan

Sieh her.

Ende der Seite

Antwort 6 von pelle

@Svenja
@Griemokhan,

Danke für die Links!

Jetzt bekomme ich meinen Lösungsvorschlag auch optimiert!

gruss
pelle

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: