Wer besitzt eine Vorlage zu Erstellung von Briefen, mit Adressenfeld, Loch- und Faltmarke.
Als ehrenamtliches Mitglied in verschiedenen Organistationen erledige ich die
Schreibarbeit: Museen, Konzerte etc. Wer kann mir weiterhelfen, fragt bittend Alexander, der
noch an die Gemeinschaft glaubt, die erst dann lebt, wenn man sich selbst einbringt.
Hab ich gerade im Web gefunden.
http://www.tfh-wildau.de/rhirte/informatik/word/brie…
Für die Falz und Druckmarken würde ich allerdings eifach einen kleinen horizontalen Strich verwenden.
CU Fr@nkie
The Truth Is Out There… ;o)
Hi!
Ich bin zwar bei dem Thema nicht gerade Anfänger - aber dennoch: Ein suuper Link - danke!
Schöne Grüße
Siegfried
Brifvorlage für DIN-Briefe - noch ein paar Links
zu DIN-Regeln 5008 Zwar genügte eigentlich ein einziger Link, denn DIN-Regeln sind einheitlich, und dennoch … auf der einen Page findet man sich u. U. besser zurecht als auf der anderen. Außerdem findet man auch immer hilfreiche zusätzliche Tipps!
Viel Erfolg
und beste Grüße, Alexander
Desirée
Habe nicht alle Links überprüft, ob sie noch aktiv sind, aber die meisten werden es mit Sicherheit sein!
http://www.scholl.be.schule.de/schule/faecher/itg/di…
http://www.vhs-dahme-spreewald.de/vhs060705.htm
http://www.ingrid-sperber.de/DIN5008htm
http://www.kieser-verlag.de/info/dinbody.htm
http://www.bueroservice-sauerbier.de/tip/din1.html
http://www.deutschepost.de/brief/index.html
Makro für Falz- und Lochmarke DIN-Briefe
Hi, Alexander,
vielleicht hilft Dir dieses Makro. Einfach über die Zwischenablage kopieren und zu Deinen Makros tun. Wirst Du wissen, sonst kannst Du Dich ja noch mal melden. Klappt wunderbar!
Viel Erfolg
und viele Grüße
Desirée
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
vielleicht hilft Dir dieses Makro. Einfach über die
Zwischenablage kopieren und zu Deinen Makros tun. Wirst Du
wissen, sonst kannst Du Dich ja noch mal melden. Klappt
wunderbar!
Hi Desirée,
Alexander weiss wohl, wie das mit den Makros geht, aber in dem
Gebiet bin ich absoluter Anfänger. Wohin muss ich das nun
kopieren? *schonganzverzweifeltgesuchthab* Ich verwende übrigens
Office 2000.
Danke und Gruß
Kyra
Hi Kyra,
markiere das Makro hier im Forum (fast) von A - Z, und zwar zwischen Sub und End Sub , kopiere z. B. über STRG + C. In Word 2000 wählst Du unter Extras | Makro | Makros und vergibst den Namen FalzUndLochmarke oder einen anderen und wählst die Befehlsschaltfläche Erstellen. Du gelangst in den VBA-Editor und findest bereits vorbereitet Sub FalzUndLochmarke() und End Sub. Genau dazwischen fügst Du z. B. mit Strg + V oder Kontextmenü oder über Bearbeiten den Text des Makros aus der Zwischenablage ein. Wenn Du nun das Makro aufrufst und Ausführen klickst, wird das aktuelle Doc mit Falz und Lochmarken versehen sein.
Hier noch ein Link zu einer fantastischen Seite, die beschreibt, wie Du das Makro einer Schaltfläche zuweist, denn immer über Extras|Makros|Makros| Ausführen zu gehen, wäre doch zu umständlich. Außerdem erhältst Du auch sonst wichtige Anregungen und Hilfe:
http://mypage.bluewin.ch/reprobst/WordFAQ/Button.htm
Ich wünsche Dir viel Erfolg
und noch ein schönes Wochenende!
Solltest Du weitere Hilfe brauchen, melde Dich!
Ich helfe Dir jederzeit - soweit ich kann - sehr gerne weiter!
Desirée
Hat im 2. Anlauf geklappt! Danke! (o.T.)
.