Liebe Mitglieder,
ich bitte um eure Hilfe. Ich möchte gerne ein Makro automatisch ausführen, nachdem ein Wert (z.B "Laura") als Text in eine Tabelle/Textfeld eingefügt wurde.
Besteht die Möglichkeit sowas in Word durch VBA zu erreichen? Falls ja, wie würde der zugehörige Code aussehen?
Mein aktueller Code lautet wie folgt:
Sub PutNamesInHeader()
Dim sName As String
Open "c:/names.txt" For Input As #5
Do While Not EOF(5)
' get the name
Line Input #5, sName
ActiveWindow.ActivePane.View.SeekView = _
wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
Selection.TypeText Text:=sName
ActiveWindow.ActivePane.View.SeekView = _
wdSeekMainDocument
ActiveDocument.PrintOut
Loop
Close #5
ActiveWindow.ActivePane.View.SeekView = _
wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
ActiveWindow.ActivePane.View.SeekView = _
wdSeekMainDocument
End Sub
Besten Dank im Voraus und viele Grüße
Laura
|