[Bib]

Hi,
ich habe folgendes Problem:

In meiner Firma arbeiten ca. 20 Leute mit dem Pc. Diese haben bisher unter Word alle den gleichen Briefkopf, nur wurde bei jedem Angestellten manuell sein Name, Telefon, Zimmernr. usw. abgeändert (also personalisiert).

Wenn ich nun die Vorlagendatei (den Briefkopf) ändere, dann muß ich den erst umständlich auf alle PCs verteilen und dann noch jeden Briefkopf für jeden Angestellten manuell abändern.

Nachdem wir in kürze ein neues Computersystem bekommen, möchte ich die vorlagen zentral auf dem Server abspeichern. Gibt es nun eine möglichkeit, änlich einem Serienbrief, die Vorlage nur einmal zu erstellen und für die ganzen persönlichen Angaben einfach Platzhalter einzufügen, welche dann die Daten auf dem lokalen PC irgendwie beziehen können?

Also ich rufe dann auf PC 01 meine Vorlage vom Server auf und Word trägt dann automatisch meinen Namen, meine Telefonnr, zimmernr, usw. in die vorlage ein.

Ist das machbar?

[theoutsider]

Ja das geht!

Du kannst den Speicherort der Vorlagen in Word einfach auf den Server verlegen. Entweder du machst das an jedem der 20 Rechner von Hand, oder du machst das per gruppenrichtlinie

[Bib]

Das ich den Speicherort für die Vorlagen auf den Server legen kann, weiß ich, mir geht es darum, wie ich eine einzige Vorlagen-Datei erstelle und diese dann automatisch am jeweiligen PC mit den jeweiligen Benutzerdaten vom angemedleten User gefüllt werden...

[w.m.mg]

suche für office briefkopfvorlagen l freeware.
leider finde ich keine funktion in office selber.

danke für eure hilfe

w.m.mg

[Bib]

Ich hab übrigens auch noch keine Lösung für mein Problem gefunden, wie ich eine Wordvorlage benutzerabhängig befüllen lassen kann...

[Urne]

Zitat (w.m.mg: 05.09.2005, 11:53)

suche für office briefkopfvorlagen l freeware.
leider finde ich keine funktion in office selber.

danke für eure hilfe

w.m.mg
<{POST_SNAPBACK}>

Ein paar Vorlagen liefert Office selber mit. Zu finden unter: C:\Programme\Microsoft Office\Templates

[puppet]

Zitat (w.m.mg: 05.09.2005, 11:53)

suche für office briefkopfvorlagen l freeware.
leider finde ich keine funktion in office selber.

danke für eure hilfe

w.m.mg

Was bitte meinst du mit "Briefkopfvorlagen"?
Meinst du allgemeine Vorlagen z.B. nach DIN 5008 oder wie?

Zitat (Bib: 05.09.2005, 12:07)

Ich hab übrigens auch noch keine Lösung für mein Problem gefunden, wie ich eine Wordvorlage benutzerabhängig befüllen lassen kann...

Du könntest die einzelnen Vorlagen über die Serienbrieffunktion erstellen und dann halt seperat (pro User) abspeichern.
Ansonsten müsstest du eine Abfrage erstellen, was aber zu viel Aufwand ist und jedes mal beim öffnen der Vorlage eine Meldung bringt ob die Abfrage wirklich ausgeführt werden soll. Da ist eine statische Vorlage (wenn auch über Serienbrief erstellt) eine bessere Lösung.

[Lofote]

Irgendwie verstehen die Leute hier nicht, was Bib wollte, hab ich so das Gefühl!?

Egal: also wir standen hier vor genau dem selben Problem und haben es mit einer Eigenentwicklung in Form eines VBA-Makros gelöst. Dieses liest aus einer Datenbank die Daten wie Telefonnummer etc. des eingeloggten Users aus und füllt den Briefkopf entsprechend. Das Makro selbst hat zwar rund 50 Zeilen Code, ist aber ziemlich einfach gestrickt. Hier ist der Hauptteil des Codes, der die Informationen (die bereits in Variablen wie "Telefonnummer" vorher geladen wurde) ins Word-Dokument in ein neu angelegtes Textfenster oben rechts schreibt (ich gebe zu, ist ziemlicher Spaghetti-Code, zum Teil aus dem Makrorekorder zusammengestückelt):

    'Textbox mit Absenderadresse
    Selection.GoTo wdGoToPage, 1
    Set Briefbox = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 379.5, 133.5, 168, 137)  '123,137
    Briefbox.Select
    Selection.ShapeRange.Line.Visible = msoFalse
    Briefbox.TextFrame.TextRange.Font.Name = "Arial"
    Briefbox.TextFrame.TextRange.Font.Size = 9
    Selection.Font.Bold = False
    Selection.Font.Size = 9
    Selection.TypeText Text:=name1
    Selection.Font.Size = 8
    Selection.Paragraphs.LineSpacingRule = wdLineSpaceMultiple
    Selection.Paragraphs.LineSpacing = LinesToPoints(1)
    Selection.TypeText Text:=vbCrLf & titel & vbCrLf & vbCrLf
    'Selection.TypeParagraph
    Selection.Font.Bold = (SpezialFlag_FunktionFett = "1")
    Selection.TypeText Text:=Funktion
    Selection.Font.Bold = False
    Selection.TypeText Text:=vbCrLf & vbCrLf & "MusterFirma GmbH" & vbCrLf & "Musterstraße 12" & vbCrLf & "D-12345 Musterstadt" & vbCrLf & "Tel.: " & Telefonnummer & vbCrLf & "Fax: " & Faxnummer & vbCrLf & vbCrLf & Mail

    'Unterschrift
    Selection.GoTo What:=wdGoToSection, Name:=2
    Selection.EndOf Unit:=wdStory, Extend:=wdMove
    If titel <> "" Then
        Selection.Text = SpezialFlag_UnterschriftPrefix & vbCrLf & name1 & vbCrLf & titel
    Else
        Selection.Text = SpezialFlag_UnterschriftPrefix & vbCrLf & name1 & vbCrLf
    End If

    'Cursor Rücksetzen
    Selection.GoTo What:=wdGoToSection, Name:=2
    
    'Datum
    If newdoc Then
        Selection.MoveUp Unit:=wdLine, Count:=3
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Set ff = Selection.FormFields.Add(Range:=Selection.Range, Type:= _
            wdFieldFormTextInput)
        ff.TextInput.Default = "Musterstadt, " & Date
    End If

Dieser Beitrag wurde von Lofote bearbeitet: 05. September 2005 - 11:58

[algra]

hi,
eine Textedatei auf dem Clienten erstellen z.Bsp.:
User_01:
U_vnName=Max Mustermann;U_Strasse=Finkenweg 13;U_plzOrt=8000 Graz;
auf User_02:
U_vnName=Lena Musterfrau;U_Strasse=Finkenstrasse 13;U_plzOrt=8000 Graz;
usw... und diese Daten, bei der Öffnung des Dokumentes als Marko einsetzten lassen. Hilfe bekommst unter = F1 oder Assistenten für Makro...

Dieser Beitrag wurde von algra bearbeitet: 05. September 2005 - 11:59