Fusszeile selektieren

Hallo Zusammen

PANIK! :'(
Hat jemand von euch schon ein Makro geschrieben dass beim öffnen des Worddokument aufgeht und mit einem Radiobutton die gewünschte Fusszeile selektiert werden kann (Auswahl aus drei Adressen)...

bin für JEDE Hilfe dankbar!

Liebe Grüsse Trollchen

Hallo trollchen,

das müßtest du etwas genauer beschreiben.

Etwa so:
Beim Öffnen eines neuen Dokumentes soll eine Userform aufgehen, auf der 3 verschiedene Fußzeilen beschrieben sind. Der Nutzer kann eine von dreien per Radio-button auswählen. Wenn der Bestätigunsbutton OK betätigt wird, wird im neuen Dokument die ausgewählte Fußzeile eingetragen.

2.Frage: Woher sollen die Fußzeilen bezogen werden ?

Gruß Matjes

Hallo Matjes

genau so ist es angedacht...

Die Fusszeilen können direkt in der Source des Makros hinterlegt sein. Oder was auch immer am einfachsten ist... ???
Diese bleiben eigentlich fix.

Hast du eine Idee wie ich das realisieren kann? evt. schon etwas ähnliches gemacht?


Liebe Grüsse Trolli

also...

Bis hier bin ich gekommen...

Private Sub CommandButton1_Click()

Hier soll die entsprechende Adresse ausgelesen werden und eingetragen werden...
Danach das Fenster geschlossen....

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If

Selection.TypeText Text:=Line1 Wass muss hier stehen?
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.TypeParagraph

Selection.TypeText Text:=Line2 Wass muss hier stehen?
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.TypeParagraph
End Sub

Private Sub Label1_Click()

End Sub

Private Sub OptionButton1_Click()
Line1 = Zeile 1 der Adresse 1
Line2 = Zeile 2 der Adresse 1

End Sub

Private Sub OptionButton2_Click()
Line1 = Zeile 1 der Adresse 2
Line2 = Zeile 2 der Adresse 1


End Sub

Private Sub OptionButton3_Click()
Line1 = Zeile 1 der Adresse 3
Line2 = Zeile 2 der Adresse 3

End Sub



kann mir jemand weiter helfen??? :'(