"Locher-Kennung" in Word

  • Hallo,


    ist es möglich, in Word 2002 bei Textdokumenten DIN A 4 den kleinen "Mittelstrich" mitzudrucken, der kennzeichnet, wo ggf. für das Abheften ein Locher anzusetzen ist?

    PC: Windows 10 Pro, Intel Core i3 @ 3.60GHz, RAM 16,0 GB, Grafik MD20433, Festplatte 476GB Intenso SSD Sata III, Sound Card High Definition Audio-Gerät


    Laptop: Windows 10 Pro, AMD Quad-Core-Prozessor A4-5000, Festplatte SSD 256 GB, Arbeitsspeicher 4 GB DDR 3, Grafikkarte Radeon HD 8330

  • Hi,


    es geht auch ohne Erweiterungen.


    Möglichkeit 1.
    global die "normal.do*" bearbeiten -> Textfeld erstellen -> Bindestrich -> das Textfeld an die entsprechende Stelle verschieben -> fertig


    Möglichkeit 2.
    eine neue Vorlage (Briefvorlage) erstellen -> s.o.

    "Von all den Dingen, die mir verloren gegangen sind, habe ich am meisten an meinem Verstand gehangen."


    "Wahre Freunde fordern nie, sie erkennen und geben."

  • Danach hab´ich auch schon lange gesucht, wie man das macht! Jetzt hab´ich eine Falzmarke eingefügt und kann meine Briefe endlich so eintüten, dass die Adresse auch im Fenster des Umschlags angezeigt wird. :)

  • Zitat von BrittL;850266

    Danach hab´ich auch schon lange gesucht...


    Ja ich auch. Jetzt bleibt mir auch endlich das lästige nach Gefühl knicken erspart, denn das geht auch nicht immer gut und dann sieht der Brief so richtig versaut aus wenn man ihn 10 mal geknickt hat, bis er dann endlich in das Fenster gepasst hat. :)

  • BrittL, Mausi85:


    Dann denkt Euch mal was Hübsches aus, wie Ihr Euch bei mir für die geniale Frage bedanken könnt ;).


    Ich selbst habe es noch gar nicht ausprobiert :oops:, weil ich immer erstmal vor Registrierungen zurückschrecke.

    PC: Windows 10 Pro, Intel Core i3 @ 3.60GHz, RAM 16,0 GB, Grafik MD20433, Festplatte 476GB Intenso SSD Sata III, Sound Card High Definition Audio-Gerät


    Laptop: Windows 10 Pro, AMD Quad-Core-Prozessor A4-5000, Festplatte SSD 256 GB, Arbeitsspeicher 4 GB DDR 3, Grafikkarte Radeon HD 8330

  • Zitat von Mausi85;850980

    Ach die war so genial, dass kann man doch gar nicht wieder Gut machen!;)


    Alles eine Frage der Fantasie ;).


    Welche der o. a. Möglichkeiten hast Du denn angewendet?

    PC: Windows 10 Pro, Intel Core i3 @ 3.60GHz, RAM 16,0 GB, Grafik MD20433, Festplatte 476GB Intenso SSD Sata III, Sound Card High Definition Audio-Gerät


    Laptop: Windows 10 Pro, AMD Quad-Core-Prozessor A4-5000, Festplatte SSD 256 GB, Arbeitsspeicher 4 GB DDR 3, Grafikkarte Radeon HD 8330

  • Zitat von Thomas2010;846431


    Möglichkeit 1.
    global die "normal.do*" bearbeiten -> Textfeld erstellen -> Bindestrich -> das Textfeld an die entsprechende Stelle verschieben -> fertig


    Möglichkeit 2.
    eine neue Vorlage (Briefvorlage) erstellen -> s.o.


    Ich beschäftige mich erst jetzt wieder mit dem Thema :oops: und möchte auch diesen Weg gehen.


    Ich brauche dazu allerdings genauere Hinweise für das Vorgehen. Ich habe es versucht und es klappt nicht.

    PC: Windows 10 Pro, Intel Core i3 @ 3.60GHz, RAM 16,0 GB, Grafik MD20433, Festplatte 476GB Intenso SSD Sata III, Sound Card High Definition Audio-Gerät


    Laptop: Windows 10 Pro, AMD Quad-Core-Prozessor A4-5000, Festplatte SSD 256 GB, Arbeitsspeicher 4 GB DDR 3, Grafikkarte Radeon HD 8330

  • Hi,


    folgt morgen.

    "Von all den Dingen, die mir verloren gegangen sind, habe ich am meisten an meinem Verstand gehangen."


    "Wahre Freunde fordern nie, sie erkennen und geben."

  • "Von all den Dingen, die mir verloren gegangen sind, habe ich am meisten an meinem Verstand gehangen."


    "Wahre Freunde fordern nie, sie erkennen und geben."

  • Zitat von Thomas2010;858933

    Vorab schaust Du mal die beiden Bilder an ...


    Habe ich getan.

    PC: Windows 10 Pro, Intel Core i3 @ 3.60GHz, RAM 16,0 GB, Grafik MD20433, Festplatte 476GB Intenso SSD Sata III, Sound Card High Definition Audio-Gerät


    Laptop: Windows 10 Pro, AMD Quad-Core-Prozessor A4-5000, Festplatte SSD 256 GB, Arbeitsspeicher 4 GB DDR 3, Grafikkarte Radeon HD 8330

  • Zitat von Thomas2010;858933

    jetzt gehts los.



    :018: Haaallooooo, Thomas!!?

    PC: Windows 10 Pro, Intel Core i3 @ 3.60GHz, RAM 16,0 GB, Grafik MD20433, Festplatte 476GB Intenso SSD Sata III, Sound Card High Definition Audio-Gerät


    Laptop: Windows 10 Pro, AMD Quad-Core-Prozessor A4-5000, Festplatte SSD 256 GB, Arbeitsspeicher 4 GB DDR 3, Grafikkarte Radeon HD 8330

  • Einen Versuch mache ich noch:




    Zitat von Tirian;860514

    :018: Haaallooooo, Thomas!!?

    PC: Windows 10 Pro, Intel Core i3 @ 3.60GHz, RAM 16,0 GB, Grafik MD20433, Festplatte 476GB Intenso SSD Sata III, Sound Card High Definition Audio-Gerät


    Laptop: Windows 10 Pro, AMD Quad-Core-Prozessor A4-5000, Festplatte SSD 256 GB, Arbeitsspeicher 4 GB DDR 3, Grafikkarte Radeon HD 8330

  • Hi Tirian,


    jetzt bin ich endlich dazu gekommen (wenigstens die einfache Variante) aufzuzeichnen.


    Die Aufzeichnung (Hyperlink findest Du als PN) in Deinem Postfach.


    Sie muss noch überarbeitet werden, deshalb wird der Link hier erst später nachgereicht.


    Zuerst lädst Du bitte die Grafiken für die Loch/Falzmarken herunter:
    http://aquaweb.square7.ch/2_1_…ffice/loch_falzmarken.rar
    Diese entpackst Du in einen Ordner Deiner Wahl.

    "Von all den Dingen, die mir verloren gegangen sind, habe ich am meisten an meinem Verstand gehangen."


    "Wahre Freunde fordern nie, sie erkennen und geben."

  • Tirian,


    traust du dir zu ein Makro einzubinden?


    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 = oKz.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=CentimetersToPoints(0.5), _
    Top:=CentimetersToPoints(21), _
    Width:=CentimetersToPoints(0.2), _
    Height:=CentimetersToPoints(0.005))
    FM.LockAnchor = True
    FM.Line.Weight = 0.25
    Set FM = Nothing
    Set LM = Nothing
    End Sub

    "Von all den Dingen, die mir verloren gegangen sind, habe ich am meisten an meinem Verstand gehangen."


    "Wahre Freunde fordern nie, sie erkennen und geben."

Jetzt mitmachen!

Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!