Eine auf dem Server hinterlegte Vorlage (Seriendruck, Quellen
ebenfalls auf Server) wird von mehrern Nutzern genutzt. Diese
Nutzer sind „faul“ und hätten gerne, dass sie beim Öffnen des
Dokumentes (also aus der Vorlage heraus) die Möglichkeit haben
zu sagen, wer sie sind. Aus dieser Info sollen dann bestimmt
Felder im Dokument gefüllt werden (z.B. Telefondurchwahl,
Unterschrift, Kürzel, etc.), damit User das nicht selber
machen muss.
Hallo Sammy,
prinzipiell könnte es wie nachstehend gezeigt gehen.
Leider weiß ich nicht wie man in Excel Felder referenziert, also anspricht,befüllt usw.
Also müßen diese drei Zeilen verbessert werden:
Feld1 = Angaben(B)(1)
Feld2 = Angaben(B)(2)
Feld3 = Angaben(B)(3)
sodaß das dann evtl so ähnlich aussieht:
ActiveDocument.Field(3) = Angaben(B)(1)
ActiveDocument.Field(7) = Angaben(B)(2)
ActiveDocument.Field(12) = Angaben(B)(3)
(Field ist jetzt rein geraten*gg*)
Schau mal in dem Link auf der der hiesigen Brettbeschreibung ob du da Vba-Code findest, der Felder in Word befüllt.
Im gefundenen Code kann ich dann schauen…
Zum Code selbts, Alt+F11, Doppelklick auf „ThisDocument“ der Datei, dort den Code reinkopieren.
Private Sub Document\_Open()
Dim Angaben(100), Benutzer, B
Benutzer = Array("Müller", "Meier", "Schulze")
Angaben(0) = Array("0a", "0b", "0c")
Angaben(1) = Array("1a", "1b", "1c")
Angaben(2) = Array("2a", "2b", "2c")
For B = 0 To UBound(Benutzer)
If Application.UserName = Benutzer(B) Then
Feld1 = Angaben(B)(1)
Feld2 = Angaben(B)(2)
Feld3 = Angaben(B)(3)
End If
Next B
End Sub
Gruß
Reinhard
)