Hallo Leute
Ich hab jetzt schon in einigen Foren nachgefragt und habe nie ne Antwort bekommen. Hoffe das ich hier auf zuvorkommende Leute treffe
.
Okay. Mein Problem ist wie folgt. Ich bin in meiner Firma dafür zuständig die Template für die verschiedenen Büro Abteilungen für Word zu erstellen. Einige Abteilungen haben ganz spezielle Wünsche. Zum Beispiel sollte per Formular die Fusszeile aktualisiert werden. ABER nur an Bookmark stellen.
Wie ich jetzt schon herausgefunden habe, ist Header und Footer gegenüber dem Hauptdokument, sepearte Objekte. Nun. Hier der Code wie ich es bis jetzt gemacht habe:
[Die zwei bookmarks heisen smallfax und smalltel und haben den gleichen Wert wie Telephon und Fax]
Private Sub btnOK_Click()
Dim Datum As String
Selection.GoTo What:=wdGoToBookmark, Name:="IhrZeichen"
Selection.TypeText Text:=Me.txtYourRef.Value
Selection.GoTo What:=wdGoToBookmark, Name:="UnserZeichen"
Selection.TypeText Text:=Me.txtOurRef.Value
Selection.GoTo What:=wdGoToBookmark, Name:="Telephon"
Selection.TypeText Text:=Me.txtPhone.Value
Selection.GoTo What:=wdGoToBookmark, Name:="Fax"
Selection.TypeText Text:=Me.txtFax.Value
Selection.GoTo What:=wdGoToBookmark, Name:="Datum"
Selection.TypeText Text:=Me.txtDatum.Value
Selection.GoTo What:=wdGoToBookmark, Name:="Adresse"
Selection.TypeText Text:=Me.txtAddress.Value
Selection.GoTo What:=wdGoToBookmark, Name:="Titel"
Selection.TypeText Text:=Me.txtTitel.Value
If Anrede <> "" Then
Selection.GoTo What:=wdGoToBookmark, Name:="Anrede"
Selection.TypeText Text:=Anrede
End If
WordBasic.FileSummaryInfo Title:="", _
Subject:="", Keywords:="", _
Author:=Me.txtOurRef.Text, _
Comments:=""
'Persönliche Einstellungen speichern
SaveSetting "WordTemplate", "Personal", "OurRef", Me.txtOurRef
Unload Me
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP