Fusszeile selektieren

Dieses Thema Fusszeile selektieren im Forum "Microsoft Office Suite" wurde erstellt von trollchen, 26. Mai 2005.

Thema: Fusszeile selektieren Hallo Zusammen PANIK! :o :'( Hat jemand von euch schon ein Makro geschrieben dass beim öffnen des Worddokument...

  1. Hallo Zusammen

    PANIK! :eek: :'(
    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
     
  2. 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 :)
     
  3. 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
     
  4. 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??? :'(
     
Die Seite wird geladen...

Fusszeile selektieren - Ähnliche Themen

Forum Datum
ms office, die fusszeilen nummerierungen machen mich wahnsinnig !!! Microsoft Office Suite 25. Apr. 2011
Word 2000 falscher Ausdruck der Seitenzahlen in der Fusszeile !?!?! HILFE Windows XP Forum 21. Mai 2008
Frage zu Excel 2003 Kopf- und Fusszeile Windows XP Forum 2. Aug. 2007
Fusszeile für gesammte Arbeitsmappe über Macro Microsoft Office Suite 12. Mai 2006
Excel Druckdatum in der Fusszeile! Wie Datumsformat ändern?? Microsoft Office Suite 23. Nov. 2005